Faire une addition de chiffre entre multipage

Version imprimable

Bonjour à tous,

J'ai un petit soucis sur mon code. Je suis en école d'ingé et je dois réaliser une petite application sur vba.
J'ai créé une multipage avec 4 pages différentes (jusqu'ici tout va bien). Ensuite j'ai en parallèle mis des prix sur des tableaux excel correspondant aux choix des produits que je montre sur mes multipages.
Les prix s'affichent nickel et tout est ok. Le soucis c'est que je dispose de 4 pages dans ma multipage et je n'arrive pas à additionner les prix lorsque je change de page.
Actuellement j'arrive juste à additionner les prix sur une page de mon mutlipage (avec mes differents optionbutton) mais je n'arrive pas à transférer le prix de la page précédente sur la page suivante. Je ne sais pas si tout est clair..
A savoir, je fais apparaître mon prix dans un label.
Avez-vous une idée pour m'éclairer ?

Voici un bout de mon code qui me permet d'afficher les prix sur mes multipage :

'

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'01 CHASSIS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Private Sub ComboBox2_Change()
 
Dim PrixMontage As Double, Prix_64 As Double, Prix_62 As Double    'Afficher le prix des chassis
 
OptionButton14 = True                                        'Remmettre sur configuration 6*2 à chaque changement de véhicule
Me.Frame5.Visible = True
 
Call Module2.RechPrixOPTIMA(ComboBox2.Value, _
               PrixMontage, Prix_64, Prix_62)
Me.Label39.Caption = "Prix : " & Format(PrixMontage, "## ###.00 €")
End Sub
Private Sub OptionButton14_Click()
Image2.Picture = Feuil6.Image5.Picture
Dim PrixMontage As Double, Prix_64 As Double, Prix_62 As Double    'Afficher prix avec option chassis 6*4
Call Module2.RechPrixOPTIMA(ComboBox2.Value, _
               PrixMontage, Prix_64, Prix_62)
 If OptionButton14 = True Then
    Me.Label39.Caption = "Prix : " & Format(PrixMontage + Prix_62, "## ###.00 €")
    End If
 
End Sub
 
Private Sub OptionButton13_Click()
Image2.Picture = Feuil6.Image4.Picture
Dim PrixMontage As Double, Prix_64 As Double, Prix_62 As Double       'Afficher prix avec option 6*2
Call Module2.RechPrixOPTIMA(ComboBox2.Value, _
               PrixMontage, Prix_64, Prix_62)
    If OptionButton13 = True Then
    Me.Label39.Caption = "Prix : " & Format(PrixMontage + Prix_64, "## ###.00 €")
 
    End If
End Sub
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'02 BRAS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub OptionButton7_Click()
    If OptionButton7 = True Then                              'Afficher le poids de l'OPTIMA+ 46
    Me.Label26.Visible = True
    End If
        Dim PrixOptima As Double
        Dim Verrouillage_avant As Double
        Dim Installation_PMT As Double
        Dim Crochet_fixe As Double
        Dim Crochet_pneumatique As Double
 
        Call Module3.RechOPTIMA(OptionButton7.Caption, _
        PrixOptima, Verrouillage_avant, Installation_PMT, Crochet_fixe, Crochet_pneumatique)
        If OptionButton7 = True Then
        Me.Label40.Caption = "Prix : " & Format(PrixOptima, "## ###.00 €")
        End If
End Sub

Merci d'avance pour votre aide

Bonjour,

On a du vous dire pendant vos cours de C de structurer votre code :
1) La déclaration de variable se fait habituellement en début de procédure
2) on met des tabulations pour structurer :

Code:

1
2
3
4
5
If DossierExiste(Fichier) Then
        Feuille = "Global$"
Else
        Feuille = "Début$"
End if

et non

Code:

1
2
3
4
5
If DossierExiste(Fichier) Then
Feuille = "Global$"
Else
Feuille = "Début$"
End if

Ensuite pour votre problème, il suffit d'utiliser les événements dispo pour l'objet Multipage :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub MultiPage1_Change()
    Select Case Me.MultiPage1.Value
        Case 0
            'dans le cas où on sélectionne le 1° onglet
        Case 1
            'dans le cas où on sélectionne le 2° onglet
        Case 2
            'dans le cas où on sélectionne le 3° onglet
        'etc.
    End Select
End Sub

03/03/2017, 10h48
seblafrite

Bonjour Many31,

