Bonjour
Je souhaiterai créer une boucle qui insère une ligne si la colonne H & K sont différentes de la ligne du dessus.
Si 3 lignes sont identiques, la ligne vide sera insérée au-dessus de la 3e ligne (en partant du bas).
Voici la macro que j'ai crée :
For i = 13 To 3 Step -1
If Range("K" & i).Value = Range("K" & i - 1).Value And Range("H" & i).Value = Range("H" & i - 1).Value Then
If Range("K" & i).Value = Range("K" & i - 2).Value And Range("H" & i).Value = Range("H" & i - 2).Value Then
If Range("K" & i).Value = Range("K" & i - 3).Value And Range("H" & i).Value = Range("H" & i - 3).Value Then
Rows(i - 3).Insert
End If
Rows(i - 2).Insert
End If
Rows(i - 1).Insert
Else: Rows(i).Insert
End If
Next i
Le problème avec cette boucle est que si 4 lignes sont identiques, la ligne sera tout de même insérée au dessus de la 3e (en partant du bas), et j'aimerai qu'elle s'insère au dessus de la 4e.
Je sais qu'une boucle While serait plus adapté, mais je ne vois pas du tout comment la mettre en oeuvre.
Pourriez-vous m'aider svp?
Merci
Je souhaiterai créer une boucle qui insère une ligne si la colonne H & K sont différentes de la ligne du dessus.
Si 3 lignes sont identiques, la ligne vide sera insérée au-dessus de la 3e ligne (en partant du bas).
Voici la macro que j'ai crée :
For i = 13 To 3 Step -1
If Range("K" & i).Value = Range("K" & i - 1).Value And Range("H" & i).Value = Range("H" & i - 1).Value Then
If Range("K" & i).Value = Range("K" & i - 2).Value And Range("H" & i).Value = Range("H" & i - 2).Value Then
If Range("K" & i).Value = Range("K" & i - 3).Value And Range("H" & i).Value = Range("H" & i - 3).Value Then
Rows(i - 3).Insert
End If
Rows(i - 2).Insert
End If
Rows(i - 1).Insert
Else: Rows(i).Insert
End If
Next i
Le problème avec cette boucle est que si 4 lignes sont identiques, la ligne sera tout de même insérée au dessus de la 3e (en partant du bas), et j'aimerai qu'elle s'insère au dessus de la 4e.
Je sais qu'une boucle While serait plus adapté, mais je ne vois pas du tout comment la mettre en oeuvre.
Pourriez-vous m'aider svp?
Merci