franck6983
Messages postés20Date d'inscriptionlundi 18 avril 2011StatutMembreDernière intervention 6 juillet 2011
-
19 avril 2011 à 16:30
4u4me4us
Messages postés780Date d'inscriptionlundi 22 janvier 2007StatutMembreDernière intervention30 octobre 2013
-
19 avril 2011 à 17:13
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