XL 2016 Copier des lignes entières spécifiques

vgendron

XLDnaute Barbatruc

• 4 Juillet 2021

• #2

Hello

Vas voir ici, je pense qu'à peu de choses près, ca peut répondre à ton besoi

Microsoft 365 - Appliquer un filtre sur deux colonne (ou plus)

Bonjour, j'ai un problème à priori simple d'apparence mais que je n'arrive pas à résoudre. Mon but étant de régler ça de la façon la plus simple possible. Alors, pour commencer, plantons le contexte. Je joue personnellement à Tekken 7, un jeu de combat 3D dans lequel une part importante de la...

www.excel-downloads.com

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 4 Juillet 2021

• #3

Bonjour robertduval, vgendron, leforum

@robertduval , c'est dimanche, il pleut, les mazagins sont fermés !
alors je t'ai codé une petite interface pour passer le temps.
Bons tests !

Bien cordialement, @+

[édition : nouvelle version dans ce post]

 

Dernière édition: 5 Juillet 2021

Vote positif 0 Vote négatif

R

robertduval

XLDnaute Junior

• 4 Juillet 2021

• #4

Oh.....merci yeahou nickel😵

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 4 Juillet 2021

• #5

re,

un petit bug d'affichage réglé quand on filtre sur modification de la ligne de début.
j'ai mis à jour le fichier du post 3

Bonne soirée
Bien cordialement, @+

 

Vote positif 0 Vote négatif

R

robertduval

XLDnaute Junior

• 4 Juillet 2021

• #6

J'avais pas vu 🙁 merci, dis moi y a moyen de voir le code je suis en mode développeur mais je vois rien 🤔

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 4 Juillet 2021

• #7

Bonsoir

tout le code, à part le lancement du userform lui même, est dans le module du userform.

Cordialement, @+

 

Dernière édition: 5 Juillet 2021

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 5 Juillet 2021

• #8

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 5 Juillet 2021

• #9

Bonjour Robert, Yeahou, vgendron,

si tu es sur Excel, fais Alt F11 ➯ fenêtre "Microsoft Visual Basic" ; si tu es déjà sur cette fenêtre, alors même sans être en mode Développeur, tu dois voir au moins la partie gauche de l'image du post #8 ; au cas où ce n'est pas le cas, fais Ctrl r pour voir la fenêtre "Projet" ; ou Affichage / Explorateur de projets ; tu peux aussi appuyer sur la touche F4 pour voir la fenêtre "Propriétés" ; ou Affichage / Fenêtre Propriétés.

au cas où côté droit tu ne vois pas le code de Yeahou, dans la fenêtre "Projet" (donc en haut à gauche) : fais un double-clic sur "UF_Filtre_Copie" ➯ à droite, ça ouvre la feuille du module de ce UserForm ; rappel : UserForm est le mot anglais pour "formulaire".

au cas où tu n'as pas vu "UF_Filtre_Copie", tu peux aller à l'église pour brûler un cierge et demander un miracle ... ou peut-être qu'il te faut simplement cliquer sur le « + » qui est à gauche du dossier jaune "Feuilles" ? c'est là que sont rangés les formulaires UserForm ; et non pas les feuilles de calcul ! (qui sont situées plus haut, au-dessus de ThisWorkbook, dans le dossier jaune "Microsoft Excel Objets") ; c'est limpide, hein ? 😁 🤪 😂 🤣​

non, le « + » n'est pas la croix de Jésus ! (même si ici-bas, en ce bas-monde, chacun porte sa croix... 😭)

---

pour retourner sur Excel, tu peux aussi faire Alt F11 ; bon, ok, ça n'équivaut pas à une résurrection, mais c'est tout d'même mieux que rien... 😜​

soan

 

Dernière édition: 5 Juillet 2021

Vote positif 0 Vote négatif

R

robertduval

XLDnaute Junior

• 5 Juillet 2021

• #10

Merci a vous 2 j'ai trouvé 😉

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 5 Juillet 2021

• #11

Bonjour le fil, le forum

une petite modification pour gérer directement le tableau entier ou la sélection (pour la sélection, il faut que la feuille active soit celle du tableau de données à l"instant de l'action)
l'userform étant non modal, la sélection peut se faire et se modifier au fil de l"eau.
[fichier modifié : amélioration de l'interface, désactivation de la complétion automatique du filtre et valeurs proposées de la combox filtrées]

Bien cordialement, @+

 

Pièces jointes

• test-1.xlsm

  43.8 KB · Affichages: 5

Dernière édition: 5 Juillet 2021

Vote positif 0 Vote négatif

R

robertduval

XLDnaute Junior

• 5 Juillet 2021

• #12

🤗 mmm je vais tester tout ça

Merci encore

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Juillet 2021

• #13

Bonjour robertduval, vgendron, Yeahou, soan,

Une solution simple avec le filtre avancé :

VB:

Private Sub CommandButton1_Click()
Dim F As Worksheet, x$
Set F = Feuil2 'CodeName à adapter
x = InputBox("Texte à rechercher :", "Rechercher")
If x = "" Then Exit Sub
F.Cells.Clear 'RAZ
[F2] = "=COUNTIF(A2:B2,""*" & x & "*"")" 'critère
[A1].CurrentRegion.AdvancedFilter xlFilterCopy, [F1:F2], F.[A1] 'filtre avancé'
[F2] = ""
F.Columns("A:B").AutoFit 'ajustement largeurs
F.Activate
End Sub

A+

 

Pièces jointes

• test(1).xlsm

  23 KB · Affichages: 4

Vote positif 0 Vote négatif

R

robertduval

XLDnaute Junior

• 6 Juillet 2021

• #14

Merci job75 je vais regarder ça aussi

 

Vote positif 0 Vote négatif