Suppression de ligne

[romualdlecordier]

Bonjour

J'ai un fichier excel et j'aimerai que la macro supprime automatiquement des lignes

Dans mon exemple j'aimerais que la macro supprime automatiquement ce qui se trouve en jaune. Attention les numéros de ligne peuvent changer

Merci de votre aide
Romuald

 

[mfb]

Re : Suppression de ligne

Bonjour à tous,
Romuald
As tu quelques infos complémentaires quant aux lignes à supprimer.
Par exemple seront-elles toujours de couleur jaune ou tout autre signe distinctif des lignes à conserver ?

A+
Daniel

 

[camarchepas]

Re : Suppression de ligne

Bonjour,

Quel est le critère de sélection des lignes , les lignes à supprimées sont elles réellement jaunes dans le fichier avant suppression

 

[romualdlecordier]

Re : Suppression de ligne

Bonjour

il faut supprimer toutes les qui se trouve après la première ligne vide.
Il faut aussi supprimer la ligne vide

Esperant avoir été clair

Romuald

 

[mfb]

Re : Suppression de ligne

Re,
Romuald,
Essaie ce petit de code dans un bouton.
Ceci ne supprime pas les couleurs et implique que
la colonne A soit toujours renseignée.

Dim lig As Long
lig = Range("A65536").End(xlUp).Row
For n = 1 To lig

If Cells(n, 1) < 1 Then
x = n
Rows(x & ":" & lig).Select
Selection.Delete Shift:=xlUp
End If
Next n

A+
Daniel