L'utilisation d'Option Explicit

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:

---

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

Code:

---

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

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 !

Salut,

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

Il te manque toutes les declarations de variables.

Code:

---

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

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

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