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,