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

Commentaire

■ La fonction CDbl convertit une valeur numérique en nombre à virgule (type Doule.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

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