Explicit et Volatile

Bonjour à toutes et à tous,
il m'a été transmis un fichier excel que je dois "aménager" notamment avec des macros...
Je constate que je suis contraint de déclarer mes variables, alors que je n'ai nul part "Option Explicit", que les Functions créés ne sont pas par défaut volatile...
Des idées ?
Bon week-end !
SB

Bonjour,
Tu es obligé de déclarer une variable si tu l'utilises pour appeler une fonction à paramètre.
Exemple : Tu veux appeler la fonction Test :
La fonction Test est libellée comme suit :

Code:

---

1 2 3

Function Test(i%) 'Longue suite d'opération... End Function

---

Cette fonction attend comme paramètre un integer (i%) :

Si tu appelles cette fonction avec une variable elle doit être explicitement déclarée comme integer.

A+

Bonjour,

Si Option Explicit n'est pas déclaré en tête de module, il n'y a aucune raison pour que le compilateur couine !

Toutes fonction n'a pas à être déclarée Volatile. On déclare une fonction volatile si on souhaite qu'elle soit exécutée à chaque calcul de la feuille, un exemple de fonction bidon qui doit être déclarée Volatile si on souhaite qu'à chaque modif dans la feuille :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim A As Long   Function MaFonction() As Long   Application.Volatile A = A + 1 MaFonction = A   End Function

---

Chaque modif d'une cellule dans la feuille où est appelée la fonction "MaFonction()" (qui ne demande aucun argument) incrémentera la valeur de A et cette dernière sera retournée par la fonction.
Testes avec et sans "Application.Volatile" pour voir le résultat. Aujourdhui(), Maintenant(), Alea(), etc... sont des fonctions volatile.
Si une fonction demande un ou plusieurs arguments et qu'un de ces derniers change de valeur, la fonction sera obligatoirement appelée et retournera un résultat sans avoir été déclarée volatile.

Salut

Si je peux me permettre: Il FAUT mettre Option Explicit au début de chaque module... Et il faut paramétrer l'éditeur pour qu'il le fasse à ta place pour chaque nouveau module (voir mon billet de blog)

Citation:

---

Envoyé par galopin01;10434794[...

Tu es obligé de déclarer une variable si tu l'utilises pour appeler une fonction à paramètre.
[...]
Cette fonction attend comme paramètre un integer (i%) :

Si tu appelles cette fonction avec une variable elle doit être explicitement déclarée comme integer.

A+

---

Je serais personnellement plus nuancé.

Par défaut, un argument est passé par référence (ByRef) ce qui veut dire que l'on ne passe pas l'argument lui-même mais son emplacement en mémoire. Et donc, puisque la fonction appelée est censée recevoir un integer et peut le transformer dans le code appelant (byref), il est logique que si elle peut manipuler un integer, il faut lui avoir passé un integer. Le gestionnaire de mémoire s'y perdrait, sinon.

Mais si on passe les arguments par valeur (ByVal), alors, on n'est pas obligé de passer des integer (c'est mieux, évidemment) mais on doit passer des valeurs qui peuvent être transtypées en integer.

Le code qui suit fonctionne même en passant des valeurs non typées Integer (mais si on enlève le Byval ou qu'on le remplace par ByRef, ça va coincer)

Code:

---

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

Sub TestAppel() Dim value As Variant Dim LongValue As Long Dim StringValue As String   mafonction 54 value = 45 mafonction value LongValue = 1000 mafonction LongValue StringValue = "19" mafonction StringValue End Sub   Function mafonction(ByVal i As Integer) Debug.Print i End Function

---

Merci pour tous ces détails.:D
Bon dimanche,
SB