Discussion :

[eliot.raymond]

Bonjour a tous et toutes, forum bonjour,

Voila j'ai repris un code qui fonctionnais bien et je viens de lire qu'il est conseillé de mettre en début de procédure le code Option Explicit alors je mets et depuis j'ai l'erreur de compilation avec variable non définie

Si quelqu'un svp veut bien m'expliquer si il y a vraiment un erreur dans le code ci-dessous

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
Option Explicit
Function sommecouleur(zne As Range)
Application.Volatile True
For Each Cell In zne
If Cell.Interior.ColorIndex = 4 Then Cvsomme = Cvsomme + Cell.Value
Next Cell
sommecouleur = Cvsomme
End Function
 
Function moisencours(zone As Range)
For Each Cell In zone
If Cell.Value > 0 Then tot = Cell.Column
Next Cell
tot2 = Cells(3, tot)                 
moisencours = tot2
End Function
 
'*** Touche controle au clavier:Ctrl + M
Sub Macro1()
Cells(16, 1) = Cells(16, 1) + 1       
End Sub

Merci a vous et de votre temps bonne apres midi

Raymond

[aalex_38]

Code :

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

OPTION EXPLICIT

Demande à ce que toutes les variables utilisées soient définies, le message est donc normal si le code ne l'est pas, a noter qu'il met en surbrillance la variable a definir

Edit: Cvsomme n'est pas défini par exemple

[ucfoutu]

Bonjour,

Mais...VB s'arrête en prinicipe alors sur toute variable non définie (typée)

aucune de tes variables n'est définie !

[Minick]

Salut,

Le message est bien explicite (comme l'option ... )

Il te manque toutes les declarations de variables.

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
22
23
24
25
26
27
28
29
30
31
 
Option Explicit
Function sommecouleur(zne As Range) as Double 'Ne pas oublier le type renvoyé
' Declaration des variables
Dim Cell as Range
Dim Cvsomme as Double
 
Application.Volatile True
For Each Cell In zne
If Cell.Interior.ColorIndex = 4 Then Cvsomme = Cvsomme + Cell.Value
Next Cell
sommecouleur = Cvsomme
End Function
 
Function moisencours(zone As Range) as Double  'Ne pas oublier le type renvoyé
' Declaration des variables
Dim Cell as Range
Dim tot as Byte
Dim tot2 as Double
 
For Each Cell In zone
If Cell.Value > 0 Then tot = Cell.Column
Next Cell
tot2 = Cells(3, tot)                 
moisencours = tot2
End Function
 
'*** Touche controle au clavier:Ctrl + M
Sub Macro1()
Cells(16, 1) = Cells(16, 1) + 1       
End Sub

++
Minick

[Krovax]

Je ne saurais que te conseiller les tutos sur les variables que tu trouveras ici

[eliot.raymond]

Salut minick, ucfoutu,aalex38, forum,

Merci pour la reponse c'est bon c'etait un code fait au boulot il y a deja longtemps et sur xl 2007 soucis reparer grace vous

je vous remercie tous pour le coup de main.

et bon W-end du 1ier mai a tous et au forum

Raymond