Problème d'égalité avec un IF

[Alpha41]

Bonjour à tous,

J'ai un problème d'égalité dans un If.
Pour que ce soit le plus clair possible j'ai fait des captures d'écrans des 2 données comparées et du code en question.
Je cherche à comparer la donnée saisie dans la feuille A ( RemoteIEC61850) à celle de la feuille B (IO_IEC).

Cependant comme vous pouvez le voir sur les screens, les 2 données sont bien identiques mais pas pour le If!

If wksRemoteIEC.Cells(lRowRemoteIEC, lColRemoteIEC61850Tds) = wksIO_IEC.Cells(lRowIO_IEC, lColIO_IECS) _
                   Then

Merci d'avance,

Nicolas

 

[tototiti2008]

Re : Problème d'égalité avec un IF

Bonjour Alpha41,

Est-ce que tu pourrais nous faire un copier/coller valeurs de ces 2 cellules dans un classeur et nous le fournir (mes yeux ne sont plus ce qu'ils étaient )
A noter que ton If fait 3 tests, es-tu sûr que c'est ce test qui ne fonctionne pas ?

 

[Alpha41]

Re : Problème d'égalité avec un IF

Bonjour !

Tu es trop rapide j'ai fait des éditions pour le rendre plus clair! Oui justement j'ai fait le test sur une seule composante de mon if et ça ne marche pas! Pas de soucis C/C :

M120_GGIO1$ind4$stVal
M120_GGIO1$Ind4$stVal

 

[Alpha41]

Re : Problème d'égalité avec un IF

Toto tu m'a aidé sans le vouloir !

En faisant le copié collé j'ai remarqué que la majuscule n’était présente que dans un des cas! Et c'est bien ça le problème

Merci encore

 

[tototiti2008]

Re : Problème d'égalité avec un IF

Re,

VBA est sensible à la casse, ça veut dire que pour lui une majuscule n'est pas égale à une minuscule
Si tu ne veux pas tenir compte de la casse, tu peux essayer

If UCase(wksRemoteIEC.Cells(lRowRemoteIEC, lColRemoteIEC61850Tds)) = UCase(wksIO_IEC.Cells(lRowIO_IEC, lColIO_IECS)) _
                   Then

 

[Alpha41]

Re : Problème d'égalité avec un IF

Re,

J'ai fait ce que tu m'a dis c'est bien mieux que de demander à l'utilisateur de faire bien attention
Merci encore et bonne journée !