Pb combobox avec valeur numérique

[Dru]

Bonjour,

Mon problème est le suivant:
Dans une de mes macros, je compare la valeur d'une combobox avec la valeur des cellules d'une colonne.
Quand la cellule est trouvée, je fais apparaitre la valeur de la cellule qui est à sa droite.
Mon pb est que je me suis rendu compte que sa ne marche pas avec les valeurs entièrement numérique.
Connaissez vous ce pb et y a t il une solution ?
Voici un exemple simplifié:


Private Sub ComboBox1_Change()

Dim x
x = 1
Line1:
If Range('A' & x).Value = ComboBox1.Value Then
Textbox1.value = Range('B' & x).Value
Else
x = x + 1
GoTo Line1
Enf If

End Sub


Merci par avance.

 

[PascalXLD]

Bonjour

Essaies

If Range('A' & x).Value = val(ComboBox1.Value) Then

ou

If Range('A' & x).Value = CDbl(ComboBox1.Value) Then

EN effet dans ton combobox c'est du string que cela renvoie et non du numerique

 

[Dru]

Merci beaucoup !

Ca marche pour les chiffres (mais plus pour le texte).
Pour que ça marche pour le texte et les chiffres j'ai fait:

If Range('A' & x).Value = val(ComboBox1.Value) Or Range('A' & x).Value = ComboBox1.Value Then


Il y avait mieux ?

 

[PascalXLD]

Re

Excuse j'avais pas compris qu'il pouvait y avoir les deux

alors essaies ceci

If CStr(Range('A' & x).Value) = ComboBox1.Value Then

 

[Dru]

1 grand Merci !
Vous êtes vraiment rapide et efficace.

P.S: Ca c'est de l'altruisme !