Bonjour,
Je suis en plein apprentissage du langage VBA (Je cherche d'ailleurs de bon support de cours ), afin de pouvoir réaliser un "logiciel" pour mon activité professionnelle.
Le but étant d'avoir un logiciel me permettant d’incrémenter une base de données d'une part, et pouvoir l'exploiter d'autre part.
Dans une premier temps j'ai créer un userform avec plusieurs textbox
Ce que je cherche a faire c'est creer plusieurs boucle me permettant de copier le contenue des textbox vers un tableau.
Catégorie pour la colonne A
Nom pour la colonne B
Ingrédients (Box_ing1 a Box_ing12) pour la colonne C
Grammage (Gram1 à Gram12) pour la colonne D
j'ai donc un bout de code :
Private Sub button_Ajouter_Click()
'S'assure que la feuille "Recettes" est active
Sheets("Recettes").Activate
Dim L As Integer
If MsgBox("Confirmez-vous l'insertion de cette nouvelle recette ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
'L = Sheets("Recettes").Range("a65536").End(xlUp).Row + 1
Range("A" & L).Value = List_Catégorie
Range("B" & L).Value = Nom_box
Range("C" & L).Value = box_Ing1
Range("C" & Range("C65536").End(xlUp).Row + 1) = box_Ing2
Range("C" & Range("C65536").End(xlUp).Row + 1) = box_Ing3
Range("C" & Range("C65536").End(xlUp).Row + 1) = box_Ing4
etc ...
cela fonctionne, mais les boucles serait plus simple a utiliser, sauf que je n'arrive pas à les écrire
d'autre part, j'ai besoin qu'il me recopie la catégorie et le nom autant de fois que j'ai d'ingrédient (Pour la lisibilité et le tri de ma base de donnée)