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