doublon

[gerard55]

Bonjour à tous
Dans une colonne, de a3: a30 j'ai un certain nombre de mots d'écrit avec parfois des cellules vide. Je voudrais qu'excel m'affiche un message d'erreur lors du lancement d'une macro quand il y un nom qui est écrit 2 fois.
Merci pour vos suggestions
a+

 

[matthieu33]

Re : doublon

Bonjour Gerard55,

Voici le code VBA à mettre dans la ThisWorkbook

Private Sub Workbook_Open()
    Dim lgLig1 As Long
    Dim lgLig2 As Long
    
    ' Feuille à traiter
    With Worksheets("Feuil1")
        ' Boucle de la ligne 3 à 30
        For lgLig1 = 3 To 30
            ' Boucle de la ligne 4 à 30
            For lgLig2 = lglig + 1 To 30
                ' Si doublon, message
                If lgLig1 <> lgLig2 And .Range("A" & lgLig1) <> "" _
                    And .Range("A" & lgLig2) <> "" _
                    And .Range("A" & lgLig1) = .Range("A" & lgLig2) Then
                    
                    MsgBox "Il existe des doublons", vbInformation, "Attention..."
                    Exit Sub
                End If
            Next lgLig2
        Next lgLig1
    End With
End Sub

@+

 

[gerard55]

Re : doublon

Bonsoir Mathieu
Merci pour ce code. Il fonctionne, mais, le message s'affiche à l'ouverture du classeur. Alors que, je voudrais -soit un message immédiatement suite à une double saisie
-soit lors du lancement de la macro mais là, je ne vois pas comment la lancer. Car, je lance d'autre macro en même temps. Alors avec la méthode Call je pourrait l'appeler mais là je ne vois pas comment
Merci pour les suggestions
a+

 

[matthieu33]

Re : doublon

Bonsoir Gerard55,

Une nouvelle version lors de la saisie de données entre les cellules A3:A30
Tu mets ce code dans la feuille Feuil1 par exemple

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lgLig As Long
    
    If Not Intersect(Target, Range("A3:A30")) Is Nothing And Target.Count Then
        ' Boucle de la ligne 3 à 30
        For lgLig = 3 To 30
            ' Si doublon, message
            If Range("A" & lgLig) <> "" _
                And Target.Row <> lgLig _
                And Range("A" & lgLig) = Target.Value Then
                        
                MsgBox "Il existe des doublons", vbInformation, "Attention..."
                Exit Sub
            End If
        Next lgLig
    End If
End Sub

@+

 

[Banzai64]

Re : doublon

Bonjour

Mon petit grain de sel

Sélectionne A3:A30
Menu : données --> validation

Personalisée avec comme formule
=NB.SI($A$3:$A$30;A3)<2

Mais si tu veux vraiment du VBA : Sorry

 

[abc]

Re : doublon

Bonsoir,
a placer en VBA
Private Sub Worksheet_Change(ByVal cellule As Excel.Range)
If cellule.Column = 1 Then
If Application.WorksheetFunction. _
CountIf(Range("A:A"), cellule.Value) > 1 Then
MsgBox "Hola ! J' y suis déja "
cellule.Value = ""
cellule.Select
End If
End If
End Sub
A +

 

[gerard55]

Re : doublon

OK je vous remercie. Cependant, la validation de BAZAI 64 semble difficile à adapter. Excel refuse cette formule. Le code VBA fonctionne.
A+

 

[Banzai64]

Re : doublon

Bonjour

Soit je n'ai rien compris mais ce que j'ai proposé fonctionne

la preuve