Bonjour à tous
Je voudrais activer chacun des onglets de mon classeur et effectuer un traitement.
Mon code est celui-ci :
Mais la ligne Sheet(NomsOnglet(i)).Activate ne fonctionne pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 nbrOnglet = Worksheets.Count ReDim NomsOnglet(1 To nbrOnglet) ' Redimensionnement tableau des noms d'onglets For i = 1 To nbrOnglet ' Boucle pour remplir tableau avec noms d'onglets NomsOnglet(i) = Worksheets(i).Name Next i For i = 2 To nbrOnglet ' Pour chaque onglet ... Sheet(NomsOnglet(i)).Activate ' ... activer l'onglet et ... Call Traiment_A_Effectuer ' ... lui faire effectuer un traitement Next i
J'ai essayé avec Sheet( & NomsOnglet(i) ).Activate mais Excel colorie la ligne en rouge.
Auriez-vous une idée ?
Merci d'avance
Cordialement
Partager