Guillaume In Zevillage

S'identifier - S'inscrire - Contact

Communauté

7annuaire : annuaire gratuit
Degriffe : annuaire gratuit

Utilisation des variables

Fonction Dim... As String

Currently 0/5
1
2
3
4
5

Note : 0/5 (0 note)

Guillaumedhy
Jeudi 14/06/2007
12:53
Lu 1865 fois

STEP 3 : Les Variables. Voyons comment utiliser une variable dans les formules. Nous allons utiliser le numéro de la ligne du contact comme référence. Nous allons donc commencer par ajouter une case "Ref" dans notre userform :

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

Ajout de la référence dans le Userform

Le but est de rentrer le numéro de ligne dans la case référence pour que quand on clic sur "Ajouter", le contact s'ajoute à la ligne demandée. Pour ce faire, nous allons utiliser une variable. Refaites donc un double-clic sur le bouton ajouter, en mode éditeur, pour accéder au code que l'on avait écrit, afin de le modifier et procéder à ces quelques modifications (celles qui ont du rouge) :

Private Sub CommandButton2_Click()

Dim Ligne As String ' On définie "Ligne" comme une variable
Ligne = UserForm1.TextBox8.Value 'Ligne, c'est la valeur contenue dans le TextBox8 (la ref)

' Comprenez : 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...

' Ainsi, à la place du numéro de ligne d'avant, on va mettre la variable ligne.
' Comme cela, si ligne=1, on ajoute sur la premiere ligne, si ligne=2 etc...

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

Unload UserForm1

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

MsgBox ("Votre nouveau contact est bien ajouté ! Bravo !")

End Sub

Et voilà, maintenant vous pouvez enregistrer le contact à la ligne que vous voulez !
Le mieux serait maintenant, que quand je suis sur la ligne DUPONT et que j'appelle mon Userform, ses coordonnées soient chargées automatiquement avec sa référence et que je puisse ainsi modifier ses coordonnées sans tout réécrire...

Voir aussi :