Discussion :

[SBranchu]

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

[galopin01]

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 :

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

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+

[Theze]

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 :

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

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.

[Pierre Fauconnier]

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)

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 :

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

[SBranchu]

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