Petit souci dans une macro - VBA

Bonjour à toutes & à tous,

Alors voilà, je suis ici car j'ai créé une macro mais celle-ci rencontre un petit problème lorsque je la lance.

Voici le code en question:

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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

Sub comptemois()   Application.ScreenUpdating = False ' ' Macro1 Macro ' Dim i, j As Integer Dim compteur As Integer Dim eotp, eotp1 As Integer Dim period, period1 As Integer   For k = 3 To 76 Sheets("TempsEOTPMOIS").Select eotp = Cells(k, 2).Value eotp1 = Cells(k + 1, 2).Value   For m = 3 To 39   period = Cells(2, m).Value period1 = Cells(2, m + 1).Value   Sheets("Planning (2)").Select compteur = 0 i = eotp + 1     Do While i < eotp1 j = period Do While j < period1   If IsNumeric(Cells(i, j).Value) = False Then If Cells(i, j).Value <> "CE01" And Cells(i, j).Value <> "CT02" And Cells(i, j).Value <> "CT04" And Cells(i, j).Value <> "CT10" And Cells(i, j).Value <> "EP03" And Cells(i, j).Value <> "ES01" And Cells(i, j).Value <> "ES02" And Cells(i, j).Value <> "ES03" And Cells(i, j).Value <> "ES04" And Cells(i, j).Value <> "MT01" And Cells(i, j).Value <> "RA01" And Cells(i, j).Value <> "RS02" And Cells(i, j).Value <> "RS03" Then compteur = compteur + Cells(i + 1, j).Value End If End If     j = j + 1 Loop i = i + 1 Loop   Sheets("TempsEOTPMOIS").Select Cells(k, m).Select ActiveCell.FormulaR1C1 = compteur     Next Next Application.ScreenUpdating = True ' End Sub

---

Le déboggueur m'affiche une erreur sur cette ligne:

Code:

---

compteur = compteur + Cells(i + 1, j).Value

---

Quel est le problème d'après vous et comment puis-je le résoudre ?

Merci à tous :)

Quel est le message d'erreur ? Que valent compteur et Cells(i + 1, j).Value dans les espions ?
Ce sont toutes les questions qu'il faut commencer par te poser.

Le problème peut être :
- compteur dépasse la taille maximale d'un entier (un peu plus de 32000). Dans ce cas il faut le déclarer en Long
- Cells(i + 1, j).Value n'est pas un entier (un réel ou du texte) et du coup ça ne peut pas marcher.

Bonjour à tous

Peut-être que ce n'est pas une valeur qu'il y a dans

Code:

---

Cells(i + 1, j).Value

---

vu le :

Code:

---

If IsNumeric(Cells(i, j).Value) = False

---

donc difficile de faire :

Code:

---

compteur = compteur + Cells(i + 1, j).Value

---

Eric

J'ai essayé de déclarer "compteur" en Long mais cela ne résoud pas le problème.

Et ce sont bien des entiers qu'il y a dans les cellules donc cela me semble bizarre... 8O

Concernant l'erreur, c'est juste le deboggueur qui me stipule qu'il y a une erreur sur cette ligne.

D'autres idées ?

Merci !

Effectivement, je n'avais pas bien vu ton code est c'est évident que tu rentres dans la boucle seulement si ce n'est pas un nombre.
Il faut que tu apprennes à te servir du pas à pas et des espions du déboggeur.

Re

et si tu essayais de mettre

Code:

---

If IsNumeric(Cells(i, 2).Value) = True

---

si seules les cellules que tu veux exploiter sont des valeurs
Eric

Re,

Cela ne fonctionne toujours pas, grrrrrrr !!!

Re

Ta condition est :

Code:

---

IsNumeric(Cells(i, 2).Value)=False

---

=> donc "pas valeur"

ton test est :

Code:

---

...<>Cells(i, j).Value

---

=> donc diff de "CE01"....

et tu fais :

Code:

---

compteur + Cells(i + 1, j).Value

---

=> donc "valeur"

est-ce bien ce que tu veux faire ?

Fais du pas-à-pas et vérifie ce qu'il y a dans les "variables"

Eric