un texte en VBA dans plusieurs onglets - macro correcte ??
2 réponses
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
----
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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 ----
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
----
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
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 >---- > >
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
>----
>
>