empecher les doublons

[creolia]

Bonsoir et bonne année au forum

voila j'ai un soucis je souhaiterais empêcher les doublons sur deux cellules j'ai rechercher dans la base de donner du forum mais rien qui approche ce que je souhaite faire

exemple:

collone A collone B

dupont luc ok
dupont pierre ok
dupont luc = doublon donc impossible d'actionner le bouton valider

j'ai joins un fichier si quelqu'un peut m'aider merci d'avance

 

[job75]

Re : empecher les doublons

Bonsoir creolia,

Pas vu de bouton Valider ni compris pourquoi vous renseignez les TextBox à l'ouverture de l'USF.

Mais enfin voyez ce code :

Private Sub CommandButton1_Click()
Dim cel As Range
For Each cel In Range("A2", Range("A65536").End(xlUp))
If cel = TextBox1 And cel.Offset(, 1) = TextBox2 Then _
  MsgBox "Cette personne est déjà inscrite", 48: Exit Sub
Next
'---reste du code---
End Sub

A+

 

[jp14]

Re : empecher les doublons

Bonsoir

Ci joint le fichier avec un message qui indique un doublon.

A tester

JP

 

[creolia]

Re : empecher les doublons

merci pour ta réponse mais sa na pas régler mon soucis car je comprend pas tous j'ai affecter à mon bouton ajouter et (non valider) mais il me met l'alerte cette personne est déjà inscrite alors qui y a aucune entrée ou dois je le placer par apport à ma macro qui me permet de passer a la ligne suivante merci pour ta réponse

 

[job75]

Re : empecher les doublons

Re creolia, salut JP,

Oui, il faut aussi un test pour s'assurer que TextBox1 au moins est renseignée :

Private Sub CommandButton1_Click()
Dim cel As Range
[COLOR="Red"]If TextBox1 = "" Then TextBox1.SetFocus: Exit Sub[/COLOR]
For Each cel In Range("A2", Range("A65536").End(xlUp))
If cel = TextBox1 And cel.Offset(, 1) = TextBox2 Then _
  MsgBox "Cette personne est déjà inscrite", 48: Exit Sub
Next
'---reste du code---
End Sub

A+

 

[creolia]

Re : empecher les doublons

Bon et bien j'y arrive pas je met en fichier joins de ce que j'ai essayer de faire


en gros mes textbox informe la ligne 2 en appuyant sur ajouter il devrais incrémenter la ligne suivante sauf que quand je met ton code j'arrive pas il me met le message alerte qui y a un doublon mais ma liste dans la base de donner est vide si c'est pas trop te demander peut tu modifier éventuellement mon fichier joins que je comprenne un peut mieux stp

 

[soenda]

Re : empecher les doublons

Bonsoir le fil, job75, jp14, creolia

Voir PJ

A plus

 

[creolia]

Re : empecher les doublons

merci soenda mais j'ai tester et il me bloque a chaque fois je vais me pencher dessus et je vous tien au courant

 

[creolia]

Re : empecher les doublons

je précise que je souhaite pas que vérifier mais aussi pouvoir ajouter quand c'est une nouvelle entrée

en gris si c'est pareil ont empêche une nouvelle entrée

si sa existe pas j'ajoute a la dernière colonne dispo

 

[job75]

Re : empecher les doublons

Re,

J'avais écrit :

(...) ni compris pourquoi vous renseignez les TextBox à l'ouverture de l'USF.

Les 3 TextBox sont renseignées par leur propriété ControlSource.

Si vous les laissez ainsi et cliquez sur le bouton ajouter, c'est normal que le message apparaisse non ?

Quant au remplissage du tableau, il se fait par votre macro copy_coller1.Saisg. Si quelque chose ne va pas dans cette macro, c'est un autre problème, à vous de voir car il y a plein d'exemples de ce genre sur le forum.

Edit : salut soenda 🙂

A+

 

[soenda]

Re : empecher les doublons

Re, 🙂

As tu testé le classeur que je t'ai envoyé ou as-tu copier le code dans ton classeur ?

Si tu as fais une copie du code dans ton classeur, ça ne peut pas fonctionner. En effet, dans le classeur que j'ai envoyé,
- j'ai supprimer la Sub
- Purgé les propriétés "ControlSource"

A plus

 

[creolia]

Re : empecher les doublons

je l'ai tester mais je me penche dessus vous m avez bien aider je vais voir a mon niveau ou j'ai pas compris

 

[soenda]

Re : empecher les doublons

Re,

Une dernière question : Quelle est ta version d'excel ?

Si pas 2007 => problème avec NB.SI.ENS

A plus

 

[creolia]

Re : empecher les doublons

excel 2003