Bonjour à tous et merci par avance de l'aide que vous pourrez m'apporter!!
Malgré les nombreux sujets sur les doublons je ne trouve aucune réponse à mon problème:
Je voudrais empecher les utilisateurs d'entrer un doublon (que ce soit par la saisie clavier ou par un copié collé), voir le fichier en pièce jointe...
Il n'est pas inutile de souligner que mon fichier original est composé de 5000 lignes et 80 colonnes
Voilà un code de départ qui ne marche déjà pas:
Sub essai_doublon()
For i = 1 To 5000
For j = 1 To 5000
If i = j Then Exit Sub
If Cells(i, 10) = "" Then Exit Sub
If Cells(j, 10) = "" Then Exit Sub
If Cells(i, 10).Value = Cells(j, 10).Value Then MsgBox ("DOUBLON")
Next
Next
End Sub
Merci,
Doudo
Malgré les nombreux sujets sur les doublons je ne trouve aucune réponse à mon problème:
Je voudrais empecher les utilisateurs d'entrer un doublon (que ce soit par la saisie clavier ou par un copié collé), voir le fichier en pièce jointe...
Il n'est pas inutile de souligner que mon fichier original est composé de 5000 lignes et 80 colonnes
Voilà un code de départ qui ne marche déjà pas:
Sub essai_doublon()
For i = 1 To 5000
For j = 1 To 5000
If i = j Then Exit Sub
If Cells(i, 10) = "" Then Exit Sub
If Cells(j, 10) = "" Then Exit Sub
If Cells(i, 10).Value = Cells(j, 10).Value Then MsgBox ("DOUBLON")
Next
Next
End Sub
Merci,
Doudo