Problème de boucle Do While
Bonjour à tous
Avec la fin d'année arrive pour moi des petits tracas ...
Bon, cette fois-ci c'est un souci de Boucle...
Dans l'exemple joint :
La colonne "Fruits" peut comporter de 2 à "x" lignes suivants les mois...
Dans les colonnes "Résultats" j'ai un nombre de ligne variable à remplir pour chacune des lignes de la colonne "Fruits"…
Par exemple pour les Bananes 3 lignes à remplir et pour la pomme j'ai 6 lignes à remplir.
En réalité, j'ai beaucoup plus que 3 ou 6 lignes à remplir par colonne "Résultats" et beaucoup plus de données dans la colonne "Fruits" et plus de colonnes "Résultats" aussi....
Donc j'aimerai une BOUCLE qui cesse dès que j'ai une ligne vide dans la colonne "Fruits". (dans l'exemple c'est la ligne 5 mais cela peut être la ligne 105 en réalité)
J'avais pensé à une boucle Do While... mais je ne sais pas comment l'utiliser...
D'avance un grand merci à ceux qui m'aiderons
Bonne journée à tous !
Bonjour,
tu peux faire comme ceci par exemple
Sub test_boucle()
Do
ligne = ligne + 1
Loop While Range("a" & ligne) <> ""
MsgBox "Les fruits s'arrêtent à la ligne " & ligne, 64, "Warning"
End SubCordialement
du moins cela fonctionne avec le test joint...
il suffit de rajouter les deux lignes suivantes
Else
Exit For
dans chacune des conditions...
Ce qui donne par exemple :
For i = 2 To 4
If Cells(2, 1) <> Empty Then
Cells(i, j) = Cells(2, 1)
Else
Exit For
End If
Next i
Alors je sais pas ce que ça va donner avec le vrai fichier ...
Quoiqu'il en soit, MERVEILLEUSES FETES DE FIN D'ANNEE A TOUS
Bonjour,
Où sont tes données à remplir dont tu parles ?
Merci pour ta réponse
Je vais tester la mienne sur le vrai fichier... et la tienne...
Belle fin de journée & encore merci
Bonjour Raja
Elles sont dans le fichier joint au premier message
Belle fin de journée & merci pour ton aide