Discussion :

[michelp38]

Dans cette boucle

Code :

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

1
2
3
4
 
For Each vCellule In Range("xx:xx")
..........
Next

Si en cours de boucle je change le contenu de la colonne : par ex je détruis/insére des cellules ( la cellule courante ou la suivante par ex) est ce le Next a un comportement toujours prévisible ?

Michel

[pgz]

Bonsoir.

Si tu insères des cellules ou que tu en ajoutes, la collection des cellules de la plage va être modifiée. Si tu en ajoutes il faut veiller à ce que la nouvelle cellule ne provoque pas l'insertion d'une suivante et ainsi de suite jusqu'à saturation.
Si tu en enlèves, tu risques de déclencher une erreur en cherchant une cellule disparue.

Je te conseille d'éviter cette façon de faire. Il vaut mieux parcourir la collection avec les indices ligne et colonne et en décroissant.

Mais il faudrait voir ce que tu veux faire.

Cordialement,

PGZ

[michelp38]

C'est un peu ce que je pensais.
Comment modifierais tu ce bout de code pour parcourir la colonne en partant de la dernière cellule ?

merci

[pgz]

Bonsoir.

Par exemple si on veut parcourir la colonne D entre les lignes 3 et 255

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub michel()
Dim i As Long, oSh As Excel.Worksheet
Const iMin As Long = 3
Const iMax As Long = 255
 
Set oSh = ThisWorkbook.Worksheets("NomFeuille")
 
For i = iMax To iMin Step -1
    'ici la cellule à traiter est osh.Range("D" & i)
    'on fait le traitemment
Next i
 
Set oSh = Nothing
End Sub

Cordialement,

PGZ