Discussion :

[zangaloni]

Bonjour,
mon problème réside dans le fait que j'appelle une fonction à partir d'un module avec un argument, une fois le traitement de la fonction terminé, l'argument prend la valeur de 283 sachant qu'avant l'appel l'argument égal à 19.
En plus, dans la fonction aucun traitement n'est fait sur l'argument.
achant que l'argument est déclarer sur le module comme static

Code :

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

1
2
3
4
5
 
sub test()
Feuil1.Everything (k)
     MsgBox k
ens sub

N.B la macro sub se trouve dans le module tandis que la fonction everything se trouve sur la feuil1
Merci de m'aider je suis coincé

[pgz]

Bonjour.

Il serait utile de montrer

• la déclaration de k
• l'affectation d'une valeur à k
• la fonction EveryThing

Cordialement,

PGZ

[zangaloni]

bonjour,

La déclaration de K est au top du module :
+

Code :

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

public k as integer

L'affectation d'une valeur à k se fait au début du module:
+

Code :

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

1
2
3
4
5
6
Sub initialise()
    k = 19
    '....
    'traitement ou le k n'intervient pas
 
End Sub

( j'ai un bouton qui fait appel à cette macro initialise())

La fonction evrything

Code :

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

1
2
3
4
5
6
7
Public Function Everything(ela As Integer)
 
 
        M1 = ThisWorkbook.Sheets("Data 2").Cells(ela, 12)
'....
'.....
'plein de traitements ou le nouveau "k" ==> "ela" ne prend pas de nouveaux valeurs.

[Pierre Fauconnier]

Salut.

Sélectionne ela dans la procédure, puis par clic droit, ajoute-là aux espions et coche "Arrêt si la valeur change". Tu verras ainsi sur quelle ligne le problème se pose.

[zangaloni]

oui j'avais fait ça aussi et je me suis rendu compte que le changement se passe quand la main revient au module après que la fonction "everything" termine.
J'ai pu faire ceci grâce au msgbox

[Pierre Fauconnier]

Et cela a résolu ton problème?