Recherche Contact

Bonjour,

J’ai un fichier pdf pour gérer mes contacts de fournisseurs.
J’ai différentes colonnes les voici :
Fournisseur / Nom / Prénom / Numéro de Téléphone / Adresse Mail / Type de Fournisseur / Autre

Je souhaite que sur la première page lorsque je recherche une des différentes informations ça m’affiche les lignes entières correspondantes.

Par exemple si je recherche « Fournisseur X » et que il y a plusieurs contacts, je souhaite que ça
m’affiche tout les contacts de ce fournisseur et leurs informations.

Est-ce possible ?
Gestion des Contacts - Copie Forum.xlsx (13,4 Ko)

Bonjour
oui, c’est possible, tout dépends de la version Excel que vous avez…

Gestion des Contacts - Copie Forum.xlsx (14,7 Ko)

Bonjour, j’ai Excel Office Famille et Petite Entreprise 2019.
Visuellement ce que vous avez fait c’est ce que je veux obtenir. Sauf que lorsque je change par exemple en « Fournisseur 2 » la case de recherche j’ai des messages d’erreur qui apparaissent partout.

Comment faire ?

Merci d’avance !

Bonjour,
Une mise à jour d’après le fichier de @taz067 ,

Gestion des Contacts - Copie Forum.xlsx (20,1 Ko)
Cordialement

Hummm, chez moi ça fonctionne, normalement avec office 2019 ça devrait fonctionner
j’ai rajouté quelque fonction de recherche
Gestion des Contacts - Copie Forum.xlsx (15,9 Ko)

Re, @taz067 ,
Je qu’il a mie Presentation2 sans espace.
Je confirme pour votre fichier, ca fonction parfaitement
Will-Fread

Je n’arrive pas a comprendre pourquoi mais a chaque fois que je change de mot en recherche ca me met des erreurs #Nom? partout…
Faut-il des paramétrages spéciaux pour ce type de fonction ?
Arpop

voilà sur le même principe avec liste déroulante
Gestion des Contacts - Copie Forum.xlsx (16,2 Ko)

Re,
Je crois que vous n’avez pas encore la fonction (FILTRE) sur votre version

Il me semble que la fonction filtre est à partir de la version 2016 d’Office

Re,
FILTRE.XML peut être mais la fonction Filtre a été ajoutée qu’à partir de la version 365

Oui, je viens de voir après une recherche…
j’ai aussi trouvé ceci en vba, mais la j’y comprends pas grand chose…

Function FILTR(ByVal TDonn, ByVal TCond)
   Dim LE&, LS&, C&
   If TypeOf TDonn Is Range Then TDonn = TDonn.Value
   If TypeOf TCond Is Range Then TCond = TCond.Value
   For LE = 1 To UBound(TDonn, 1)
      If TCond(LE, 1) Then
         LS = LS + 1
         For C = 1 To UBound(TDonn, 2)
            TDonn(LS, C) = TDonn(LE, C)
            Next C: End If: Next LE
   Do While LS < UBound(TDonn, 1)
      LS = LS + 1
      For C = 1 To UBound(TDonn, 2)
         TDonn(LS, C) = ""
         Next C: Loop
   FILTR = TDonn
   End Function
1 « J'aime »

ça doit faire partie du problème aussi…

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.