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

Usine à gaz

XLDnaute Barbatruc

• 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

• 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

• 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

• 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

• 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