Discussion :

[sara77]

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

[unparia]

Bonjour
Déjà (et règle de base) : lorsque l'on effectue une opération qui modifie les numéros de ligne (que ce soit une insertion ou une suppression) , on le fait de bas en haut et non de haut en bas. A ne pas le faire : croche-pieds assurés avec la numérotation des lignes.
Intéresse-toi à l'argument Step d'une boucle For ... TO ... Next

[kiki29]

Salut, en plus de la recommandation d'Unparia lire Dernière ligne et la dernière colonne renseignées d'une feuille qui t'aidera dans la construction de ta boucle For i= Derniere_Ligne to 2 step -1

P.-S. : Balise ton code du post 1

[souhail77]

Est ce le problème est résolue sara77 ??
car cette dernier solution marche bien pour moi

[sara77]

oui ca marche mercii bcq