Discussion :

[bucgif]

Bonjour

Soit les 11 lignes suivantes dans la colonne A
test
a
b
a
b
b
a
a
b
a
a

Je souhaite que lorsque la valeur = a que la ligne soit copiée/collée sous celle-ci.

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
18
19
Sub test1()
 
Dim j As Integer
For j = 2 To Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
 
        If Cells(j, 1) = "a" Then
 
            Rows(j).Copy
            Rows(j).Insert
            Cells(j + 1, 2) = "Insertion"
            j = j + 1
        Else
        End If
 
Next j
MsgBox j
 
 
End Sub

Le code s'arrête avant d'avoir traité toute la colonne A.
Cells(Columns(1).Cells.Count, 1).End(xlUp).Row est bien mis à jour, par contre on dirait que la boucle FOR ne tient compte que de ses valeurs au départ!?

Le boucle en While Wend marche:

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
18
19
20
21
22
Sub test()
 
derniere_ligne = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Dim j As Integer
j = 2
While j <= Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
 
        If Cells(j, 1) = "a" Then
 
            Rows(j).Copy
            Rows(j).Insert
            Cells(j + 1, 2) = "Insertion"
            j = j + 2
        Else
            j = j + 1
        End If
 
Wend
 
MsgBox j
 
End Sub

Avez-vous une explication pourquoi cela bloque dans FOR NEXT?
Il me semble avoir déjà utilisé cela sans problème.

Merci d'avance

[casefayere]

Bonjour,
essayes comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim j As Integer
For j = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row To 2 Step -1
  If Cells(j, 1) = "a" Then
 
            Rows(j).Copy
            Rows(j).Insert
            Cells(j + 1, 2) = "Insertion"
        End If
 
Next j

[bucgif]

Bonjour

Merci, ça marche bien et on n'a pas besoin de réactualiser la valeur des compteurs de FOR.

Par contre j'aimerais comprendre pourquoi mon code, même s'il n'est peut être pas vraiment conseillé, ne marche pas.

Peut-on mettre à jour la valeur du compteur dans une boucle FOR ?

[Marc-L]

Bonjour,

oui on peut mais il faut rester logique …

[bucgif]

Bonjour

Oui, mais encore ?
Car une réponse de ce style ne m'aide pas vraiment !
Si je pose la question, c'est que je n'ai pas trouvé la logique.

[parmi]

Lorsque tu dois insérer ou effacer des lignes dans une boucle, la meilleure manière d'y arriver est de partir de la fin. À ce moment-là, tu n'as pas à interagir avec le compteur. (Même principe pour des colonnes)

Si tu utilises une boucle Do While ou Do Until, tu peux jouer plus facilement avec le compteur intégré à ta boucle.