Discussion :

[borisp]

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

[casefayere]

Bonjour,

ou est placée ta macro ?
parce que si elle est placée dans un événement "Change", tu dois pouvoir compter directement le nombre de données égale avec "NB.SI" (CountIf) et provoquer le message si la valeur est supérieure à 1

[jerome.vaussenat]

Salut,

Tu n'est pas obligé de coder pour faire ce genre de chose, tu peux utiliser la validation des données.
Tu sélectionnes ta colonne. La A sauf erreur.
Dans l'onglet Données, Validation des données.
Dans la boîte de dialogue, tu as une liste Autoriser, tu choisis personnaliser.
Dans la zone formule, tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(A:A;A1)<=1

Dans l'onglet allerte d'erreur tu peux personnaliser le message affiché par Excel.
Pour en savoir plus sur le sujet, voici un peu de lecture
http://boisgontierjacques.free.fr/pa...n.htm#Doublons
En espérant que cela corresponde à ce que tu veux faire.

Mon point de vue, moins on code et mieux on se porte. Ce n'est qu'un point de vue, mais c'est le mien ...

[borisp]

Merci pour ces solutions (je connaissais), mais il s'agit de champ avec des formules. L'utilisateur doit pouvoir choisir deux valeurs en doubles, mais il doit ensuite les individualiser. S'il oublie de les individualiser mais qu'il lance la macro, c'est à ce moment là que je souhaiterai avoir le message d'erreur.
Merci pour votre aide

[DeathZarakai]

Dans ce cas là peut-être comme ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If r.Cells(n, 1) = r.Cells(n + 1, 1) And r.Cells(n,1) <> "" Then

DeathZarakai.

[borisp]

ça marche parfaitement!

Merci beaucoup!