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

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 18 Mars 2020

• #31

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 🙂

 

Pièces jointes

• filtre_ajoutLign_test.xlsm

  39.9 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mars 2020

• #32

Pour copier ne pas copier la ligne entière :

VB:

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 18 Mars 2020

• #33

À quoi sert l'INTERSECT dans cette macro ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 18 Mars 2020

• #34

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

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 18 Mars 2020

• #35

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 18 Mars 2020

• #36

arthour973 à dit:

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

VB:

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

Cliquez pour agrandir...

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 😉)

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 18 Mars 2020

• #37

ha ok 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mars 2020

• #38

@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.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 18 Mars 2020

• #39

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. 🙁

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mars 2020

• #40

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 18 Mars 2020

• #41

OK. Merci 🙂

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 18 Mars 2020

• #42

Bonsoir à tous,

Un autre essai.

 

Pièces jointes

• arthour973- Aller cell vide- v1.xlsm

  37.2 KB · Affichages: 4

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 18 Mars 2020

• #43

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

 

Vote positif 0 Vote négatif