Dans un premier temps merci pour ta réponse. En effet mon code est mieux structuré car en faisant le copier coller de ma feuille excel, le message n'a pas pris en compte les espaces.
Par ailleurs je vois ce que tu veux dire avec l'outil case, mais que faut-il mettre dedans ? Le code que j'ai fait précédemment?
Je débute en VBA désolé de ne pas être très performant.
03/03/2017, 11h28
Many31

Pouvez vous être plus clair?

Citation:

J'ai créé une multipage avec 4 pages différentes (jusqu'ici tout va bien). Ensuite j'ai en parallèle mis des prix sur des tableaux excel correspondant aux choix des produits que je montre sur mes multipages.
Les prix s'affichent nickel et tout est ok. Le soucis c'est que je dispose de 4 pages dans ma multipage et je n'arrive pas à additionner les prix lorsque je change de page.

Les prix s'affichent dans quoi? quelle addition (en gros faut il sélectionner un prix dans la page 1 pour après aller sur la page2?)

Les pages d'un multipage sont "virtuelles" à savoir que pour accéder à un objet d'une page ou d'une autre, la page en elle même n'est pas discriminante (en gros les objets de chaque page, ont toujours leur "chemin d'accès" par le Userform : exemple pour une Combobox1 dans la page 1 on écrira : Userform1.Combobox1 et non Userform1.Multipage1.Page(0).combobox1)
03/03/2017, 11h39
seblafrite

2 pièce(s) jointe(s)

Le top serait une formule similaire pour prendre la valeur affichée dans le label et la transférer dans un autre label mais ça ne marche pas :

Code:

Label45.Caption = val(Me.Label40.Caption) + val(Me.Label41.Caption) + val(Me.Label42.Caption) + val(Me.Label43.Caption) + val(Me.Label44.Caption)

En fait lorsque l'utilisateur choisi un modèle, un prix s'affiche dans un premier label situé sur la feuille 1 (voir photo) puis l'utilisateur choisi optima49 ou optima 51... et le prix de l'optima s'ajoute au précédent prix qui était affiché dans le label situé en page 1. Un label "prix" est toujours situé en bas à droite pour voir le prix dès que l'on ajoute une option

C'est un peu trivial mais en gros je vous conseillerais d'utiliser une variable commune de type tableau avec pour dimension le nombre de label que vous avez.
Variable à placer tout en haut de votre module (en dehors des Sub / Function)

Ca devrait donner ça :
Code:

1 2 3 4 5 6 7 8 Public MatLabel(50) as Double ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '01 CHASSIS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub ComboBox2_Change() 'etc.
Ensuite dans votre code, à chaque fois que vous renseignez un prix dans un label, stockez ce même prix dans le tableau
Exemple :

Code:

MatLabel(2) = PrixMontage + Prix_64

Ce sera plus simple pour faire vos additions puisque ca donnera :
Code:

1 2 MatLabel(45) = MatLabel(40) + MatLabel(41) + MatLabel(42) + MatLabel(43) + MatLabel(44) Label45.Caption = "Prix : " & Format(MatLabel(45) , "## ###.00 €")
pour une addition de tous les autres prix par exemple, utiliser une boucle :
Code:

1 2 3 4 For i = 0 to Ubound(MatLab) if i <> 45 then MatLabel(45) = MatLabel(45) + MatLabel(i) next
Par contre je comprends pas votre sub Module2.RechPrixOPTIMA()
Pourquoi ne pas utiliser une fonction afin de retourner directement la valeur?

Citation:

Envoyé par seblafrite

Le top serait une formule similaire pour prendre la valeur affichée dans le label et la transférer dans un autre label mais ça ne marche pas :

Code:

Label45.Caption = val(Me.Label40.Caption) + val(Me.Label41.Caption) + val(Me.Label42.Caption) + val(Me.Label43.Caption) + val(Me.Label44.Caption)

Pour que cela marche il faudrait que vous viriez le texte "Prix : " dans le Caption :

Code:

Val(Replace(Me.Label41.Caption, "Prix : ", ""))

03/03/2017, 14h03
seblafrite

J'ai essayé de faire ce que vous m'avez dit avec les label, mais ça ne marche pas. Je pense que je dois mal placer les informations.
De base le :

Code:

Public MatLabel(50) as Double

Ne fonctionne pas...
03/03/2017, 15h41
HopPopPop

Une solution :
Pourquoi ne pas mettre le control Label Prix en dehors du control Multipage, mais bien sûr toujours dans le Formulaire.