Syntaxe VBA

[Calvus]

Bonjour le forum,

Quelqu'un peut il m'expliquer pourquoi ce code ne fonctionne pas ?

Sub Format()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
    'Renvoie le nom de chaque feuille

Range("s38").Value = 125
        
Next Ws

End Sub

Du moins il ne fonctionne que sur la première feuille (sur 3)


Pas plus que celui-ci ?

Sub Format()

With Worksheets("feuil1", "feuil2", "feuil3")
        .Range("s38").Value = 125
        .Range("S38:Z38").Font.Bold = True
        .Range("S38:Z38").Font.Color = RGB(255, 0, 255)
      End With
End Sub

Sachant que celui-ci fonctionne :

Sub Format()

With Worksheets("feuil1")
        .Range("s38").Value = 125
        .Range("S38:Z38").Font.Bold = True
        .Range("S38:Z38").Font.Color = RGB(255, 0, 255)
      End With
End Sub

Merci.

 

[Pierrot93]

Re : Syntaxe VBA

Bonjour,

il faut préciser où appliquer l'instruction :

Sub Format()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
    'Renvoie le nom de chaque feuille

WS.Range("s38").Value = 125
        
Next Ws

End Sub

bon après midi
@+

 

[Calvus]

Re : Syntaxe VBA

Merci Pierrot !

Bonne après midi.
Je vais bientôt revenir car d'autres problèmes maintenant, évidemment ! 😉

 

[Calvus]

Re : Syntaxe VBA

Re,

Et pour quelle raison ceci ne fonctionne t'il pas ?

Sub Format()

With Worksheets("feuil1", "feuil2", "feuil3")
        .Range("s38").Value = 125
        .Range("S38:Z38").Font.Bold = True
        .Range("S38:Z38").Font.Color = RGB(255, 0, 255)
      End With
End Sub

Merci

 

[jpb388]

Re : Syntaxe VBA

Bonjour à tous

erreur de ma part message annulé

 

[Si...]

Re : Syntaxe VBA

salut

à tester pour les changements sur les 3 feuilles

Sub Format()
  Dim Ws As Worksheet
  For Each Ws In Worksheets(Array("feuil1", "feuil2", "feuil3"))
    Ws.Range("s38").Value = 125
    Ws.Range("S38:Z38").Font.Bold = True
    Ws.Range("S38:Z38").Font.Color = RGB(255, 0, 255)
 Next

 

[Calvus]

Re : Syntaxe VBA

Bonjour Si, le forum,

Il faut donc mettre Array ? C'est pour cela que ça ne fonctionnait pas ? On ne peut pas s'en passer ?
C'est pour bien comprendre.

Merci

 

[DoubleZero]

Re : Syntaxe VBA

Bonjour, le Fil 🙂, le Forum,

Un exemple en pièce jointe.

A bientôt 🙂

 

[Calvus]

Re : Syntaxe VBA

Hello 00 !

J'en reviens pas qu'en plus tu te paies ma tête ! 😉😉

Merci pour l'exemple.
J'aurais juste aimé savoir, éventuellement, pourquoi ça ne marchait pas avec Worksheets("feuil1", "feuil2", "feuil3"), alors que ça marche avec Worksheets("feuil1")..
Mais peut être faut il demander à Krosoft...

J'avais bien compris les autres solutions... pour une fois...🙄

A bientôt 🙂🙂

 

[DoubleZero]

Re : Syntaxe VBA

Re-bonjour,

... tu te paies ma tête ! 😉😉...

Meuh non, Calvus 😉,

Non ! Non ! Non et non !

Moi 🙄 pas me payer la tête de toi 😀

Quant à 😡 Krosoft 😡, il n'est pas dans mon carnet d'adresses.

A bientôt 😀😀

 

[Si...]

Re : Syntaxe VBA

Re

Pour éviter de noyer le poisson *

WorkSheets désigne la collection des onglets.

Pour les traiter 1 par 1 et séparément, on utilsera :

WorkSheets("feuil1"), WorkSheets("feuil2"), WorkSheets("feuil3 ") …

Pour en traiter quelques-uns ensemble, on doit passer par un tableau (Array) .
Je préfère

Sub Format_2()
    Dim Ws As Object
    For Each Ws In Worksheets (Array("Feuil1", "Feuil2", "Feuil3"))
        Ws.Range("s38").Value = "Coucou, Calvus !"
        Ws.Range("s38:z38").Font.Bold = True
        Ws.Range("s38:z38").Font.Color = 3128111
    Next
End Sub

qui est plus réduit que la double boucle

Sub Format_1()
    Dim n As Byte, Ws As Worksheet
    For Each Ws In Worksheets
      For n = 0 To 2
        If Ws.Name = Array("Feuil1", "Feuil2", "Feuil3")(n) Then
            Ws.Range("s38").Value = "Petit poiffon deviendra grand !"
            Ws.Range("s38:z38").Font.Bold = True
            Ws.Range("s38:z38").Font.Color = 255
        End If
      Next
    Next
End Sub

où la seconde boucle est ici pour caser mon Array 😉 en remplacement du test
If Ws.Name = "Feuil1" Or Ws.Name = "Feuil2" Or Ws.Name = "Feuil3" Then

*😀😀, je connais le rouge et blanc mais pas l’autre et désolé pour avoir maltraité tes codes

 

[Calvus]

Re : Syntaxe VBA

Bonsoir,

Meuh non, Calvus 😉,

Moi 🙄 pas me payer la tête de toi 😀

Et en plus tu te débines !!! 🙂🙂🙂😉

Pour éviter de noyer le poisson *

Tu as presque réussi ! 🙂🙂

Mer Sissi en tout cas. Bien que restant à digérer, c'est beaucoup plus clair.
J'apprécie la pédagogie que tu apportes à tes réponses dans ce forum. Tu viens encore d'en faire la démonstration.

Bonne soirée à tous 😉

 

[DoubleZero]

Re : Syntaxe VBA

Bonjour, le Fil 🙂, le Forum,

... Pour éviter de noyer le poisson...

Un équipement indispensable, disponible ici !...

A bientôt 😀😀

 

[Si...]

Re : Syntaxe VBA

re

Merci 😀😀
[Blague (à part)]
C’est Calvus et ceux qui rament pour reconnaitre un loup – bar qui vont apprécier ta "roue" de secours. 😉
[\Blague]