Faire une Boucle, a la place de mon Code

[MuscatMimi]

Bonjour a tout le Forum

Est-t'il possible de réaliser une boucle, a la place de
ce code ???

Merci beaucoup a l'avance

Private Sub CommandButton1_Click()
With Sheets("Janvier")
.Range("J2") = Me.Choisir_Année
End With
With Sheets("Février")
.Range("J2") = Me.Choisir_Année
End With
With Sheets("Mars")
.Range("J2") = Me.Choisir_Année
End With
With Sheets("Avril")
.Range("J2") = Me.Choisir_Année
End With
With Sheets("Mai")
.Range("J2") = Me.Choisir_Année
End With
With Sheets("Juin")
.Range("J2") = Me.Choisir_Année
End With
With Sheets("Juillet")
.Range("J2") = Me.Choisir_Année
End With

With Sheets("Aout")
.Range("J2") = Me.Choisir_Année
End With
With Sheets("Septembre")
.Range("J2") = Me.Choisir_Année
End With
With Sheets("Octobre")
.Range("J2") = Me.Choisir_Année
End With
With Sheets("Novembre")
.Range("J2") = Me.Choisir_Année
End With

With Sheets("Décembre")
.Range("J2") = Me.Choisir_Année
End With

End Sub

 

[mromain]

Re : Faire une Boucle, a la place de mon Code

bonjour,

voici une proposition :

For Each curSheet In ThisWorkbook.Worksheets(Array("Janvier", "Février", "Février", "Mars", "Avril" ....... ))
    curSheet.Range("J2") = Me.Choisir_Année
Next curSheet

a+

 

[vbacrumble]

Re : Faire une Boucle, a la place de mon Code

bonjour


oui c'est possible. 😀

For 1=1 to 12
Worksheets(i). [J2]=Me.Choisir_Année
Next

edition: houps désolé pour cette nouvelle collision mromain

 

[MuscatMimi]

Re : Faire une Boucle, a la place de mon Code

Ouah, super, merci les p'tits Loups, de vos réponses hyper rapide
j'étais pas loin de ton code vbcrumble

merci encore et bonne fin de journée a vous deux