Bonjour à tous,
Je dois coder un userform afin qu'il envoie des données à sur une base de données (feuille "Base de données").
Il est important de noter que précédemment j'ai créé un post pour un besoin très proche de celui-ci, mais depuis ma problématique a changé et je ne sais pas l'adapter.
https://www.excel-downloads.com/threads/resolu-userform-ecriture-dans-une-base-de-donnees.171608/
Merci à Jean-Marcel qui m'a aidé pour mon précédent problème.
Il faudrait que lorsque je click sur le CommandButton1, les données contenues dans les Textbox (ou combobox) s'ajoute à la suite de ma base de données.
J'ai fait une règle concernant le nom des textbox (ou combobox):
J'aimerai que pour chaque ligne (ex ligne 1: aa1;bb1;cc1;dd1;ee1;ff1;gg1;hh1), si au moins un des champs aa1 ou bb1 ou cc1 contient une valeur, alors les données de toute la ligne sont envoyées à la suite de la base de données.
via cette règle:
Voici le code de mon ancien userform permettant d'écrire depuis des textbox vers la base de données. A savoir que ce code ne fonctionnait que pour une seule ligne de textbox or maintenant il y en a 20, et j'aimerai trouver quelque chose de moins manuel (comme une boucle) dans le cas où le nombre de ligne de textbox augmente.
Je reste disponible pour plus d'infos
Merci d'avance pour vos conseil & suggestions
plouf
Je dois coder un userform afin qu'il envoie des données à sur une base de données (feuille "Base de données").
Il est important de noter que précédemment j'ai créé un post pour un besoin très proche de celui-ci, mais depuis ma problématique a changé et je ne sais pas l'adapter.
https://www.excel-downloads.com/threads/resolu-userform-ecriture-dans-une-base-de-donnees.171608/
Merci à Jean-Marcel qui m'a aidé pour mon précédent problème.
Il faudrait que lorsque je click sur le CommandButton1, les données contenues dans les Textbox (ou combobox) s'ajoute à la suite de ma base de données.
J'ai fait une règle concernant le nom des textbox (ou combobox):
- Les combobox en dessous du Label: ID sont nommés: aa1; aa2; aa3; .. ; aa20
- Les combobox en dessous du Label : véhicule sont nommés: bb1; bb2; bb3; .. ; bb20
- Les combobox en dessous du Label : chauffeur sont nommés: cc1; cc2; cc3; .. ; cc20
- Les textbox en dessous du Label : chargement1 sont nommés: dd1; dd2; dd3; .. ; dd20
- Les textbox en dessous du Label : chargement2 sont nommés: ee1; ee2; ee3; .. ; ee20
- Les textbox en dessous du Label : heure sont nommés: ff1; ff2; ff3; .. ; ff20
- Les textbox en dessous du Label : ref1 sont nommés: gg1; gg2; gg3; .. ; gg20
- Les textbox en dessous du Label : ref2 sont nommés: hh1; hh2; hh3; .. ; hh20
J'aimerai que pour chaque ligne (ex ligne 1: aa1;bb1;cc1;dd1;ee1;ff1;gg1;hh1), si au moins un des champs aa1 ou bb1 ou cc1 contient une valeur, alors les données de toute la ligne sont envoyées à la suite de la base de données.
via cette règle:
- Le combobox Dateactivitésaisie1 envoie les données à la colonne A (cette valeur de "date" sera la même pour chacune des lignes envoyées)
- aa envoie les données à la colonne B
- bb envoie les données à la colonne C
- cc envoie les données à la colonne D
- dd envoie les données à la colonne E
- ee envoie les données à la colonne F
- ff envoie les données à la colonne G
- gg envoie les données à la colonne H
- hh envoie les données à la colonne I
Voici le code de mon ancien userform permettant d'écrire depuis des textbox vers la base de données. A savoir que ce code ne fonctionnait que pour une seule ligne de textbox or maintenant il y en a 20, et j'aimerai trouver quelque chose de moins manuel (comme une boucle) dans le cas où le nombre de ligne de textbox augmente.
Code:
Private Sub CommandButton1_Click()
With Sheets("base de données")
Derligne = .Range("A65536").End(xlUp).Row + 1
.Cells(Derligne, 1) = TextBox1
' Etc pour la textbox2 , 3 , 4
If Derligne = 101 Then
.Cells(2, 1).EntireRow .Delete
End If
End With
Unload Me
End Sub
Je reste disponible pour plus d'infos
Merci d'avance pour vos conseil & suggestions
plouf
Pièces jointes
Dernière édition: