XL 2016 [RESOLU] Aide sur UserForm

Jdilo64

XLDnaute Nouveau
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.

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
 

Pièces jointes

  • TEST ACHATS.xlsm
    43.5 KB · Affichages: 34

Discussions similaires