XL 2010 2 éme ligne vide depuis la fin

[Atiom]

Bonjour,

Je souhaite obtenir une macro qu’efface le contenu entre la première et la deuxième ligne vide d’une colonne à l’envers.

En gros en commençant depuis la fin, il faut déterminer une plage comprise entre la première et la deuxième ligne vide d’une colonne (Ligne CE par exemple ) et effacer le contenu.

Merci de votre aide

 

[Victor21]

Bonsoir, Atiom.

Un contenu ne peut pas effacer une macro.

 

[Atiom]

Bonsoir Victor21,

Tu as raison !

Je vais essayer d’être un peux plus précis !

Exemple :

1) La colonne CE contient des cellules avec des valeurs et d’autres vides.

2) En partant depuis la fin ( ligne CE65536) effacer les cellules ( avec les valeurs ) comprises entre la première et la deuxième ligne vide.

Par exemple :

Première cellule vide depuis la fin - ligne 3650
Deuxième cellule vide depuis la fin - ligne 1620

Effacer les cellules entre les lignes 3650 et 1620.

 

[Victor21]

Re,

Si ça peut vous aider ...
Première cellule vide (matricielle) :

=MIN(SI(ESTVIDE($A$1:$A$100);LIGNE($A$1:$A$100)))

Deuxième cellule vide (matricielle) :

=MIN(SI(ESTVIDE(DECALER($A$1:$A$100;MIN(SI(ESTVIDE($A$1:$A$100);LIGNE($A$1:$A$100)));0));LIGNE(DECALER($A$1:$A$100;MIN(SI(ESTVIDE($A$1:$A$100);LIGNE($A$1:$A$100)));0))))

Nombre de cellule vides :

=NB.SI(A1:A100;"")

Dernière cellule (matricielle) :

=MAX((LIGNE(A1:A100)*(A1:A100<>"")))

PS : Depuis le 30 septembre 2006, et après 368 posts, vous omettez encore de joindre un fichier exemple ! Serait-ce la preuve que vous n'êtes pas pressé d'obtenir une réponse adaptée ? Ou que vous comptez sur les bénévoles pour se dém...patouiller ?

PS2 : Correction en rouge : cellule et non pas ligne...

 

[Atiom]

Re,

Voici un fichier.

Désolé si tu l’as pris comme ça !

 

[mapomme]

Bonjour à tous,

Peut-être :

Private Sub Worksheet_Activate()
Dim rgv1, rgv2
   Set rgv1 = Cells(Rows.Count, "ce").End(xlUp)
   Set rgv2 = Range("ce1:ce" & rgv1.Row).Find(what:="", after:=Range("ce1"), LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=xlPrevious)
   If Not rgv1 Is Nothing And Not rgv2 Is Nothing Then Range(rgv1, rgv2).Clear
End Sub

 

[Atiom]

Bonjour,
Impeccable!
Merci infiniment mapomme.