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 : Sélectionner tout - Visualiser dans une fenêtre à part
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