Guillaume In Zevillage

S'identifier - S'inscrire - Contact

Communauté

7annuaire : annuaire gratuit
Degriffe : annuaire gratuit

Charger les données d'un UserForm

Load Userform...

Currently 0/5
1
2
3
4
5

Note : 0/5 (0 note)

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

STEP 4 : Charger un UserForm avant affichage. Nous allons donc utiliser la fonction "Load", qui va nous permettre de charger les données que l'on doit afficher dans le formulaire. Il faut donc les charger avant que le formulaire soit ouvert...

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

On va donc faire un clic-droit sur notre bouton qui se trouve sur la feuille de calcul, puis "Affecter une Macro", puis "Modifier". On retrouve notre code : UserForm1.show. Devant ce code, écrivons ceci :

Sub Bouton1_QuandClic()

Dim LigneActive As String
LigneActive = Selection.Row 'LigneAcive est égale au numéro de ligne de la cellule active

Load UserForm1 'On charge dans le formulaire les données suivantes

'Le contact de la ligne active
UserForm1.TextBox1.Value = Sheets("Feuil1").Cells(LigneActive, "A").Value
'Le téléphone de la ligne active
UserForm1.TextBox2.Value = Sheets("Feuil1").Cells(LigneActive, "B").Value
'Etc...
UserForm1.TextBox3.Value = Sheets("Feuil1").Cells(LigneActive, "C").Value
UserForm1.TextBox4.Value = Sheets("Feuil1").Cells(LigneActive, "D").Value
UserForm1.TextBox5.Value = Sheets("Feuil1").Cells(LigneActive, "E").Value
UserForm1.TextBox6.Value = Sheets("Feuil1").Cells(LigneActive, "F").Value
UserForm1.TextBox7.Value = Sheets("Feuil1").Cells(LigneActive, "G").Value
'Ici on charge le numéro de ligne dans la case référence
UserForm1.TextBox8.Value = LigneActive

UserForm1.Show 'Maintenant que tout est chargé, on peut afficher le formulaire
End Sub

Vous pouvez maintenant changer le nom de votre bouton "Ajouter" (dans le formulaire), en "Modifier", puis changer le "MSGBOX" en "Contact modifié avec succès !"... pourquoi pas.

Ensuite, cliquez sur le nom d'un contact, appellez le Userform et les données du contact sont automatiquement chargés, pretes à être modifier si vous le souhaitez... !

Pour l'étape suivante, on verra la recherche, car si votre liste de contact est de 500 contacts... c'est un petit peu dommage d'aller d'abord trouver le contact manuellement pour pouvoir le modifier...

Voir aussi :