Microsoft 365 sélection 1ère ligne vide sans annuler le filtre

[Usine à gaz]

Bonsoir à toutes et à tous,

Malgré mes recherches et tentatives, je n'arrive pas à résoudre mon besoin suivant,
Le contexte :
Je filtre en sélectionnant un critère "cellule A3". Pour l'exemple, j'ai 240 lignes au total.
Mon besoin
Sélectionner la ligne après la dernière ligne NON VIDE, c’est-à-dire à partir de la ligne 241 en gardant les lignes filtrées SANS ANNULER LE FILTRAGE
Je ne suis pas certain que ce soit possible !
Auriez-vous la solution ? ça m'arrangerait bien 🙂
Je joins un fichier test.
Avec mes remerciements,
Je vous souhaite une belle journée,
Amicalement,
lionel

 

[Usine à gaz]

Re- Marcel32, Patrick,
@ Marcel32
Il s'agit maintenant de sélectionner un critère "cellule A3" et de copier la ligne 4 après la dernière ligne NON VIDE en gardant les lignes filtrées SANS ANNULER LE FILTRAGE.
Le principe reste le même que la demande initiale.

@ Patrick
Tes 2 codes fonctionnent bien. Merci à toi 🙂
"Arthour mange trop d'andouillette"... comment as-tu su ? 😉

Je remets le fichier avec tous les codes.
lionel 🙂

 

[job75]

Pour copier ne pas copier la ligne entière :

Sub Copier()
Dim derlig&, derlig1&
On Error Resume Next
derlig = Application.Match("zzz", [A:A])
derlig1 = Application.Match([9^99], [A:A])
derlig = IIf(derlig > derlig1, derlig, derlig1)
Intersect(Rows(4), ActiveSheet.UsedRange).Copy Range("A" & derlig + 1)
End Sub

 

[TooFatBoy]

À quoi sert l'INTERSECT dans cette macro ?

 

[Usine à gaz]

@ Marcel32 "À quoi sert l'INTERSECT dans cette macro ?"
Tu parles de cette macro ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a3")) Is Nothing Then
critere1
End If
End Sub

 

[Usine à gaz]

@ Gérard #post32
Encore une fois ... Merci Gérard 🙂

 

[TooFatBoy]

@ Marcel32 "À quoi sert l'INTERSECT dans cette macro ?"
Tu parles de cette macro ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a3")) Is Nothing Then
critere1
End If
End Sub

Non, je demande à Job de m'expliquer pourquoi il utilise Intersect dans sa macro en #32.
Est-ce que ça sert à ne pas faire la copie si la ligne 4 est vide ?
Est-ce que ça sert à autre chose ?

(j'en profite pour essayer d'apprendre des choses 😉)

 

[Usine à gaz]

ha ok 🙂

 

[job75]

@Marcel32 Intersect limite la ligne 4 à ce qui est dans le UsedRange.

De cette manière la hauteur de ligne n'est pas copiée.

 

[TooFatBoy]

Merci pour ta réponse. 🙂

Je pose une dernière question et après j'arrête de spammer ce fil. 😕

Je crois comprendre la première phrase puisque c'est le principe même de l'Intersect.
Mais je ne suis pas sûr de bien comprendre "la hauteur" dans la seconde phrase. 🙁

 

[job75]

La hauteur de la ligne 4 (ou des lignes masquées) est zéro.

 

[TooFatBoy]

OK. Merci 🙂

 

[mapomme]

Bonsoir à tous,

Un autre essai.

 

[Usine à gaz]

Bsr Mapomme, le Forum,
Merci pour ton code ça fonctionne aussi 🙂
Bonne fin de journée,
lionel,