qulequ'un m'aide moi a expliquer ??
et merci
Private Sub cmdtaille_Click() Dim i, Semaines, Mois, TailleParSemaine As Integer Dim Plantes(5) As String Plantes(0) = "Choux" Plantes(1) = "Haricots" Plantes(2) = "Pomme de terre" Plantes(3) = "Fleur" Plantes(4) = "Ognons" i = 0 TailleParSemaine = 5 Mois = 2 Semaines = Mois * 4 Do While Plantes(i) <> "Fleur" i = i + 1 Loop MsgBox "La taille de la fleur sera dans deux mois de : " & Semaines * TailleParSemaine end sub