[VBA] - comparaison de 2 valeurs

[chewi]

Bonjour, (re pour certains)

Autre problème à l'ordre du jour:

Je teste deux valeurs, si elles sont égales, ma condition est bonne.
Seulement, je n'ai jamais de correspondance.
Et pourtant, à l'aide de 2 MsgBox, j'ai deux valeurs identiques.

MsgBox UfRouleauAV.TextBox1.Value 'retourne 27
MsgBox ActiveCell.Offset(-6, -1).Value 'retourne 27
If UfRouleauAV.TextBox1.Value = ActiveCell.Offset(-6, -1).Value Then
'ne trouve rien
???

Je ne comprend mais alors vraiment pas! Serait-ce dû au type de donnée ?

Merci d'avance

 

[wilfried_42]

Re : [VBA] - comparaison de 2 valeurs

bonjour chewi

Les cellules excel sont de type variant,elles prennent le type que l'on saisi. textbox est de type alpha, 27 en alpha et different de 27 en variant, 27 en variant en vba devient 27 en integer

donc :

If UfRouleauAV.TextBox1.Value = ActiveCell.Offset(-6, -1).Value Then

devient :

If val(UfRouleauAV.TextBox1.text) = ActiveCell.Offset(-6, -1).Value Then

 

[chewi]

Re : [VBA] - comparaison de 2 valeurs

Impeccable Wilfried! Tout fonctionne!

Merci