Discussion :

[cecile_64]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[L'Albatros]

Bonjour,

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

à mettre dans ton UserForm:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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à !

[cecile_64]

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 !

[cecile_64]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é