Insertion dans base de donnée et doublon...

[Yul]

Bonjour à tous !

Voilà un moment déjà que j'essaie de m'inspirer des exemples de gestion des doublons déjà évoqués dans ce forum. Hélas, pas de résultat très probant...!

A partir d'un userform, j'alimente une base de donnée.
J'aimerai, à chaque insertion dans la base de donnée, avoir une vérification, si un tel enregistrement existe déjà.

Alors ce que je souhaiterai obtenir comme résultat:

Insertion de nom et prénom
Si même nom alors msgbox pour savoir si on veut quand même inserer sinon on insère pas ces données.

Je mets un petit fichier d'exemple pour plus de clarté !

Merci d'avance pour vos tuyaux !
a+

Yul

 

[Jacques87]

Re : Insertion dans base de donnée et doublon...

Bonjour ,

Voila qui devrait répondre à ta question.

Bon courage

 

[Yul]

Re : Insertion dans base de donnée et doublon...

Merci beaucoup Jacques87,

Cependant, lorsque j'utilise ton fichier, rien ne se produit, au niveau d'un msgbox et les données ne s'inscrive pas dans la colonne A et B ....
Est-ce un problème de version ?
Le code à l'air pourtant assez logique...

Une idée ?

Merci encore !

Yul

 

[Jacques87]

Re : Insertion dans base de donnée et doublon...

Re,

A vouloir aller trop vite on fait des bétises

En effet si ta feuille était vide le dl (dernière ligne) valait 1 et une boucle de 1 à 1 n'a plus de sens

J'ai rectifié et ai bidouillé (pas très satisfait de mon écriture) mais cela semble fonctionner. A toi d'adapter

 

[allegro50]

Re : Insertion dans base de donnée et doublon...

Bonjour Jacques, Yul, le Forum

Juste une suggestion Jacques
si tu definis dl à Row+1 tu evites la boucle sur A1 et tu ne fais plus +1 plus bas

dl = Worksheets("Feuil1").Range("A65536").End(xlUp).Row + 1
................................
..............................................;
If reponse = vbYes Then
With Sheets("Feuil1")
.Range("A" & dl).Value = TextBox1.Value
.Range("B" & dl).Value = TextBox3.Value

A bientot

 

[Jacques87]

Re : Insertion dans base de donnée et doublon...

Bonjour Allegro50

je l'avais dit que je n'étais pas satisfait de ce que j'avais écrit trop rapidement, et tu me le prouves

Je réitère : "à vouloir aller trop vite on écrit des bétises"

Merci d'avoir améliorer mon code, et au plaisir de te croiser

 

[Yul]

Re : Insertion dans base de donnée et doublon...

Salut Jacques87, Allegro50,

J'ai adapter ce code hier dans mon fichier, et ca marche comme je le souhaite !

Je vais encore potasser un peu dessus pour être bien sur de saisir !

En tout cas merci à vous deux, vous m'avez vraiment bien aidé !

a+

Yul