Discussion :

[meryn]

Bonsoir ! je me demandais si il étais possible d'avoir un programme qui permet à ma feuille de refuser un double de donnée si celui-ci existe déjà. par un code vba qui s'exécute automatiquement. j'ai essayé la procédure excel des doublons mais ça marche pas vraiment.
Merci ! bonne soirée.

[mercatog]

j'ai essayé la procédure excel des doublons mais ça marche pas vraiment.

Laquelle?

Sinon, pour éviter la saisie d'une donnée en double en colonne A, ci-après code à mettre dans le module de la feuille

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Column = 1 And Target.Count = 1 Then
    If Application.CountIf(Range("A:A"), Target.Value) > 1 Then Application.Undo
End If
End Sub

[meryn]

bonsoir ! merci, je viens de l’essayer, . le code à l'air d'être le bon juste à la fin il se plante , disant il ya un code d'erreur .

dans mon userform j'ai taper dans ma zone de texte le même mot étant dans la feuille. juste à la dernière lettre apparaît un code d'erreur qui me demande " un débogage ou d'y mettre fin".

[SfJ5Rpw8]

Et ce message d'erreur , qu'attends tu pour le lire t le copier ici ?

[meryn]

Erreur d'exécution '1004':

La méthode 'Undo' de l'objet'_Application' a échoué

[mercatog]

Dans ton post #1, tu n'as pas parlé de ton userform.

Sinon, dans le bouton de validation des données inscrites dans les contrôles de ton userform, et avant de les rapatrier sur ta feuille, mets un test de type:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click() 'bouton de validation
 
With Worksheets("Feuil1")
    If Application.CountIf(.Range("A:A"), Me.TextBox1.Value) > 0 Then
        MsgBox Me.TextBox1 & " existe déjà dans la colonne A de la feuille Feuil1"
    Else
        .Cells(.Rows.Count, 1).End(xlUp)(2) = Me.TextBox1
    End If
End With
End Sub