combobox

[apdf1]

Bonjour et bonne année à tous

Voila j'ai un userform qui marche trés bien, grasse à l'aide de JNP et Laetitia mais j'aimerais rechercher les valeurs de ma feuille à l'aide du combobox

Merci d'avance

Ci joint mon fichier
Max

 

[jp14]

Re : combobox

Bonjour

La recherche doit porter sur quelle valeur ?
Les Nom, les dates , ...

JP

 

[Softmama]

Re : combobox

Bonjour,

Une proposition à copier dans le module de ton userform, voire si ça correspond à ce que tu veux faire, en gros ?

Private Sub UserForm_Initialize()
Dim c As Range
    On Error Resume Next
    For Each c In Intersect(Range("5:65000"), ActiveSheet.UsedRange).SpecialCells(xlCellTypeConstants, 23)
        Me.ComboBox1.AddItem c.text
    Next c
End Sub

[Edit] @JP14 Dans mon cas, j'ai mis, noms, date, tout en vrac quoi

 

[Softmama]

Re : combobox

Re,

Heu j'ai oublié de noter l'autre macro qui va avec la première ^^ :

Private Sub ComboBox1_Change()
Dim c As Range
Set c = Cells.Find(what:=Me.ComboBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
Me.TextBox1 = Cells(c.Row, 2).Text
Me.TextBox3 = Cells(c.Row, 3).Text
Me.TextBox4 = Cells(c.Row, 4).Text
Me.TextBox5 = Cells(c.Row, 5).Text
Me.TextBox6 = Cells(c.Row, 6).Text
Me.TextBox7 = Cells(c.Row, 7).Text
Me.TextBox8 = Cells(c.Row, 8).Text
End Sub

 

[jp14]

Re : combobox

Bonjour

Avec cette macro un "textbox" sera aussi efficace qu'un combobox.
Un "combobox" ou plutôt une "listbox" permettra de sélectionner une valeur existante cela évite des erreurs de saisie.

JP

 

[apdf1]

Re : combobox

Re,

Oui j'ai oublié la recherche doit porter sur les noms !!!

merci beaucoup

Max

 

[Softmama]

Re : combobox

Re, modifie la 1ère macro comme ceci :

Private Sub UserForm_Initialize()
Dim c As Range
    On Error Resume Next
    For Each c In Intersect(Range("B:B"), ActiveSheet.UsedRange).SpecialCells(xlCellTypeConstants, 23)
        Me.ComboBox1.AddItem c.text
    Next c
End Sub

 

[apdf1]

Re : combobox

Re,

Je te remercie beaucoup Softmama

Bonne journée

Max