un texte en VBA dans plusieurs onglets - macro correcte ??

Le
Sunburn
Je voudrais mettre le texte "TEST" dans plusieurs onglets. Ma macro est-elle
correcte ?
Merci.
YANN
-
For Each F In Array("GA01", "GA02", "GA03", "GA04", "GA06", "GA07", "GA09",
"GA10", "GA11", "00", "10", "20", "30", _
"40", "50", "60", "70", "80", "90", "50_21a", "50_21b", "50_21c", "50_21d",
"50_21e", "50_21f", "50_21g", "50_21h", _
"50_21i", "50_21j", "50_21k", "50_21l", "50_21m", "50_21n", "50_21o",
"50_21p", "50_21q", "50_21r", "50_21s")
On Error Resume Next
Sheets(F).Activate
For Each c In Sheets(F)
Range("A4") = "NA"
Next c
Next
-
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #17946511
bonjour Sunburn,

For Each F In Array("GA01", "GA02", "GA03", "GA04", "GA06", "GA07", "GA09",
"GA10", "GA11", "00", "10", "20", "30", _
"40", "50", "60", "70", "80", "90", "50_21a", "50_21b", "50_21c", "50_21d",
"50_21e", "50_21f", "50_21g", "50_21h", _
"50_21i", "50_21j", "50_21k", "50_21l", "50_21m", "50_21n", "50_21o",
"50_21p", "50_21q", "50_21r", "50_21s")
On Error Resume Next
Sheets(F).Range("A4") = "NA"
Next F

isabelle


Sunburn a écrit :

Je voudrais mettre le texte "TEST" dans plusieurs onglets. Ma macro est-elle
correcte ?
Merci.
YANN
-------
For Each F In Array("GA01", "GA02", "GA03", "GA04", "GA06", "GA07", "GA09",
"GA10", "GA11", "00", "10", "20", "30", _
"40", "50", "60", "70", "80", "90", "50_21a", "50_21b", "50_21c", "50_21d",
"50_21e", "50_21f", "50_21g", "50_21h", _
"50_21i", "50_21j", "50_21k", "50_21l", "50_21m", "50_21n", "50_21o",
"50_21p", "50_21q", "50_21r", "50_21s")
On Error Resume Next
Sheets(F).Activate
For Each c In Sheets(F)
Range("A4") = "NA"
Next c
Next
----




Sunburn
Le #17954181
OK, je te remercie.
YANN

"isabelle" a écrit :

bonjour Sunburn,

For Each F In Array("GA01", "GA02", "GA03", "GA04", "GA06", "GA07", "GA09",
"GA10", "GA11", "00", "10", "20", "30", _
"40", "50", "60", "70", "80", "90", "50_21a", "50_21b", "50_21c", "50_21d",
"50_21e", "50_21f", "50_21g", "50_21h", _
"50_21i", "50_21j", "50_21k", "50_21l", "50_21m", "50_21n", "50_21o",
"50_21p", "50_21q", "50_21r", "50_21s")
On Error Resume Next
Sheets(F).Range("A4") = "NA"
Next F

isabelle


Sunburn a écrit :

>Je voudrais mettre le texte "TEST" dans plusieurs onglets. Ma macro est-elle
>correcte ?
>Merci.
>YANN
>-------
>For Each F In Array("GA01", "GA02", "GA03", "GA04", "GA06", "GA07", "GA09",
>"GA10", "GA11", "00", "10", "20", "30", _
>"40", "50", "60", "70", "80", "90", "50_21a", "50_21b", "50_21c", "50_21d",
>"50_21e", "50_21f", "50_21g", "50_21h", _
>"50_21i", "50_21j", "50_21k", "50_21l", "50_21m", "50_21n", "50_21o",
>"50_21p", "50_21q", "50_21r", "50_21s")
> On Error Resume Next
> Sheets(F).Activate
> For Each c In Sheets(F)
> Range("A4") = "NA"
> Next c
> Next
>----
>
>



Publicité
Poster une réponse
Anonyme