Msgbox détection doublon sans détection des lignes vides
Bonjour,
Je me tourne vers le forum une nouvelle fois pour un problème que je cherche à résoudre après plusieurs recherches infructueuses :
Dans une macro, je cherche à détecter les doublons afin d'alerter l'utilisateur. Le code suivant fonctionne mais je souhaiterais qu'il ne prenne pas en compte les lignes vides, qui ressortent donc comme des doublons avec ce code.
Merci par avance pour votre aide.
Code:
1
2
3
4
5
6
7
8
9
10
| Set r = Range("C9:C84")
' Spécifie la plage exacte à couvrir
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
If MsgBox("Attention, il n'est pas possible deux sections d'analyse avec le même code. Merci de vérifier votre saisie", vbCritical, Attention) = vbOK Then
End If
Exit Sub
End If
Exit For
Next n |
