Discussion :

[eliamat]

Bonjour,

Je réalise un programme dans lequel j'utilise des procédures ainsi que des fonctions.
Ce programme est destiné à être exécuté depuis Excel uniquement, ce qui signifie que pour exécuter certaines fonctions, je dois créer des procédures liées à des boutons, seul moyen pour l'utilisateur de les exécuter.

Si j'énumère les étapes je dois:
1.Récupérer et stocker les valeurs saisies dans Excel par l'utilisateur à travers la procédure SOLLICITATION.
2.Utiliser les valeurs stockées dans la précédente procédure et les traiter (divers calculs) dans la fonction COMB
3.Exécuter et stocker des valeurs intermédiaires de la précédente fonction dans Excel à l'aide de la procédure CAL: cette procédure sera exécutée par l’intermédiaire d'un bouton dans Excel.

J'espère avoir été claire dans mes explications.

1.Procédure SOLLICITATION :

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
Public Sub sollicitation()
 
Dim ELU, Nu, Vyu, Vzu, Myu, Mzu, Tu As Double
Dim type_soll As String
 
ELU = Cells(9, 28).Value
'*****************************************************RECUPERE SOLLICITATIONS************************************************************************
'ELU
ligne_ELU = Switch(ELU = 100, 17, ELU = 101, 18, ELU = 102, 19, ELU = 103, 20, ELU = 104, 21)
    Nu = Cells(ligne_ELU, 4).Value
    Vyu = Cells(ligne_ELU, 5).Value
    Vzu = Cells(ligne_ELU, 6).Value
    Myu = Cells(ligne_ELU, 7).Value
    Mzu = Cells(ligne_ELU, 8).Value
    Tu = Cells(ligne_ELU, 9).Value
    type_soll = Cells(ligne_ELU, 10).Value
 
'nommer ici les différentes fonctions et procédures qui utilisent les variables
Comb Nu, Vyu, Vzu, Myu, Mzu, Tu 'test
 
End Sub

2.Fonction COMB: (je l'ai simplifié car code trop long)

Code :

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

1
2
3
4
5
Public Function Comb (Nu, Vyu, Vzu, Myu, Mzu, Tu)
Dim a As Double
'Call sollicitation
a = Nu + Vyu + Vzu + Myu + Mzu + Tu
End Function

3.procédure CAL

Code :

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

1
2
3
4
5
6
Public Sub Cal()
Call sollicitation
Call Comb(Nu, Vyu, Vzu, Myu, Mzu, Tu)
MsgBox "BINGO "
Cells(14, 4) = a
End Sub

Le problème est que lorsque j'exécute la procédure CAL, la variable a est vide.. Il semblerai que les variables Nu, Vyu, Vzu, Myu, Mzu et Tu ne stockent rien alors que j'appelle la procédure sollicitation...
D'avance merci pour votre aide

[joe.levrai]

Bonjour,

sans revoir la mécanique de tes appels qui pourrait être rationnalisée ... ton problème ici est un "simple" problème de portée des variables

chaque variable a une portée "procédure" (ou fonction), ce qui signifie que quand tu veux les réutiliser ailleurs (par exemple Call Comb(Nu, Vyu, Vzu, Myu, Mzu, Tu) dans ta procédure Cal()), ce sont de nouvelles variables et pas celles de tes autres procédures.


La solution la plus simple pour toi, c'est de déclarer tes variables tout en haut du module qui contient tes procédures/fonctions .... ceci afin d'augmenter leur portée à l'ensemble du module


Bien sûr, mais ça demande un peu plus d'expertise, j'aurai plutôt opté pour des passages de paramètres entre tes procédures, car l'idée d'une procédure maîtresse qui appelle le reste, c'est conseillé.

[eliamat]

Merci pour ton retour,
Alors j'ai déclaré tout en haut du module:

Code :

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

Public Nu, Vyu, Vzu, Myu, Mzu, Tu, a As Double

et j'ai supprimé la déclaration de ces variables dans les procédure et fonction.
Par contre je retourne la valeur a=0 et les variables Nu,Vyu,Myu,Mzu,Tu sont vides....
Y a -t-il autre chose à ajouter?

[joe.levrai]

Déjà, seule ta variable a est un Double, les autres sont des Variant
lors d'une déclaration multiples sur une seule ligne, il faut préciser le type de CHAQUE variable

Code :

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

Dim Toto As Double, Titi As Double, Toutou, Tonton As Double  ' Ici Toutou est un Variant

Ensuite, ta fonction ne retourne rien
Ton résultat de fonction est dans la variable "a", il faut ensuite transmettre à la fonction

Code :

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

1
2
3
4
5
Function MaFonction(MaVariable As Double) As Double
Dim a As Double
a = MaVariable *2
MaFonction = a  ' ou directement faire MaFonction = MaVariable *2
End Function

Et on ne la "Call" pas la fonction, on affecte son résultat à une variable appelante par exemple

Code :

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

1
2
3
4
5
Sub LancerMaFonction
Dim b as Double
b = MaFonction(8)
MsgBox b
End Sub

[Menhir]

L'un de tes problèmes est que tu ne comprends pas la différence entre un Sub et une Function.
En gros, un Sub réalise une action alors qu'une Function renvoie une valeur (oui, je sais, c'est très simplifié comme explication mais c'est à peu près la philosophie du truc).
https://msdn.microsoft.com/fr-fr/VBA...tion-statement

Donc, dans ta fonction Comb, il doit y avoir quelque part un "Comb = ..." qui définit la valeur renvoyée par la fonction.

Code :

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

1
2
3
Public Function Comb(Op1 As Double, Op2 As Double, Op3 As Double, Op4 As Double, Op5 As Double, Op6 As Double) As Double
    Comb = Op1 + Op2 + Op3 + Op4 + Op5 + Op6
End Function

Du coup, tes deux Sub (sollicitation et Cal) peuvent être fusionnées :

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
Public Sub Cal()
   Dim ELU As Double, Nu As Double, Vyu As Double, Vzu As Double, Myu As Double, Mzu As Double, Tu As Double
   Dim type_soll As String
 
   ELU = Cells(9, 28).Value
   ligne_ELU = Switch(ELU = 100, 17, ELU = 101, 18, ELU = 102, 19, ELU = 103, 20, ELU = 104, 21)
 
   Nu = Cells(ligne_ELU, 4).Value
   Vyu = Cells(ligne_ELU, 5).Value
   Vzu = Cells(ligne_ELU, 6).Value
   Myu = Cells(ligne_ELU, 7).Value
   Mzu = Cells(ligne_ELU, 8).Value
   Tu = Cells(ligne_ELU, 9).Value
   type_soll = Cells(ligne_ELU, 10).Value
 
    Cells(14, 4) = Comb(Nu, Vyu, Vzu, Myu, Mzu, Tu)
    MsgBox "BINGO "
End Sub

Petite remarques en passant : dans un Dim, il faut indiquer le type de chaque élément.
Si on n'indique que le type de l'élément final (comme tu l'as fait dans ta macro solicitation), seul Tu est défini comme Double, les autres restent de type Variant.

Autre conseil : dans ton cas, il me semble que la fonction Choose aurait été plus pratique que Switch.
https://msdn.microsoft.com/fr-fr/VBA...hoose-function

Code :

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

   ligne_ELU = Choose(ELU - 99, 17, 18, 19, 20, 21)

Voir même une simple soustraction :

Code :

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

   ligne_ELU = ELU - 83