Bonjour
quelqu'un peut-il me donner un coup de main pour résoudre le problème suivant ?
j'aimerais insérer automatiquement une ligne vierge en dessous a chaque fois la condition est vrai.
Je suis arrive a bricoler un truc qui ne fonctionne pas correctement
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
23
24
25
26
27
28
29
30
Sub inserer()
 
Dim i As Integer, Fichier As Worksheet, NbLigne As Integer
 
Set Fichier = ThisWorkbook.Sheets("test")
'le nombre des ligne
 
Fichier.Range("B1").Select
'Boucle tant que pas vide
Do While Not (IsEmpty(ActiveCell))
NbLigne = NbLigne + 1
Selection.Offset(1, 0).Select
Loop
 
MsgBox NbLigne
 
   Fichier.Activate
 
   For i = 2 To NbLigne
 
If Trim(Range("C" & i)) <> Trim(Range("C" & i + 1)) Then
 
    Rows(i).Insert
 
       End If
 
  Next i
 
 
End Sub