remonter d'une cellule et DO LOOP

M

Michel_M

Guest

• 30 Octobre 2003

• #2

Salut Coco,


Ci dessous proposition de code (colonne de travail: A)


Sub remonter()

Dim lig As Long

lig = ActiveCell.Row

While Cells(lig, 1) <> 0
lig = lig - 1
Wend

Cells(lig, 1).Select
End Sub

A+
Michel. Béziers

 

Vote positif 0 Vote négatif

C

coco

Guest

• 30 Octobre 2003

• #3

Salut Michel, merci d'avoir répondu à mon message. Hélas le résultat ne convient pas. A l'exécution de ton code la routine s'arrête dès les premier "0" rencontré dans la colonne A. Ce que je souhaite c'est qu'elle aille jusqu'au dernier "0" de la colonne (en remontant).
Je pensais qu'avec un DO LOOP je pouvais m'en sortir mais il y a quelque chose qui m'échappe.
Merci malgré tout de ton aide.
Coco

 

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 30 Octobre 2003

• #4

Re-coco

Après avoir mangé, je te propose ci-joint une alternative à ma proposition en n’utilisant pas de boucle (toujours très lentes en VBA) si ta liste est longue.

Si tu restes sur la première proposition, j’ai oublié de traiter le cas où il n’y a pas de Zero dans la remontée donc, le prog devient :

While Cells(lig, 1) <> 0
lig = lig - 1
if lig=0 then
msgbox " pas de valeur 0 entre la ligne 1 et la cellule active"
exit sub
end if
Wend



A+
Michel. Béziers

 

Pièces jointes

• remonte.zip

  7 KB · Affichages: 51

Vote positif 0 Vote négatif

C

coco

Guest

• 30 Octobre 2003

• #5

Re-salut Michel. Désolé ça ne marche toujours pas. Est-ce parce que je suis sur Xl2000?

 

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 30 Octobre 2003

• #6

Nos messages ont dû se croiser...

Ce que tu veux:

Est ce remonter au premier zéro (le + haut dans la feuille) ou 0 le plus proche en remontant de ta cellule active?

Dans l'attente
Michel_M

 

Vote positif 0 Vote négatif

D

denis.jette@ccra-adrc.gc.ca

Guest

• 31 Octobre 2003

• #7

bonjour coco

Tu peux tenter une autre solution si tu le desires

Sub test()
maxrow = Sheets("Sheet1").Range("a65536").End(xlUp).Row
For j = maxrow To 1 Step -1
Range("a" & j).Select
Var = ActiveCell.Value
If Var = 0 Then
MsgBox "La cellule a" & j & " a une valeur de zero"
Exit Sub
End If
Next
End Sub

Denis

 

Vote positif 0 Vote négatif

C

coco

Guest

• 3 Novembre 2003

• #8

Bonjour Michel, Denis et le forum.

Après quelques jours de pause je reviens sur mùon problème. Michel c'est bien au 1er zéro de la colonne que je veux aboutir. D'ailleurs Denis m'a envoyé une proposition qui répond parfaitement à ce que je souhaitais.
Merci à tous les deux. C'est vraiment sympa.

 

Vote positif 0 Vote négatif