Comparaison entre deux cellules

Résolu
Signaler
Messages postés
20
Date d'inscription
lundi 18 avril 2011
Statut
Membre
Dernière intervention
6 juillet 2011
-
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
-
Bonjour tous le monde,

Je cherche à trouver une correspondance entre deux listes d'applications, en fait je dois vérifier que la donnée de la première cellule est bien dans une des cellules de la deuxième colonne.
J'essaye en utilisant l'outil strcomp mais il me retourne toujours 0 que les données soient les mêmes ou pas.
Voici le code que j'ai tapé :
Public Function recherche_difference()

Dim i As Integer
Dim j As Integer
Dim result As Integer

Sheets("test").Select

i = 1
j = 1

Do While Not (IsEmpty(ActiveSheet.Range("A" & i)))

result = StrComp(Range("A" & i), Range("B" & j))

If result = 0 Then

i = i + 1

Else

j = j + 1

End If

Loop

MsgBox (result), vbInformation
'MsgBox "Attention une application n'est pas utilisée", vbCritical


End Function

4 réponses

Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
remplace :
result = StrComp(Range("A" & i), Range("B" & j))

If result = 0 Then

par :

If Sheets("test").Range("A" & i)<>Sheets."test").Range("B" & j Then


Dis moi si c juste.
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
PS peut être que à la place de <> tu dois mettre =. cela dépond de toi.
Messages postés
20
Date d'inscription
lundi 18 avril 2011
Statut
Membre
Dernière intervention
6 juillet 2011
1
parfait ça fonctionne merci beaucoup.
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
2riens. Bon code!!!