Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche un nom dans un tableau

  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

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 !

maval

XLDnaute Barbatruc
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
 

Pièces jointes

Re : Recherche un nom dans un tableau

Bonsoir.
VB:
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.
 
Dernière édition:
Re : Recherche un nom dans un tableau

Bonsoir,

Feuil2 ne sert à rien(redondance info)

Code:
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
 

Pièces jointes

Dernière édition:
- 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

Réponses
18
Affichages
373
Réponses
5
Affichages
258
Réponses
3
Affichages
123
Réponses
4
Affichages
512
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…