A voir également:
- Choix boucles VBA Excel(Do While, Loop...For
- Downloader for pc - Télécharger - Téléchargement & Transfert
- Liste déroulante de choix excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
3 réponses
Salut,
tes explications sont difficile à cerner mais voila une macro qui sélectionne la cellule A700 et remonte d'une cellule tant que la cellule contient une données elle remonte jusqu'a ce qu'elle rencontre une cellule vide
Sub test()
Range("A700").Select
ActiveCell.Offset(-1, 0).Select
Do While ActiveCell.Value <>""
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
ici la cellule remonte tant qu'elle rencontre des cellule vide ou des valeurs =0 jusqu'a ce qu'elle rencontre une cellule contenant queque chose ou le mot fin pour s'arrêter
Sub test()
Range("A700").Select
ActiveCell.Offset(-1, 0).Select
Do While ActiveCell.Value <=0
ActiveCell.Offset(-1, 0).Select
Loop
If ActiveCell = "fin" Then
Exit Sub
End If
End Sub
________________________________________________________________________
Vous cherchiez de l’aide. Les membres du forum, bénévolement étaient à vos côtés.
Ayez la gentillesse de nous dire si votre problème est résolu. Afin de classer la
Demande.
tes explications sont difficile à cerner mais voila une macro qui sélectionne la cellule A700 et remonte d'une cellule tant que la cellule contient une données elle remonte jusqu'a ce qu'elle rencontre une cellule vide
Sub test()
Range("A700").Select
ActiveCell.Offset(-1, 0).Select
Do While ActiveCell.Value <>""
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
ici la cellule remonte tant qu'elle rencontre des cellule vide ou des valeurs =0 jusqu'a ce qu'elle rencontre une cellule contenant queque chose ou le mot fin pour s'arrêter
Sub test()
Range("A700").Select
ActiveCell.Offset(-1, 0).Select
Do While ActiveCell.Value <=0
ActiveCell.Offset(-1, 0).Select
Loop
If ActiveCell = "fin" Then
Exit Sub
End If
End Sub
________________________________________________________________________
Vous cherchiez de l’aide. Les membres du forum, bénévolement étaient à vos côtés.
Ayez la gentillesse de nous dire si votre problème est résolu. Afin de classer la
Demande.
je cherche une boucle me permettant de
tant que la cellule (ligne, j) <> "" alors Faire
Sachant que le j correspond aux colonnes et qu'il doit s'incrementer.
Dans mon exemple, j'ai utilisé DOWhile mais je n'en sais rien....
Est ce plus clair?
je te remercie d'avance de ton aide. J'avoue je ne suis pas très compétente en info. :(
Kikour
range(ligne, j).value <> ""
comme condition?
Tu devrais faire
j = 2
do while Activesheet.range("e2").offset(0,j).value <> ""
...
j=j+1
loop