Nous sommes actuellement le 10 Juil 2026, 21:32

Le fuseau horaire est UTC-5 heures [Heure d’été]




Publier un nouveau sujet Répondre au sujet  [ 2 message(s) ] 
Auteur Message
MessagePublié: 15 Juil 2007, 05:20 
Hors-ligne
Fidèle
Fidèle
Avatar de l’utilisateur

Inscription : 07 Jan 2002, 20:36
Message(s) : 637
Localisation : Côte-Nord, Québec
Bonjour à tous,
Dans Excel 2003, j’ai une macro qui copie des cellules de la Feuille 1
pour les copier dans la feuille 2.
Ça fonctionne bien, mais si je masque la feuille 2 la macro bloque, car elle ne trouve plus la feuille 2.

Existe-t-il un code pour que la macro voie la feuille même s’il elle est masquée?

Voici mon code

Sub ArchivageFour1()
' Macro enregistrée le 2006-07-08 par Gervais'

'Cette section je copie les données pour les archiver dans la feuille Archive
n = 0
Sheets("Donnée Four 1").Select
Range("A3:T7").Select
selection.Copy
Sheets("Archive").Select
Do While n < 65530
n = n + 1
If Cells(n, 1) = "" Then
Exit Do
End If
Loop
Cells(n, 1).Select
selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Four 1").Select
Range( _
"A7,B2,B3,D2:G4,D5,D6:G6,F8:G8,B10:B11,D10:G12,D13,D14:G14,
B18:B19,D18:G20,D21,D22:G22,F16:G16,F24:G24,B26:B27,D26:G28,D29,D30:G30,F32:G32,B34:B35,D34:G36,D37,D38:G38,F40:G40" _
).Select
Range("F40").Activate
selection.ClearContents
Range("A1").Select

End Sub

_________________
Intel Core I5-4690 Haswell 3.5GHZ | ASUS Z97-K/CSM | Kingston Hyper1600 C9D3K2/8GX | Intel 120GB 530 | WD VelociRaptor 300 GIG, | Power Supply Thermaltake TR2 600W | Écran ViewSonic VG2230wm


Haut
 Profil  
Répondre en citant  
 Sujet du message:
MessagePublié: 15 Juil 2007, 05:47 
Hors-ligne
Fidèle
Fidèle
Avatar de l’utilisateur

Inscription : 07 Jan 2002, 20:36
Message(s) : 637
Localisation : Côte-Nord, Québec
C'est correct j'ai trouvé ma solution :D j'ai tout simplement inclus dans mon code l'affichage de la feuille avant la copie et le masquage après.

_________________
Intel Core I5-4690 Haswell 3.5GHZ | ASUS Z97-K/CSM | Kingston Hyper1600 C9D3K2/8GX | Intel 120GB 530 | WD VelociRaptor 300 GIG, | Power Supply Thermaltake TR2 600W | Écran ViewSonic VG2230wm


Haut
 Profil  
Répondre en citant  
Afficher les messages publiés depuis :  Trier par  
Publier un nouveau sujet Répondre au sujet  [ 2 message(s) ] 

Le fuseau horaire est UTC-5 heures [Heure d’été]


Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 2 invité(s)


Vous ne pouvez pas publier de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum

Recherche de:
Aller vers :  
Propulsé par phpBB® Forum Software © phpBB Group
Traduction et support en françaisHébergement de site