XL 2016 [RESOLU] Aide sur UserForm

[Jdilo64]

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.

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

 

[Staple1600]

Re,

@Lone-wolf
Le code initial était le sien
(Je l'ai remaniée une première fois -> message#4)
Puis j'en ensuite remanié le code que j'avais remanié et l'ai posté dans le message#13)

(PS:pas trace de Find dans mon code)😉

 

[Lone-wolf]

Re

@Staple1600 : Aaah! D'accord. Toutes mes excuses alors.