Faire une Boucle, a la place de mon Code

MuscatMimi · 29 Avril 2009

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 · 29 Avril 2009

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

bonjour,

voici une proposition :

Code:

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 · 29 Avril 2009

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

bonjour

oui c'est possible. 😀

Code:

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

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

MuscatMimi · 29 Avril 2009

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

Faire une Boucle, a la place de mon Code

MuscatMimi

XLDnaute Accro

mromain

XLDnaute Barbatruc

vbacrumble

XLDnaute Accro

MuscatMimi

XLDnaute Accro

Discussions similaires

Faire une Boucle, a la place de mon Code

MuscatMimi

XLDnaute Accro

mromain

XLDnaute Barbatruc

vbacrumble

XLDnaute Accro

MuscatMimi

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency