Partager des valeurs entre les formulaires personnalisée Userform, Excel VBA

S’il existe plusieurs formulaires dans le projet, ils peuvent échanger des valeurs via des variables publiques et les variables doivent être déclarées dans le module standard. Un exemple d’échange de valeurs est présenté dans le code suivant. Nous allons créer deux formulaires. Dans le premier, placez deux zone de texte et un bouton de commande. Le second est une zone de texte. Lorsque le bouton est enfoncé dans le premier formulaire, les valeurs de ses champs sont lues, puis elles sont ajoutées, le premier formulaire est fermé, le second est affiché et le montant trouvé est affiché dans sa zone de texte.

Premier module de formulaire

Private Sub CommandButton1_Click()

    valeurechange = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)

    Unload Me

    UserForm2.Show

End Sub

Deuxième module de formulaire

Private Sub UserForm_Initialize()

    TextBox1.Text = valeurechange

End Sub

 

Module standard

Public valeurechange As Double

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x