[VBA-E] Parcourir un range ligne par ligne

Bonjour,

j'ai défini un range dans excel rgeExcel et je voudrais savoir comment le parcourir ligne par ligne en vba.

Avec le code ci-dessous, il commence bien au début de la range mais finit quelques lignes trop loin.

Pouvez-vous m'aider svp?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim rge As Range Dim i As Integer On Error Resume Next   Set rge = ActiveSheet.Range("rgeExcel")   For i = 1 To rge.End(xlUp).row MsgBox rge.Cells(i, 2) Next   On Error GoTo 0

---

comment ca quelque lignes trop loin?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim rge As Range Dim i As Integer On Error Resume Next   Set rge = ActiveSheet.Range("rgeExcel") X = Cells(65535, 1).End(xlUp).Row     For i = 1 To X a = Sheets("blad1").Cells(i, 1) MsgBox ("" & a) Next   On Error GoTo 0   End Sub

---

Citation:

---

Envoyé par chmod777

comment ca quelque lignes trop loin?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim rge As Range Dim i As Integer On Error Resume Next   Set rge = ActiveSheet.Range("rgeExcel") X = Cells(65535, 1).End(xlUp).Row     For i = 1 To X a = Sheets("blad1").Cells(i, 1) MsgBox ("" & a) Next   On Error GoTo 0   End Sub

---

---

Et bien, si mon range est par exemple A10:A20 il va jusqu'en A24.. et il ne s'arrête pas en A20

je vais essayer ton code

oublie pas que si tu as des formules dans tes cellules ca les prend en compte

Dans ton code, tu ne fais rien avec mon range ? :(
J'ai essayé de mettre dans une variable mais ca me fait le même coup.

Mon range fait 13 lignes et il en trouve 22 avec le xlUp, xlRight 0, xlLeft 0 et xlDown 36.

Je dois sans doute utiliser le mauvais argument ou je ne sais pas trop.

Je veux juste qu'il s'arrête quand il tombe sur la dernière ligne du range. On ne peut pas tester si la ligne fait partie du range ?

Citation:

---

Envoyé par chmod777

oublie pas que si tu as des formules dans tes cellules ca les prend en compte

---

je veux juste qu'il descende de ligne en ligne et s'arrête à la dernière du range :cry:

c quoi ton range???

Citation:

---

Envoyé par chmod777

c quoi ton range???

---

=Parameters!$C$24:$J$36

Donc y a 13 lignes ..

desole je ne vois pas mais il reste quand meme une solution mais pas tres classe.

tu regardes le maximum pour chaque colonne et tu prends la valeur la plus grande

Code:

---

1 2 3

Set rge = ActiveSheet.Range("Params_FunctionSubFamily")   MsgBox rge.Rows.Count

---

Ca me renvoie le nombre de lignes du range donc c'est parfait !