XL 2016 Copier des lignes entières spécifiques

[robertduval]

Bonjour
Je souhaite pouvoir coller des lignes entières suivant un texte précis, en gros si LAPIN est présent dans la plage (colonne A et B) alors copie la ligne entière en feuille 2, je me servais d'une extension avant qui fonctionnais bien mais elle est périmé maintenant, je l'aurais acheté mais elle ne me servait qu'a ça...
Merci

 

[vgendron]

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

 

[Bernard_XLD]

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]

 

[robertduval]

Oh.....merci yeahou nickel

 

[Bernard_XLD]

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, @+

 

[robertduval]

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

 

[Bernard_XLD]

Bonsoir

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

Cordialement, @+

 

[Bernard_XLD]

 

[soan]

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

 

[robertduval]

Merci a vous 2 j'ai trouvé

 

[Bernard_XLD]

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, @+

 

[robertduval]

mmm je vais tester tout ça

Merci encore

 

[job75]

Bonjour robertduval, vgendron, Yeahou, soan,

Une solution simple avec le filtre avancé :

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+

 

[robertduval]

Merci job75 je vais regarder ça aussi