Guillaume in Zevillage

Pour l’utilisation des onglets, voici une petite application, y’a rien d’exceptionnel, mais cela va vous permettre d’y voir plus clair, je l'espère…

 

Le principe est simple, un premier onglet dans lequel on entre les infos d’un contact à ajouter. Ensuite, on visualise ce contact sur le deuxième onglet en cliquant sur « Visualiser… »

 

 

 

Private Sub CommandButton1_Click()

‘copie du nom (onglet 1) dans le label correspondent (Onglet 2)

UserForm1.Label7 = UserForm1.TextBox1.Text

‘copie du prénom (onglet 1) dans le label correspondent (Onglet 2)

UserForm1.Label8 = UserForm1.TextBox2.Text

‘copie de la ville (onglet 1) dans le label correspondent (Onglet 2)

UserForm1.Label9 = UserForm1.TextBox3.Text

 

‘Ensuite je sélectionne le deuxième onglet

‘Notez que le premier onglet à pour valeur 0

UserForm1.MultiPage1.Value = 1

 

End Sub

 

Maintenant que je suis sur le deuxième onglet, je clique sur le bouton « Ajouter » afin de l’ajouter dans ma feuille Excel.

 

 

 

Private Sub CommandButton2_Click()

   

‘Je recherche dans ma feuille la première ligne vide

    Dim x As Long

    For x = 1 To Range("A65000").End(xlUp).Row

    If Range("A" & x).Value = 0 Then

‘Ensuite je vais ajouter le contact

    GoTo ajout

    Exit For

    End If

    Next x

   

ajout:

    ‘Je mets le nom dans la colonne A

    Cells(x, "A").Value = UserForm1.TextBox1.Text

    ‘ Le prénom dans la colonne B

    Cells(x, "B").Value = UserForm1.TextBox2.Text

    ‘ Et la ville dans la colonne C

    Cells(x, "C").Value = UserForm1.TextBox3.Text

 

   

Unload UserForm1

End Sub

 

Comme je vous l’ai dit, ce n’est rien d’exceptionnel, mais cela permet d’y voir un plus clair dans les procédures… Demandez si besoin de plus d’infos !

 

Private Sub UserForm_Initialize()

 

‘Au chargement de mon Userform, j’efface toutes les valeurs

 

UserForm1.TextBox1.Text = ""

UserForm1.TextBox2.Text = ""

UserForm1.TextBox3.Text = ""

UserForm1.Label7 = ""

UserForm1.Label8 = ""

UserForm1.Label9 = ""

‘Et me positionne sur le premier onglet

UserForm1.MultiPage1.Value = 0

 

End Sub

 

 

 

 

Voir aussi :

• Partage de connaissances VBA sur Excel
• Les UserForm sous Excel
• Utilisation des Intitulés et Zones de textes
• Utilisation des variables
• Charger les données d'un UserForm
• Faire une recherche dans un UserForm

• Créer un lien en VBA

   

Mots-clés : VBA, Excel, Userform