Somme ne fonctionne pas

[glm]

Bonjour le forum,
j'ai un petit soucis d'addition
Voici le code
Sub Totaux()
f = 9: v = 20
For g = 1 To 52 'boucle sur 52 semaines
Worksheets('horaires').Activate
For q = f To v
Worksheets('horaires').Range('R' & q).Value = Worksheets('horaires').Range('D' & q) + Worksheets('horaires').Range('F' & q) + Worksheets('horaires').Range('H' & q) + Worksheets('horaires').Range('J' & q) + Worksheets('horaires').Range('L' & q) + Worksheets('horaires').Range('N' & q) + Worksheets('horaires').Range('P' & q)
Next q
f = f + 35
v = v + 35
Next g
End Sub
Cela bloque sur l'addition, il fait la première boucle(de 9 à 20) puis se bloque
J'ai essayé différente chose mais rien
Merci pour vos idées
Bonne Journée
A+

 

[pierrejean]

bonjour glm

il faut regarder un peu plus loin !!!

35 lignes plus bas exactement

en fait la sub fait bien ce que tu lui demandes et jusqu'au bout

par contre ,ce que tu lui demandes est-ce ce que tu veux ??? [file name=glm_20060223083258.zip size=8964]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/glm_20060223083258.zip[/file]

Message édité par: pierrejean, à: 23/02/2006 08:32

 

[glm]

bonsoir,
merci pierrejean pour la réponse
Mais pour moi la boucle s'arrete à 45 pour q
et à 2 pour g
A+