Recherche et ajout de données

Résolu
Oliviercroon Messages postés 33 Statut Membre -  
Oliviercroon Messages postés 33 Statut Membre -
Bonjour Amis VBAtien,

je débute dans la programmation VBA, (en faite, je débute dans le début même...) et j'aurais voulu savoir si il était possible d'ajouté une donnée dans une base de données automatiquement si elle ne s'y trouve pas.
Je m'explique, j'ai une bibliothèque de BD, et j'ai crée un Userforme pour pouvoir encoder toutes mes BD sur la Feuil1, sur la feuil2, j'ai la liste des séries, des auteurs, etc dans les quelles je vais puiser pour mes différentes comboBox. Ma question est si en entrent une donnée dans les ComboBox et qu'elle ne se trouve pas dans l'une des listes de la feuil2, est-il possible de la faire mettre automatiquement?
en vous remerciant et vous souhaitant une très bonne journée

3 réponses

cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

voici un exemple à adapter:

https://www.cjoint.com/c/ICfjpJpRvnQ

1
Oliviercroon Messages postés 33 Statut Membre
 
merci pour le code, je vais voir pour l'adapter à mon code.
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
J'ai mis les saisies directement dans la ComboBox, mais tu peux ajouter une TextBox, il suffit de changer le code:

Private Sub CommandButton1_Click()
 nom = ComboBox1.Value
 For_X_to_Next_Ligne
End Sub


par

Private Sub CommandButton1_Click()
 nom = TextBox1.Value
 For_X_to_Next_Ligne
End Sub


Voilà

@+ Le Pivert
0
f894009 Messages postés 17413 Statut Membre 1 715
 
Bonjour,
Cs_le_pivert ca roule??

Oliviercroon:

Une autre facon de faire, vu que vous utilisez des plages nommees

Votre fichier modifie: https://mon-partage.fr/f/nqvgQunn/
Insertion nouvelle(s) info(s) dans plage sur validation ou fermer
J'ai fait au plus simple pour l'insertion afin d'eviter de "refaire" l'adressage les plages nommees
1
Oliviercroon Messages postés 33 Statut Membre
 
Un grand merci pour l'aide
0
Oliviercroon Messages postés 33 Statut Membre
 
Le fichier fonctionne super nickel encore un très grand merci
0
Oliviercroon Messages postés 33 Statut Membre
 
Bonjour, j'ai essayé plusieurs fois mais je comprend pas le code.
je vous joint une copie de mon fichier

https://www.cjoint.com/c/ICgooU6UPAJ

en vous remerciant

0
f894009 Messages postés 17413 Statut Membre 1 715
 
Bonjour,

Si vous utilisez le fichier que j'ai modifie ca marche, que voulez-vous de plus!!!!
Le fichier que vous avez mis a dispo est l'ancien fichier!!!!!

Suite:

Petite erreur de syntaxe pour ajout auteur et j'ai modifie pour RAZ UF sans fermer et ouvrir l'UF
https://mon-partage.fr/f/AlBKDNwQ/
0
Oliviercroon Messages postés 33 Statut Membre
 
Petit bug sur le site, je n'ai plus poser de question et le fichier fonction très bien encore un grand merci
0
f894009 Messages postés 17413 Statut Membre 1 715
 
Bonjour,

Avez-vous regarde le code, j'ai ajoute des commentaires !!
0
Oliviercroon Messages postés 33 Statut Membre > f894009 Messages postés 17413 Statut Membre
 
merci ça marche super bien
0