Recherche un nom dans un tableau

[maval]

Bonsoir

Je suis a la recherche d'un code pour retrouver un nom dans un tableau a l'aide d'un formulaire auquel se trouve un combobox donnant la liste des noms.

Je vous remercie d'avance

 

[phlaurent55]

Re : Recherche un nom dans un tableau

Bonjour Max,

il me semble avoir déjà répondu à cette question il y a quelques jours
j'avais même ajouté une MFC pour visualiser le pays recherché

c'est ici: https://www.excel-downloads.com/threads/recherche-un-nom.226569/

à+
Philippe

 

[maval]

Re : Recherche un nom dans un tableau

Bonsoir Philippe


Non sa n'a rien a voir se que tu ma fait me serre sur une autre feuille.
Je te remercie encore

Bonne soirée

 

[Dranreb]

Re : Recherche un nom dans un tableau

Bonsoir.

Private Sub UserForm_Initialize()
With Worksheets("Feuil2")
   Me.ComboBox1.List = .Range("D3:D" & .Range("D65536").End(xlUp).Row).Value
   End With
End Sub
Private Sub ComboBox1_Change()
Worksheets("Feuil2").Activate
Cells(Me.ComboBox1.ListIndex + 3, "D").Select
End Sub

P.S. Ah mais oui mais non, ce serait à localiser dans l'autre feuille je suppose ? Désolé les mêmes données sous deux formes différentes ça ne m'intéresse pas.

 

[maval]

Re : Recherche un nom dans un tableau

Bonsoir Dranreb

Je te remercie et tempi si sa ne t'intéresse pas.

Bonne soirée

 

[phlaurent55]

Re : Recherche un nom dans un tableau

Re,

Bonsoir Dranreb

Je te remercie et tempi si sa ne t'intéresse pas.

Bonne soirée

Le problème n'est pas d'être intéressé ou pas par la demande

Le problème est:

Comme la plupart des questions que tu poses sur le forum, elles manquent cruellement d'explications précises

à+
Philippe

 

[maval]

Re : Recherche un nom dans un tableau

Re,

Et bien laissé tomber?

 

[BOISGONTIER]

Re : Recherche un nom dans un tableau

Bonsoir,

Feuil2 ne sert à rien(redondance info)

Option Compare Text
Dim f1
Private Sub UserForm_Initialize()
  Set f1 = Sheets("base")
  Set d = CreateObject("Scripting.Dictionary")
  a = f1.[B5].CurrentRegion
  For Each c In a
    If c <> "" Then d(c) = ""
  Next c
  temp = d.keys
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox1.List = temp
End Sub

Private Sub ComboBox1_Change()
  f1.[B5].CurrentRegion.Find(Me.ComboBox1).Select
End Sub

JB

 

[maval]

Re : Recherche un nom dans un tableau

Bonsoir JB

Je te remercie beaucoup et te souhaite une bonne soirée