Discussion :

[Invité]

Bonjour , j'ai un formulaire que je viens de développer ( merci à ce forum ) et j'ai un problème .
En fait , je cherche un code qui me permet de ne pas ajouter une ligne si la colonne "A" (qui est un Id ) est répétée .
et ce code ne doit pas impacter les autres boutons de commande " rechercher " et "fermer" .

[BENNASR]

Bonjour
à tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A" & Range("A65535").End(xlUp).Row)) Is Nothing Then
COMPARE = Cells(Target.Row, 1)
For i = 2 To Range("A65535").End(xlUp).Row - 1
    If Cells(i, 1) = COMPARE Then
        Cells(Target.Row, 1) = ""
        MsgBox ("Attention, vous avez entré un doublon" & vbLf & "Recommencez la saisie")
        Exit Sub
    End If
Next i
End If
End Sub

[Invité]

Merci beaucoup Bennaser pour votre réponse rapide .
Le code fonctionne mais un autre problème est toujours là , le code n'efface que la cellule de l'id , je voudrais bien avoir un qui efface toute la ligne , s'il vous plait .

[BENNASR]

bricolage
je suis qu'un autodidacte
mais si vous avez 4 colonnes :

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
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A" & Range("A65535").End(xlUp).Row)) Is Nothing Then
COMPARE = Cells(Target.Row, 1)
For i = 2 To Range("A65535").End(xlUp).Row - 1
    If Cells(i, 1) = COMPARE Then
        Cells(Target.Row, 1) = ""
        Cells(Target.Row, 2) = ""
        Cells(Target.Row, 3) = ""
        Cells(Target.Row, 4) = ""
        MsgBox ("Attention, vous avez entré un doublon" & vbLf & "Recommencez la saisie")
        Exit Sub
    End If
Next i
End If
End Sub

[Menhir]

Code :

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

        Target.EntireRow.ClearContents

[Invité]

@Bennaser , je sais pas pourquoi mais ce code ne marche pas pour moi , il fonctionne comme le précédant ( il ne supprime que la première colonne )

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
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A" & Range("A65535").End(xlUp).Row)) Is Nothing Then
COMPARE = Cells(Target.Row, 1)
For i = 2 To Range("A65535").End(xlUp).Row - 1
    If Cells(i, 1) = COMPARE Then
        Cells(Target.Row, 1) = ""
        Cells(Target.Row, 2) = ""
        Cells(Target.Row, 3) = ""
        Cells(Target.Row, 4) = ""
        MsgBox ("Attention, vous avez entré un doublon" & vbLf & "Recommencez la saisie")
        Exit Sub
    End If
Next i
End If
End Sub

Menhir, merci mais ce code je le place après le THEN ?

Code :

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

        Target.EntireRow.ClearContents

Excusez-moi, je suis une débutante

[BENNASR]

re
comme à indiqué menhir (bonjour) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A" & Range("A65535").End(xlUp).Row)) Is Nothing Then
COMPARE = Cells(Target.Row, 1)
For i = 2 To Range("A65535").End(xlUp).Row - 1
    If Cells(i, 1) = COMPARE Then
    Target.EntireRow.ClearContents
        MsgBox ("Attention, vous avez entré un doublon" & vbLf & "Recommencez la saisie")
        Exit Sub
    End If
Next i
End If
End Sub

mais attention ce n'est pas un code mais plutôt l'évenement worksheet_change
deux clix sur la feuille appropriée et mettre le code
voila un exemple

[Menhir]

Menhir , merci mais ce code je le place après le THEN ?

Quel est le message d'erreur ?

[Patrice740]

Bonjour,

Bonjour , j'ai un formulaire que je viens de développer .... .

Par formulaire qu'entends-tu ? Un formulaire VBA (userform) ou une feuille de calcul ?
Si c'est une feuille de calcul, tu pourrais simplement empêcher la saisie de doublon à l'aide d'une validation de donnée (pas besoin de VBA).