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.