Discussion :

[boosty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chmod777]

comment ca quelque lignes trop loin?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[boosty]

comment ca quelque lignes trop loin?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chmod777]

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

[boosty]

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 ?

[boosty]

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

[chmod777]

c quoi ton range???

[boosty]

c quoi ton range???

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

Donc y a 13 lignes ..

[chmod777]

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

[boosty]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !