Combobox ne trouve pas la valeur recherchée

[Cougar]

Bonjour le forum,

Voici mon problème.

Je sélectionne une valeur avec un combobox et par la suite le code doit trouver cette dans la colonne A. Dans cette colonne j'ai des nombre sous format texte car je dois avoir un 0 devant.

Donc, pourquoi If activecell = combobox1 ne fonctionne pas pour les nombres ne commençants pas par un 0 ?

Voir le fichier joint.

Merci

 

[Pierrot93]

Re : Combobox ne trouve pas la valeur recherchée

Bonjour,

pas testé mais esssaye peut être ceci :

If CStr(ActiveCell) = combobox1 Then

bon après midi
@+

Edition : bonjour Hasco🙂

 

[Guest]

Re : Combobox ne trouve pas la valeur recherchée

Bonjour,

Puisque fait, ton module réécrit:
(utiliser listIndex pour retrouver la ligne puisque les données du combo sont dans l'ordre où elles sont dans la feuillle)

Private Sub CommandButton1_Click()
    If ComboBox1.ListIndex = -1 Or TextBox1 = "" Then Exit Sub
    With Feuil1.Range("B" & ComboBox1.ListIndex + 1)
        .Value = .Value + Val(TextBox1)
    End With
End Sub
Private Sub UserForm_initialize()
    With Worksheets("Feuil1")
        ComboBox1.List = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
    End With
End Sub
Private Sub CommandButton2_Click()
    Unload Me
    UserForm2.Show
End Sub

A+

Bonjour Pierrot🙂

 

[Cougar]

Re : Combobox ne trouve pas la valeur recherchée

Bonjour à vous 2, le forum,

Merci pour votre aide