Eviter la copie d'un même nb dans une même colone

[Newdelirium]

Bonjour, voila j'ai un tableau excel avec une colonne dans laquelle on y place des numéros de série. Je voudrai éviter que l'utilisateur entre deux fois le même numéro de série mais je ne connai pas la formule (ou autre) a employé. Merci de votre aide.

 

[jp14]

Bonjour

Voir ce site
Ce lien n'existe plus

Formules fonctions Eliminations des doublons

 

[porcinet82]

Salut Newdelirium, jp14,

Comme j'étais en train de rédige une réponse, je la poste. Dans le fichier joint, le control est effectué sur la colonne A. Si tu rentres une données dans cette colonne et qu'elle existe deja au sein de cette meme colonne, le message 'Ce n° existe deja' apparait, et le contenu de la cellule est effacé.
Le code se trouve dans le module de la feuil1.

[file name=Newdelirium.zip size=6768]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Newdelirium.zip[/file]

Tiens nous au courant.

@+

 

[Newdelirium]

Re:Eviter la copie d'un même nb dans une même colo

Je te remercie, c'est bien sa, bonne fin de journée

 

[Newdelirium]

Re:Eviter la copie d'un même nb dans une même colo

J'ai encore un petit probléme j'ai essayé d'appliqué ta formule a mon fichier, j'ai donc changer le A65536 par C65536 pour l'appliquer a la colonne C, seulement quand je fait sa il me met le message seulement quand la case est vide (donc je l'éfface moi même) et m'affiche le message tout le temps sans me laissé écrire la nouvelle valeur.

 

[porcinet82]

Re:Eviter la copie d'un même nb dans une même colo

re,

Modifie le code comme suit :
For i = 1 To Range('C65536').End(xlUp).Row
If Cells(i, 3).Value = Target.Value Then

@+

 

[pat1545.]

Re:Eviter la copie d'un même nb dans une même colo

Salut,

pour repérer les doublons facilement en colonne E:

=NB.SI($E$1:$E$8;E1)>1 tu le mets en C1 et puis tu copies le format vers le bas.

à adapter

Patrick

 

[Newdelirium]

Re:Eviter la copie d'un même nb dans une même colo

porcinet82 écrit:

re,

Modifie le code comme suit :
For i = 1 To Range('C65536').End(xlUp).Row
If Cells(i, 3).Value = Target.Value Then

@+

J'avais essayé aussi sa ne fonctionne pas.

 

[Bruno]

j'ai téléchargé le fichier xls new delirium mais marche pas...que je tape un chiffre déjà présent ou non , il y a le message d'erreur

Peux tu m'aider?
Bruno

 

[Charly2]

Bonsoir Newdelirium, jp14, porcinet82, pat1545 et Bruno 🙂

Puisque la solution par vba semble convenir, je vous propose une version légèrement modifiée du fichier de mon ami porcinet82.

Dans le cas où vous préfèreriez une solution différente, la formule de pat1545 peut aisément être mise dans une mise en forme conditionnelle.

[file name=NewdeliriumV2.zip size=7989]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/NewdeliriumV2.zip[/file]

A+ 😉

 

[Newdelirium]

Re:Eviter la copie d'un même nb dans une même colo

Charly2 écrit:

Bonsoir Newdelirium, jp14, porcinet82, pat1545 et Bruno 🙂

Puisque la solution par vba semble convenir, je vous propose une version légèrement modifiée du fichier de mon ami porcinet82.

Dans le cas où vous préfèreriez une solution différente, la formule de pat1545 peut aisément être mise dans une mise en forme conditionnelle.

[file name=NewdeliriumV2.zip size=7989]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/NewdeliriumV2.zip[/file]

A+ 😉

Sa marche niquel merci l'ami!!!

 

[porcinet82]

Re:Eviter la copie d'un même nb dans une même colo

Bonsoir tout le monde,

Charly2, merci d'etre venu a la rescousse, apparement ta solution a eu plus de succes que la mienne.
Je viens d'ailleurs de la retester, je n'ai pas de message d'erreur, le seul soucis, c'est que le control ne s'effectuait pas sur la seule colonne C. Ainsi, j'ai modifier le code, et celui-ci fonctionne correctement :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer

If Intersect(Range('C:C'), Target) Is Nothing Then Exit Sub
For i = 1 To Range('C65536').End(xlUp).Row
    If Cells(i, 3).Value = Target.Value Then
        MsgBox 'ce n° existe deja'
        Target.ClearContents
        Exit Sub
    End If
Next i
End Sub

Bonne nuit,

@+