A voir également:
- Choix boucles VBA Excel(Do While, Loop...For
- Liste déroulante de choix excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
- Excel compter cellule couleur sans vba - Guide
3 réponses
zavenger
Messages postés
811
Date d'inscription
vendredi 29 février 2008
Statut
Membre
Dernière intervention
20 avril 2012
161
23 avril 2008 à 16:22
23 avril 2008 à 16:22
Tu ne pourrais pas clarifier un peu ta demande STP, cela ne me parrait pas clair du tout
Mike-31
Messages postés
18381
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
28 mars 2025
5 126
23 avril 2008 à 21:32
23 avril 2008 à 21:32
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.
23 avril 2008 à 16:28
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
23 avril 2008 à 16:32
range(ligne, j).value <> ""
comme condition?
23 avril 2008 à 16:43
Tu devrais faire
j = 2
do while Activesheet.range("e2").offset(0,j).value <> ""
...
j=j+1
loop