Menu

Recherche et ajout de données [Résolu]

Messages postés
24
Date d'inscription
jeudi 5 avril 2018
Dernière intervention
11 mars 2019
-
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

Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
5921
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 mars 2019
411
1
Merci
Bonjour,

voici un exemple à adapter:

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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 46507 internautes nous ont dit merci ce mois-ci

Oliviercroon
Messages postés
24
Date d'inscription
jeudi 5 avril 2018
Dernière intervention
11 mars 2019
-
merci pour le code, je vais voir pour l'adapter à mon code.
cs_Le Pivert
Messages postés
5921
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 mars 2019
411 -
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
Commenter la réponse de cs_Le Pivert
Messages postés
14127
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
26 mars 2019
1320
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 46507 internautes nous ont dit merci ce mois-ci

Oliviercroon
Messages postés
24
Date d'inscription
jeudi 5 avril 2018
Dernière intervention
11 mars 2019
-
Un grand merci pour l'aide
Oliviercroon
Messages postés
24
Date d'inscription
jeudi 5 avril 2018
Dernière intervention
11 mars 2019
-
Le fichier fonctionne super nickel encore un très grand merci
Commenter la réponse de f894009
Messages postés
24
Date d'inscription
jeudi 5 avril 2018
Dernière intervention
11 mars 2019
0
Merci
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

f894009
Messages postés
14127
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
26 mars 2019
1320 -
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/
Oliviercroon
Messages postés
24
Date d'inscription
jeudi 5 avril 2018
Dernière intervention
11 mars 2019
-
Petit bug sur le site, je n'ai plus poser de question et le fichier fonction très bien encore un grand merci
f894009
Messages postés
14127
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
26 mars 2019
1320 -
Bonjour,

Avez-vous regarde le code, j'ai ajoute des commentaires !!
Oliviercroon
Messages postés
24
Date d'inscription
jeudi 5 avril 2018
Dernière intervention
11 mars 2019
> f894009
Messages postés
14127
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
26 mars 2019
-
merci ça marche super bien
Commenter la réponse de Oliviercroon