Bonjour à tous,

Je viens à vous puisque je n'arrive pas à deux choses:

- Lorsque qu'il y a détection d'un doublon, ma Msgbox apparaît une première fois pour me dire le premier doublon apparaît à la ligne "X". Puis une deuxième fois pour me dire que le deuxième doublon est à la ligne "XX". Je souhaiterais faire apparaître le message qu'une seule fois en me disant "le N° de référence apparait deux fois, une fois à la ligne "X" et une fois à la ligne "XX".

-D'autre part, je n'arrive pas à coder pour faire apparaître la msgbox "aucun doublon détecté" s'il rien n'est trouvé.
J'ai essayé de coder :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 If Application.CountIf(Plage, Cel.Value) = "" Then
 
            MsgBox "il n'y a pas de doublons détectés"
       End if
Désolé pour le niveau de la question mais çà fait que deux semaines que je me suis lancé dans VBA et saisir la logique du code n'est pas chose facile !

Merci d'avance !!!

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButton4_Click()
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("Base de données")
 
    'en colonne "B" à partir de A19
       Set Plage = .Range(.Cells(19, 2), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
   For Each Cel In Plage
 
        If Application.CountIf(Plage, Cel.Value) > 1 Then
 
            MsgBox "Attention, la réference de l'Appel d'Offre '" & Cel.Value & "' existe déja," _
                   & " veuillez trouver un des doubles à la ligne '" & Cel.Address(0, 0) _
                   & ""
                   End If
 
 
 
    Next Cel
 
End Sub