VBA Recherche d'astuce pour formulaire de saisie multiple
Bonjour tous le monde,
Je suis nouveau dans la pratique des macros, et du Virtual basic sur Excel.
J'ai cherché un topic déjà existant arborant le même problème que moi, mais introuvable.
Je me tourne donc vers vous pour un peu d'aide dans mon code.
Concrètement j'aimerais à partir d'un formulaire remplir un tableau de suivi des commandes.
Bien sur une commande peut contenir différents articles, donc j'ai essayé de prendre en compte cela dans mon formulaire
Après de longue recherche voici mon début de code :
Private Sub CommandButton1_Click()
If Sheets("Tableau de l'activité").Range("B3") = "" Then
Sheets("Tableau de l'activité").Range("B3") = TextBox1
Sheets("Tableau de l'activité").Range("C" & dlt) = TextBox2
Sheets("Tableau de l'activité").Range("D" & dlt) = ListBox1
Sheets("Tableau de l'activité").Range("E" & dlt) = TextBox3
Sheets("Tableau de l'activité").Range("F" & dlt) = TextBox4
Sheets("Tableau de l'activité").Range("G" & dlt) = TextBox5
Sheets("Tableau de l'activité").Range("H" & dlt) = TextBox6
Sheets("Tableau de l'activité").Range("I" & dlt) = TextBox23
Sheets("Tableau de l'activité").Range("J" & dlt) = TextBox40
Sheets("Tableau de l'activité").Range("K" & dlt) = TextBox57
Else
Sheets("Tableau de l'activité").ListObjects(1).ListRows.Add
dlt = Sheets("Tableau de l'activité").Range("D1048576").End(xlUp).Row
Sheets("Tableau de l'activité").Range("B" & dlt) = TextBox1
Sheets("Tableau de l'activité").Range("C" & dlt) = TextBox2
Sheets("Tableau de l'activité").Range("D" & dlt) = ListBox1
Sheets("Tableau de l'activité").Range("E" & dlt) = TextBox3
Sheets("Tableau de l'activité").Range("F" & dlt) = TextBox4
Sheets("Tableau de l'activité").Range("G" & dlt) = TextBox5
Sheets("Tableau de l'activité").Range("H" & dlt) = TextBox6
Sheets("Tableau de l'activité").Range("I" & dlt) = TextBox23
Sheets("Tableau de l'activité").Range("J" & dlt) = TextBox40
Sheets("Tableau de l'activité").Range("K" & dlt) = TextBox57
End If
End Sub
Je bloque au moment de mettre comme consigne que les autres Textbox "Désignation" ne soient pas prise en compte si elles sont vide.
Je bloque donc sur la mise en lien de différents produits pour une même commande.
Si quelqu'un aurait déjà tenté ce genre de formulaire et pourrait me donner un coup de pouce, ça serait super gentil !
Bonsoir à tous
Vois ce fichier
Et vois les commentaires que je t'ai mis dans le bouton de validation
Bonne soirée
Bonjour Patty !
Merci milles fois pour l'aide que tu m'apportes
Oui tu as raison, je pensais ajouter des contrôles de saisies après. J'avance assez lentement ^^
Merci beaucoup, c'est exactement l'idée que j'avais du document. Et ton aisance à le faire est encourageante !
Donc Do while not te permet de produire une boucle tant que la condition est respecté ? (D pour l'instant)
Ainsi il me faut une condition obligatoire, ok je vois.
Puis si la condition est respecté tu entres dans la loop
Ça m'étonnes, que tu es besoin de si peu de ligne, je suis en train d'essayer de le refaire par moi même, "TxtD" te permet quoi ?
C'est pour faire un import de la colonne D?
Bonjour Raffou
Merci pour tes compliments.
TxtD est le numéro du textBox "Désignation"
Le premier 6 est le textbox6, 1ère désignation..0.
puis plus 1 te donne textbox7 qui est la deuxième ligne désignation, etc...
Voili voilou
Bon courage