Re : comparaison entre deux tableaux
Bonjour,
J’ai une petite remarque, vous travailler en base de données est cela dois être en tous point identique sur une comparaison exemple :
Tableaux 1 = id1 et Tableau 2 = ID1
J’ai donc avec la macro tous passé en Majuscule :
Tableaux 1 = ID1 et Tableau 2 = ID1
C’est impératif pour des points de comparaison identique.
La macro que j’ai faite fonctionne très bien mais elle est longue.
Je pense qu’il faudrait la travailler en variable Tableau, mais je ne maitrise pas encore suffisamment, mais celle-ci fonctionne. L’avantage c’est qu’avec les macros VBA ont est illimité sauf par sont imagination.
Dit moi si cela fonctionne chez vous
Au plaisir de vous lire est aussi vous aider dans votre projet si je peux.
Laurent
Ps : Votre fonction Fonctionne bien
Le code :
Sub RepérageIDClient()
fina = Range("a65536").End(xlUp).Row
finb = Range("G65536").End(xlUp).Row
' Nettoyage de la zone
Range(Cells(4, 15), Cells(finb, 17)).ClearContents
' Remetre en Minuscule
For Each c In Range(Cells(4, 7), Cells(finb, 7))
c.Value = UCase(c)
Next c
For Each c In Range(Cells(4, 1), Cells(fina, 1))
c.Value = UCase(c)
Next c
' Traitement des données
For Each c In Range(Cells(4, 7), Cells(finb, 7))
For K = 4 To fina
If Cells(K, 1) = c Then
Compteur = Compteur + 1
End If
Next K
'c.Offset(0, 10).Value = c ' Ref ID
c.Offset(0, 8).Value = Compteur ' Nombre de Ref ID identiques
' Test si = 0 (Inconu) si > 0 (Client)
If Compteur = Empty Then
c.Offset(0, 9).Value = "Inconnu"
Else
c.Offset(0, 9).Value = "Client"
End If
Compteur = 0 ' Remise a 0 du compteur
Next c
End Sub