Insérer plusieurs lignes

Bonjour , pour insérer plusieurs lignes j'ai taper le code suivant:

Dim y as integer

For y = 6 To y = 30

Sheets("Suivi").Rows(y).Insert

Next y

Le programme ne se met pas en erreur mais n'insère pas mes lignes... Vous voyez ou j'aurais pu me tromper?

Merci!

Bonjour,

Ceci fonctionnera mieux ...

Dim y As Integer
For y = 6 To 30
Sheets("Suivi").Rows(y).Insert
Next y

ric

Super ça marche! merci! et une autre question, j'ai une autre boucle qui ne fonctionne pas:

Dim x As Integer

For x = 6 To 50

If Sheets("Suivi").Range("C" & x) = "" Then

Sheets("Suivi").Rows(x).Delete

End If

Next x

Sais tu pourquoi?

Bonjour,

Dans un cas tel que celui-ci, où il y a suppression de ligne dans la même feuille et dans la même plage, il faut procéder à reculons ... i.e. de bas en haut.

Dim x As Integer
For x = 50 To 6 Step -1
If Sheets("Suivi").Range("C" & x) = "" Then
Sheets("Suivi").Rows(x).Delete
End If
Next x

ric

Ça ne fonctionne pas , j'ai par exemple les lignes de 6 à 18 vides, puis de 19-20 remplie, et j'aimerais supprimer de 6 à 18 pour que les deux lignes rempli se remettent en haut, c'est a dire ligne 6 et 7.

Bonjour,

Ouupppssss!!!!!

Une petite coquille, j'ai corrigé le code précédent.

ric

Super ça marche! Un grand merci ric!