Guillaume In Zevillage

S'identifier - S'inscrire - Contact

Communauté

7annuaire : annuaire gratuit
Degriffe : annuaire gratuit

Utilisation des Intitulés et Zones de textes

Label & TextBox dans un UserForm

Currently 0/5
1
2
3
4
5

Note : 0/5 (0 note)

Guillaumedhy
Dimanche 10/06/2007
16:05
Lu 2946 fois

STEP 2 : Un beau UserForm qui s'ouvre et qui se ferme, c'est bien, mais c'est mieux quand il y a quelque chose à l'intérieur non? Pour y remédier, nous allons voir maintenant les Intitulés (Label) et les Zones de textes (TextBox)...

Télécharger le fichier de référence (pour ceux qui ne l'ont pas fait à la première étape)

Réouvrons notre Userform1 en mode éditeur. Et ajoutons un Intitulé que l'on va appeler "Contact" et à côté, une Zone de texte. Refaisons la même chose en sessous pour "Téléphone", "rue", "Code Postal", "Ville", "Mail" et "Site Web"... comme ci-dessous :

Userform_Label_TextBox

Les intitulés sont des zones de texte que l'on ne peut pas modifier. On peut changer la police dans les propriétés (Police - font). Les zones des textes, sont les cases dans lesquelles on peut saisir du texte.

Dans cet exemple, nous allons ajouter un nouveau contact à la ligne 8. Créons donc un nouveau bouton dans le userform, que l'on va appeller "Ajouter". Ensuite, double-cliquez dessus et écrivez le code suivant :

Private Sub CommandButton2_Click()

' Comprenez pour la première ligne : La valeur de la case A8 de la Feuil1 est égale à la valeur contenue dans le TextBox1 du Userform1
' Même processus pour les autres cases...

   Sheets("Feuil1").Cells(8, "A").Value = UserForm1.TextBox1.Value
   Sheets("Feuil1").Cells(8, "B").Value = UserForm1.TextBox2.Value
   Sheets("Feuil1").Cells(8, "C").Value = UserForm1.TextBox3.Value
   Sheets("Feuil1").Cells(8, "D").Value = UserForm1.TextBox4.Value
   Sheets("Feuil1").Cells(8, "E").Value = UserForm1.TextBox5.Value
   Sheets("Feuil1").Cells(8, "F").Value = UserForm1.TextBox6.Value
   Sheets("Feuil1").Cells(8, "G").Value = UserForm1.TextBox7.Value

Unload UserForm1 'Fermeture du UserForm1

' Ca c'est une petite fenêtre gadget pour vous féliciter :-)

~~MSGXBOX~~ MSGBOX ("Votre nouveau contact est bien ajouté ! Bravo !")

End Sub

Bon et bien c'est un bon début tout ça ! On peut aussi faire à l'inverse, copier les cellules dans les TextBox... On verra par la suite les variables, pour pouvoir ajouter le contact sur la ligne que l'on souhaite sans re-entrer dans le code pour spécifier la ligne...

Voir aussi :