Discussion :

[EvaristeGaloisBis]

Bonjour,
J'ai un petit souci lors d'un parcours de range.
Je réfinit une zone disons Toto="A1:A6,A9:A12".
Et quand je parcours le range je n'arrive pas a retrouver toutes les cellules.
Je n'arrive pas a comprendre pourquoi.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ff()
Dim rgMonRange As Range
Dim i  As Integer
Set rgMonRange = Range("A1:A6,A9:A12")
 
Debug.Print rgMonRange.Rows.Count
Debug.Print rgMonRange.Columns.Count
 
For i = 1 To rgMonRange.Cells.Count
  Debug.Print rgMonRange.Cells.Cells(i)
Next
 
End Sub

Il me sort : A1,...,A10, au lieu de A1,..A6,A9,...,A12.
J'avoue ne pas comprendre pourquoi il me fait ça.

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ff()
Dim rgMonRange As Range, Cell as range
Dim i  As Integer
Set rgMonRange = Range("A1:A6,A9:A12")
 
Debug.Print rgMonRange.Rows.Count
Debug.Print rgMonRange.Columns.Count
 
For each Cell in rgMonRange
  Debug.Print Cell
Next
 
End Sub

[EvaristeGaloisBis]

Merci beaucoup.

J'oublie toujours le For Each... je dois etre faché avec.