Bonjour,
Je suis novice en VB j'ai trouver un bout de code que j'ai adapter mes besoins
simplement j'aimerai améliorer une fonction qui n'est pas pratique pour ce que je veux faire.
Je veux comparer ma colonne A avec la C et inscrire les doublons dans la colonne D
je parviens a comparer mes 2 colonnes mais je ne parviens pas a ecrire les doublons dans la 3 eme colonne
en gros je voudrais savoir par quoi remplacer "MsgBox ("référence présente dans les deux listes => ligne " & j) "
Merci d'avance pour vos réponse ( mes vacances de fin d'année en dépendent )
Je suis novice en VB j'ai trouver un bout de code que j'ai adapter mes besoins
simplement j'aimerai améliorer une fonction qui n'est pas pratique pour ce que je veux faire.
Je veux comparer ma colonne A avec la C et inscrire les doublons dans la colonne D
je parviens a comparer mes 2 colonnes mais je ne parviens pas a ecrire les doublons dans la 3 eme colonne
en gros je voudrais savoir par quoi remplacer "MsgBox ("référence présente dans les deux listes => ligne " & j) "
Merci d'avance pour vos réponse ( mes vacances de fin d'année en dépendent )
Code:
Sub comparaison()
'
' comparaison Macro
' Macro enregistrée le 29/12/2010 par aurel
'
Dim VALEURA As String, VALEURB As String
'
For i = 1 To 2108
VALEURA = Range("A" & i).Value
For j=1 to 4210
VALEURB = Range("C" & j).Value
If VALEURA = VALEURB Then
MsgBox ("référence présente dans les deux listes => ligne " & j)
End If
Next j
Next i
End Sub