XL 2021 Recherches de valeurs dans deux colonnes

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Constantin

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous,
J'ai déjà demandé à la communauté de m'éclairer sur ce thème. Gbinforme m'a proposé une solution qui correspondait bien à ma requête, malheureusement, je ne pas réussi à l'adapter au fichier joint. Sylvanu m'a montré comment faire avec les commandes d'Excel, c'est bien mais moins rapide qu'avec la solution de Gbinforme (XLD GBF) que je mets en ligne avec mon fichier qui reproduit la page anonymisée du fichier que, in fine, je veux modifier (BD MASSACRE V5). Ayant oublié comment envoyé de façon nominative (donc à Gbinforme et Sylvanu) je m'adresse à la communauté étant bien sûr ouvert à toutes les suggestions.
Bien à vous tous et bon dimanche.
Constantin
 

Pièces jointes

Solution
job75
Avant qu'on se quitte, puisque vous ne voulez pas qu'on touche à quoi que ce soit, utilisez uniquement cette macro :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([A3:A450,E3:F450], Target) Is Nothing Then Exit Sub
Dim site$, nom$, prenom$, i&, P As Range
site = [A3] & "*": nom = "*" & [E3] & "*": prenom = "*" & [F3] & "*"
Target.Select
Application.ScreenUpdating = False
Rows("4:" & Rows.Count).Hidden = False 'affiche tout
For i = 4 To 450
    If Not (Cells(i, 1) Like site And Cells(i, 5) Like nom And Cells(i, 6) Like prenom) _
        Then Set P = Union(IIf(P Is Nothing, Rows(i), P), Rows(i))
Next
If Not P Is Nothing Then P.Rows.Hidden = True
End Sub
Maintenant il n'y a plus de listes de validation en E3 et F3.
Trier par date Trier par votes
Ça m'ennuyait un peu de ne plus avoir de listes de validation en E3 et F3.

Mais il est bien plus simple d'y placer des boutons de filtre : la zone du filtre est E3:F450.

Edit : j'ai ajouté dans la macro :
VB: 
If Me.FilterMode Then Me.ShowAllData 'si la feuille est filtrée
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
ajouter une partie de code dans mon userform
Réponses
13
Affichages
2 K
AKRAMI
A
Retour