eviter doublons

[chilo]

bonsoir le forum

sujet aborde dans 9 pages mais je n'ai pas trouvé mon bonheur
comme toujours je fais appel à votre aide
merci par avance

a) dans l'userform1 je voudrais éviter les doublons en tenant compte de 3 criteres nom prénom et date de naissance la cmd nouveau contact me permet de valider la saisie

b)Dans l'userform3 je souhaite modifier une info en évitant le doublon
supprimer une adresse mais le numéro du contact doit se remettre progressif
par exemple si je supprime la ligne 3 l'enregistrement de la ligne 4 remonte et prend le numerao3
en validant une modification je souhaite éviter ce qui est en jaune^
merci pour vortre aide

 

[Compte Supprimé 979]

Re : eviter doublons

Bonjour Chilo 😉

a) dans l'userform1 je voudrais éviter les doublons en tenant compte de 3 criteres nom prénom et date de naissance la cmd nouveau contact me permet de valider la saisie

Désolé, mais je ne comprends rien ...

A quel niveau veux tu éviter les doublons !?

A+

 

[chilo]

Re : eviter doublons

bonjour le forum bonjour brunom45

je souhaite éviter les doublons quand je valide


il y a 4 criteres le nom le prenon le telephone et la date de naissance.
ps j'avais mis 3 criteres mais j'ai ajouté un autre pour élargir

merci d'avoir bien voulu me repondre

 

[Bebere]

Re : eviter doublons

bonjour Chilo,Bruno
en espérant avoit tout compris
voir module1
pour effacer ajout d'une checkbox
qui affiche cache le bouton effacer et alimente comboboxnom(true tous les noms,false sans doublons)
à bientôt

 

[chilo]

Re : eviter doublons

BONSOIR le forum bonsoir bebere

pour les doublons c'est nickel par contre eh bien oui

je voulais avoir la possibilité de supprimer la ligne completement sans laisser de ligne blanche entre deux adresses. et en gardant une numerotation progressive

merci encore

 

[Bebere]

Re : eviter doublons

Chilo regarde dans userform3

 

[chilo]

Re : eviter doublons

bonjour le forum, bonjour bebere

j'ai regardé userform, et je me suis mal exprimé
je souhaite effacer mais
aussi supprimer tout en tenant compte de la numérotation

si je supprime le 3 nom que le 4ème prenne sa place et le numéro 3

merci bebere

 

[Bebere]

Re : eviter doublons

bonjour Chilo
tu m'as donné une autre idée
dans cmdeffacer
remplacer
With ThisWorkbook.Sheets("contact")
blabla
End With

par
With ThisWorkbook.Sheets("contact")
.Range("B" & L & ":S" & L).Delete Shift:=xlShiftUp
End With
rmq: met du format ou nécessaire pas dans toute la feuille
tu agrandis inutilement
à bientôt

 

[chilo]

Re : eviter doublons

bonsoir le forum bonsoir bebere

cela ne fonctionne pas la suppression n'a pas lieu
merci

 

[Bebere]

Re : eviter doublons

Chilo
je remet le fichier,supprime les doublons
ensuite regarde dans la feuille
à bientôt