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

J

jp14

XLDnaute Barbatruc

• 18 Février 2006

• #2

Bonjour

Voir ce site
Ce lien n'existe plus

Formules fonctions Eliminations des doublons

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 18 Février 2006

• #3

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.

@+

 

Pièces jointes

• Newdelirium.zip

  6.6 KB · Affichages: 22

Vote positif 0 Vote négatif

N

Newdelirium

Guest

• 18 Février 2006

• #4

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

 

Vote positif 0 Vote négatif

N

Newdelirium

Guest

• 18 Février 2006

• #5

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.

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 18 Février 2006

• #6

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

@+

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 18 Février 2006

• #7

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

 

Vote positif 0 Vote négatif

N

Newdelirium

Guest

• 18 Février 2006

• #8

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

@+

Cliquez pour agrandir...

J'avais essayé aussi sa ne fonctionne pas.

 

Vote positif 0 Vote négatif

B

Bruno

Guest

• 18 Février 2006

• #9

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

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 18 Février 2006

• #10

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+ 😉

 

Pièces jointes

• NewdeliriumV2.zip

  7.8 KB · Affichages: 18

Vote positif 0 Vote négatif

N

Newdelirium

Guest

• 18 Février 2006

• #11

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+ 😉

Cliquez pour agrandir...

Sa marche niquel merci l'ami!!!

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 19 Février 2006

• #12

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 :

Code:

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,

@+

 

Vote positif 0 Vote négatif