Les boîtes de dialogue

Boîte de dialogue avec un contrôle TabStrip (contrôle Onglet).Retour au menu Contrôles divers

        Quelques infos à propos du Contrôle TabStrip
                Un contrôle TabStrip est un contrôle contenant une collection d'un
                ou de plusieurs onglets.
                Dans les contrôles TabStrip, ceux-ci sont indépendants des pages.
                En réalité un clic sur un onglet n'affiche pas de nouvelle page.
                Pour les contrôles TabStrip, la propriété Value permet de déterminer
                ou de définir quel onglet est actif.

        Cet exemple permet en cliquant sur l'un des onglets, d'avoir instantanément
        les chiffres correspondants à l'activité indiquée sur l'onglet.

        Le Userform (Avec 3 onglets)

        Le code

        Code lançant l'ouverture de la boîte de dialogue

 
Sub AfficheTabStrip()
      UserForm1.Show
End Sub

        Code d'ouverture du formulaire

 
Private Sub UserForm_Activate()
       Me.TabStrip1.Value = 0
       For I = 1 To 5
              Me.Controls("TextBox" & I).Value = Sheets("Résultats").Cells(I + 1, 2).Value
       Next I
End Sub

        Code sur l'événement Change

 
Private Sub TabStrip1_Change()
        Select Case TabStrip1.Value
                Case 0
                        For I = 1 To 5
                                Me.Controls("TextBox" & I).Value = Sheets("Résultats").Cells(I + 1, 2).Value
                        Next I
                Case 1
                        For I = 1 To 5
                                Me.Controls("TextBox" & I).Value = Sheets("Résultats").Cells(I + 1, 3).Value
                        Next I
                Case 2
                        For I = 1 To 5
                                Me.Controls("TextBox" & I).Value = Sheets("Résultats").Cells(I + 1, 4).Value
                        Next I
        End Select
End Sub

        Code du bouton Fermer

       Bouton Fermer
 
Private Sub CmdFermer_Click()
        Me.Hide
End Sub
        Les données de la feuille Résultats utilisées pour remplir le UserForm.

Retour au début de document

Retour au début du document