XL 2016 aide avec la fonction index et equiv

[phil77]

bonjour a tous
j essaye de suivre ce tuto

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

mais cela ne fonctionne pas lorsque je change le nom et prenom dans la recherche rien ne s affiche
sauf le premier prenom et nom
merci de l aide

 

[job75]

Bonjour phil77,

En L6 de la feuille "liste" utilisez plutôt =CONCATENER([@[PRENOM ]];" ";[@NON])

l'en-tête étant NON au lieu de NOM...

A+

 

[phil77]

bonjour
merci pour la reponse
cela fonctionne mais a present je suis bloque avec la macro
je n ai pas la liste des noms dans ComboBox
et de plus impossible d enregistrer le fichier
merci de l aide

 

[job75]

Re,

Voyez le fichier .xlsm joint et cette macro :

Private Sub Combobox1_GotFocus()
ComboBox1.ListFillRange = [recherche].Address(External:=True)
End Sub

A+

 

[phil77]

re
un grand merci pour le fichier
mais je souhaiterais que lorsque je tape les premières lettres du prenom
je puisse choisir dans un choix restreins
je joins un classeur avec des noms et prenoms

 

[job75]

Re,

Private Sub Combobox1_GotFocus()
ComboBox1.MatchEntry = fmMatchEntryNone
ComboBox1 = ""
ComboBox1.ListFillRange = [recherche].Address(External:=True)
ComboBox1.DropDown 'déroule la liste
End Sub

Private Sub Combobox1_Change()
Dim tablo, a(), x$, i&, n&
tablo = [recherche].Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
ReDim a(1 To UBound(tablo), 1 To 1)
x = "*" & ComboBox1 & "*"
For i = 1 To UBound(tablo)
    If tablo(i, 1) Like x Then
        n = n + 1
        a(n, 1) = tablo(i, 1)
    End If
Next
ComboBox1.ListFillRange = ""
If n Then
    [Z:Z].ClearContents
    [Z1].Resize(n) = a
    ComboBox1.ListFillRange = [Z1].Resize(n).Address(External:=True)
    ComboBox1.DropDown 'déroule la liste
End If
End Sub

Fichier (2).

A+

 

[phil77]

bonsoir
un tout grand merci pour la reponse et le fichier
cela fonctionne plus qu a merveille
meilleurs vœux pour cette année nouvelle