Explication vba userform

[ezrielle]

Bonjour à tous

J'aimerai comprendre comment marche les userform pour pouvoir en faire après toute seule!

!je sais créer le formulaire mais pas la vba pour le faire marcher !

On m'a bien aidé en faisant marché mon formulaire mais je ne sais pas comment il a fait !

Pourriez vous m'expliquer?

Ci joint le code de userform et le programme qui s'y rattache

Private Sub BtnEffacer_Click()
Call Efface_Tout

End Sub

Private Sub BtnQuitter_Click()
Unload Me

End Sub

Private Sub BtnValider_Click()
With Sheets("fournisseur")
Derlign = Range("A65000").End(xlUp).Row + 1
Range("A" & Derlign) = Textbox1
Range("B" & Derlign) = ComboBox1
Range("C" & Derlign) = Application.Proper(Textbox2)
Range("D" & Derlign) = Application.Proper(Textbox3)
Range("E" & Derlign) = TextBox4
Range("F" & Derlign) = TextBox5
Range("G" & Derlign) = Application.Proper(TextBox6)
Range("H" & Derlign) = Format(TextBox7, "0# ## ## ## ##")
Range("I" & Derlign) = Format(TextBox8, "0# ## ## ## ##")
Range("J" & Derlign) = TextBox9
End With
Call Efface_Tout

End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox6_Change()

End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Usinage"
ComboBox1.AddItem "Beton"
ComboBox1.AddItem "Acier"
ComboBox1.AddItem "Modeleur"

End Sub

Sub Efface_Tout()
Dim Ctl As Control
For Each Ctl In UserForm1.Controls
If TypeName(Ctl) = "Combobox" Then Ctl.Value = ""
If TypeName(Ctl) = "TextBox" Then Ctl.Value = ""

Next Ctl

End Sub

Private Sub Ville_Click()

End Sub

 

[ledzepfred]

Re : Explication vba userform

Salut ezrielle,

la private sub Btneffacer_click est come son nom l'indique la procédure liée au bouton effacer (voir dans les propriétés vba du bouton) et dont le but est de "mettre à blanc" tous tes textbox et ton combobox de ton userform

la private sub usderform_initialize permet lors du chargmeent de l'userform d'ajouter quatre valeurs au combobox 1 (beton, usinage,etc)

Quand à la private sub Btnvalider_click, elle permet de déterminer quelle est la première ligne vide de ton feuillet , le numéro de cette ligne est stockée dans une variable nommée Derlign sur laquelle on s'appuie pour ajouter les valeurs de tes textbox et combobox
pour certains textbox tu as des fonctions particulières (proper =nom propre), format (textbox,"xxxxxxxxx") pour mettre un format particulier à savoir dans l'exemple le numéro de telephone

Private Sub BtnQuitter_Click : pour quitter l'userform

Private Sub Label1_Click()
Private Sub TextBox2_Change()
Private Sub TextBox6_Change()
ces trois procédures n'ont pas de code donc peuvent être supprimées

voila j'espère que c'est plus clair pour toi

A+

 

[MJ13]

Re : Explication vba userform

Bonjour ezrielle, ledzepfred

Les userforms (ou formulaire ou USF) ne sont pas compliqué en soi mais bon il faut un peu connaître la programmation.

Le mieux est de trouver sur le net des tutos sur le sujet, il doit y en avoir beaucoup.

Regarde mon programme sous ma signature pour faire ses comptes, c'était pour moi le début des USF, il y a des petites astuces qui peuvent aider.

Par contre pour bien comprendre son fonctionnemnt, tu places un stop dans son code, puis avec F8 ou ctrl+shift+F8, tu vas pas a pas, c'est ce qu'on appelle le debogage.Tu peux même revenir en arrière avec la souris et modifier ton code.

 

[bqtr]

Re : Explication vba userform

Bonjour ezrielle, ledzepfred, MJ13

Tu as cette page sur ce site : ICI il y a plein de chose lire notamment les pages de MichelXLD, le Wiki

Ou alors ICI ou encore LA et LA et il y en a d'autres 🙂

Rien que sur c'est 4 sites tu peux apprendre énormément de chose sur les Userforms et les controles qui vont avec. Sur certains, Il y a même des PDF à télécharger pour travailler chez soi tranquillement.

Bonne lecture

A+