1 pièce(s) jointe(s)
Problème de comparaison de 2valeur en VBA avec caractères spéciaux
Bonjour,
je rencontre un problème pour comparer 2 valeurs avec une macro VBA lorsque les valeurs contiennent des caractères spéciaux (underscore).
Jai créé un petit exemple simple en pièce jointe.
Colonnes A et B : les valeurs à comparer
Colonnes C : le résultat attendu de la comparaison à partir de la formule suivante : C1=SI(A1<B1;"INF";"SUP"). Je souahite effectuer le même test via une macro.
Colonne D: le résultat obtenu par la macro :
Code:
1
2
3
4
5
6
7
8
9
10
11
| Private Sub test()
For i = 1 To 3
With ActiveSheet
If .Cells(i, 1) < .Cells(i, 2) Then
.Cells(i, 4) = "INF"
Else
.Cells(i, 4) = "SUP"
End If
End With
Next i
End Sub |
Je n'obtiens pas le même résultat (1ière ligne du fichier).
Cela semble lié à la présence de caractères spéciaux dans les données à comparer.
Je voudrais obtenir un test dans ma macros qui renvoie la même valeur que la formule (qui est conforme à l'ordre croissant obtenu par un tri).
Pouvez vous m'aider ?
Merci par avance
