Discussion :

[oscar.cesar]

bonjour
dans un combobox , je compare le contenu du combobox avec celui d'une cellule mais j'obtiens aucun resultat alors que j'ai une valeur identique !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
    If Sheets("feuil2").Range("M" & ligne).Value = ComboBox13.Value Then
       MsgBox (ComboBox13.Value)
       ComboBox6.Value = Sheets("feuil2").Range("A" & ligne).Value
    End If

en introduisant des msgbox pour controler le contenu des divers valeurs , j'obiens bien le resultat de la recherche, soit 2 valeurs identiques mais le test reste negatif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
If Sheets("feuil2").Range("M" & ligne).Value = ComboBox13.Value then
.......

peut etre un probleme de format ?
faut il preciser un format de cellule lors d'un test ?

[zebulon2212]

Si tes valeurs sont de type String normalement c'est pas la peine par contre je viens d'essyer pour le type integer et dans ce cas, il faut caster la valeur (avec int())
Par contre pour ta ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox6.Value = Sheets("feuil2").Range("A" & ligne).Value

je pencherai plutot pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox6.add()

[oscar.cesar]

bonjour
ok mais comment format les valeurs
ces dernieres doivent etre NUMERIQUE sans decimale!
sur les cellules , j'ai realise dans le tableau excel la mise en forme mais cela change rien ?

[zebulon2212]

Essaye comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Int(Sheets("feuil2").Range("M" & ligne).Value) = Int(ComboBox13.Value) Then
       MsgBox (ComboBox13.Value)
       ComboBox6.Value = Sheets("feuil2").Range("A" & ligne).Value
    End If

[oscar.cesar]

bonjour
j'ai tout passe en format TEXT et la ca marche !

bon

merci