VBA - utiliser données de user form dans main

Bonjour à tous,

je suis en train de coder un programme qui calcule un tableau d'amortissement d'un emprunt. J'ai reussi à faire un code à partir d'une feuille excel en prenant les paramètres que je voulais dans les cellules.

maintenant je voudrais améliorer ce programme dans une nouvelle version : je voudrais utiliser un userform pour demander à l'utilisateur d'entrer les paramètres de l'emprunt, et utiliser ces paramètres dans mon code pour les calculs.

Mon problème est que je n'arrive pas à faire le lien entre mon userform et mon main. Je ne sais pas comment faire pour utiliser les parametres saisis !

L'idéal pour moi serai de pouvoir partir du code de mon ancienne version, en faisant le moins de modifications possible, mais est-ce realisable? ou dois-je tout recommencer en fonction de mon userform?

je vous transmet mes codes :

Code:

---

1 2 3 4 5 6 7 8

userform (parametres) : tres simple, pour commencer, je demande juste le montant à l'utilisateur   Public Sub Calculer_Click() Dim montant As Double   montant = case_montant.Value   End Sub

---

puis dans mon main, je prends la valeur du montant du userform au lieu de le prendre dans une cellule excel (je mets juste le début, apres c'est inutilement compliqué :) )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub MAIN()   Dim feuil As Variant Dim nomonglet As String   For Each feuil In Worksheets If feuil.Name = "TEG" Then nomonglet = feuil.Name     'parametres pour le userform Dim encours, montant As Double   Dim encours as double     'afficher mon userform parametres.Show   'on prend la valeur du montant pour le code dans une nouvelle variable nommée encours encours = parametres.montant.Value   'puis affichage de l'encours saisi dans une cellule excel   Sheets(nomonglet).Cells(6, 4) = encours

---

merci d'avance, ca me sauverait...

Bonjour,
Pour qu'une variable alimentée par une procédure soit reconnue dans une UserForm ou tout module autre que celui qui contient la procédure, tu dois rendre cette variable publique.
Exemple

Code:

---

1 2 3 4

Public encours as double, montant As Double Sub Main() ' code End sub

---

Un peu de lecture sur le sujet, Utiliser les variables en VBA Excel

Bonjour,

je me permets de te refiler un bout de code pour exemple:

à mettre dans ton UserForm:

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click()   valeur_saisie = UserForm1.TextBox1.Value MsgBox "La valeur saisie est:" & valeur_saisie Call Module1.test_operation   End Sub

---

à mettre dans le module 1:

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit Public valeur_saisie As Double     Sub test_operation()   MsgBox "La valeur saisie est: " & (valeur_saisie * 2)   End Sub

---

et voilà !

merci beaucoup pour vos réponses si rapides !! j'y suis presque maintenant ! Je ne connaissait pas ces syntaxe ( call et public).

le code compile mais avec la version de "L'Albatros", j'ai une message box qui s'affiche (comme prévu) mais la valeur saisie vaut 0, et cette messagebox s'affiche avant que j'ai pu saisir la valeur!
en gros le userform ne s'affiche pas, je pense que c'est parce que je n'ai pas codé son apparition dans mon programme, mais la encore, je ne sais pas la syntaxe, et plus important encore, l'endroit ou je dois mettre l'instruction...

Si vous pouviez m'aider sur ce point, apres promis j'arrete de vous embeter :) ( en fin je vais essayer ! :) )

en tout cas merci c'est déjà super que j'ai un lien entre les 2 !

en fait j'ai trouvé comment faire ! je vous montre donc mon main final pour bien rentrer les parametres et afficher les messagebox :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit Public montant As Double   Private Sub workbook_open()   'pour masquer la feuille excel tant que les parametres ne sont pas saisis ThisWorkbook.Application.Visible = False   'afficher le userform parametres.Show   End Sub   'le userfom renvoie au MAIN Sub MAIN()   MsgBox "La valeur saisie est: " & (montant * 2)   End Sub

---

Merci beaucoup en tout cas c'est grace à vous !

ps : je me reserve donc une autre question technique à vous poser ^^ héhé