Discussion :

[KBrownie]

Bonjour,

je voudrais insérer une ligne en fonction des conditions dans ma colonne D pour faire si D2 est différent de D3, j'insère une ligne entre D2 et D3 si c'est vrai.

Pièce jointe 270773

Et avec monde code faire ça
Pièce jointe 270774

avec mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Inserer_une_ligne()
Dim i As Integer
Worksheets("Import").Activate
 
For i = 2 To 100
    If Cells(i, 4).Value = "" Then
    If Cells(i, 4).Value <> Cells(i + 1, 4) Then ActiveCell(i, 4).EntireRow.Insert
Next i
 
End Sub

mais je fais une mauvaise manip, pourriez vous m'aiguiller, svp ?

Merci bien

[halaster08]

Bonjour,

Essaye de boucler a l'envers (for i=100 to 2 step -1)

[KBrownie]

c'est bon j'ai resolu mon problème.
merci bien

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 Inserer_une_ligne()
Dim i As Integer
Worksheets("Import").Activate
 
For i = 2 To 100
    If Cells(i, 4).Value <> Cells(i + 1, 4) Then
    Rows(i + 1).Insert
 
    i = i + 1
    End If
 
 
Next i
End Sub