Bonjour à tous,
Je viens vers vous aujourd'hui car je me lance à apprendre le VBA et mon défi du moment est l'USERFORM.
J'ai réussi à faire un formulaire basique qui me remplis les cellules telles que :
A1 = ComboBox1 = Nom du rayon
B1 = ComboBox2 = Nom du Fournisseur
C1 = TextBox1 = Montant de la facture
D1 = TextBox3 = Commentaire
E1 = TextBox4 = Date
Maintenant j'aimerais le faire autrement, dans mon tableau mensuel d'achats j'aimerais que le montant de la facture (TextBox1) se remplisse dans la feuille du nom du rayon "ComboBox1" dans la colonne fournisseur "ComboBox2" et la ligne de la date "TextBox4".
Après plusieurs recherches je ne trouve pas de pistes ...
Je vous joint mon code et mon classeur pour les gens qui voudront bien me dédié un petit moment pour m'aider dont je remercie par avance.
Je viens vers vous aujourd'hui car je me lance à apprendre le VBA et mon défi du moment est l'USERFORM.
J'ai réussi à faire un formulaire basique qui me remplis les cellules telles que :
A1 = ComboBox1 = Nom du rayon
B1 = ComboBox2 = Nom du Fournisseur
C1 = TextBox1 = Montant de la facture
D1 = TextBox3 = Commentaire
E1 = TextBox4 = Date
Maintenant j'aimerais le faire autrement, dans mon tableau mensuel d'achats j'aimerais que le montant de la facture (TextBox1) se remplisse dans la feuille du nom du rayon "ComboBox1" dans la colonne fournisseur "ComboBox2" et la ligne de la date "TextBox4".
Après plusieurs recherches je ne trouve pas de pistes ...
Je vous joint mon code et mon classeur pour les gens qui voudront bien me dédié un petit moment pour m'aider dont je remercie par avance.
VB:
Private Sub CommandButton1_Click()
If Controls("ComboBox1") = "" Then
MsgBox "Vous devez ABSOLUMENT indiquer le rayon !", vbExclamation, _
"ERREUR ... le rayon SVP !"
Controls("ComboBox1").SetFocus
If Controls("ComboBox2") = "" Then
MsgBox "Vous devez ABSOLUMENT indiquer le fournisseur !", vbExclamation, _
"ERREUR ... le fournisseur SVP !"
Controls("ComboBox2").SetFocus
Exit Sub
End If
End If
[A1] = UserForm1.ComboBox1
[B1] = UserForm1.ComboBox2
[C1] = UserForm1.TextBox1
[D1] = UserForm1.TextBox3
[E1] = UserForm1.TextBox4
Unload UserForm1
End Sub