Re-Bonjour !
(ouille ouille c'est dur ...)
j'ai une fonction qui fonctionnait très bien jusqu'à présent. Voilà que j'essaie de la mettre dans un boucle et ça ne fonctionne plus ...
Les deux situation ci-dessous :
- Procédure pour tester la fonction :
- Boucle avec la fonction :
Mystère pour moi ...
La fonction en inclue une autre donc je préfèrerais ne pas avoir à mettre le code et que cela soit juste une erreur "bête" de syntaxe mais je le transmets si besoin.
Merci beaucoup !
(Que ferais-je sans ce forum ...)
(ouille ouille c'est dur ...)
j'ai une fonction qui fonctionnait très bien jusqu'à présent. Voilà que j'essaie de la mettre dans un boucle et ça ne fonctionne plus ...
Les deux situation ci-dessous :
- Procédure pour tester la fonction :
Code:
Sub somepartest()
Dim u As Long
u = SommeParticipants("Lancement 2009")
MsgBox u
End Sub
- Boucle avec la fonction :
Code:
Sub SommePart()
Dim i As Integer
i = 10
Do Until IsEmpty(Range("A" & i))
Dim ev As String
ev = Range("G" & i).Value
Range("G" & i) = SommeParticipants(ev)
i = i + 1
Loop
End Sub
Mystère pour moi ...
La fonction en inclue une autre donc je préfèrerais ne pas avoir à mettre le code et que cela soit juste une erreur "bête" de syntaxe mais je le transmets si besoin.
Merci beaucoup !
(Que ferais-je sans ce forum ...)