Problème fonction offset / sum

Bonjour à Tous,

J'ai un souci sur la fonction ci-dessous je suis débutant j'ai fouillé pas mal mais je n'arrive pas à trouver mon erreur.

J'ai crée cette fonction pour l'appeler sous Excel mais j'ai un problème de valeur en retour.

Le mois se situe dans une cellule contenant le nombre donc pas de pb, en revanche je souhaiterais définir une cellule situé par exemple 2 cas + loin horizontalement pour faire une somme de la première à cette cellule mais offset doit être utilisé que pour selection peut etre?

La fonction somme est peut être fausse aussi?

En vous remerciant par avance :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function Realisation(Nb_mois As Range, Cellule1 As Range, Cellule2 As Range)   Mois = Nb_mois.Value   Cellule3 = Cellule2.Offset(0, Mois - 1)   Cellule4 = Cellule2.Offset(0, Mois - 1)   Realisation = [Sum(Cellule1:Cellule3] / [Sum(Cellule2:Cellule4)] * 100   Realisation = Round(Realisation, 2)   End Function

---

Bonjour,

Le plus simple c'est de mettre des espions sur tes variables et d'exécuter ta fonction au pas à pas.

Je ne trouve pas la solution? une idée?

Bonsoir,

Je ne sais pas si cela fonctionne également sous Excel 97, mais

Code:

---

application.worksheetfunction.sum(...

---

ne résoudrait pas le problème ?

Sinon, essaye de déclarer tes variables et de spécifier que tu parles de la valeur de la cellule... par exemple Cellule2.Offset(0, Mois - 1).Value

Ah mais attends, quand tu écris

Code:

---

Cellule3 = Cellule2.Offset(0, Mois - 1)

---

tu veux pas récupérer la valeur mais affecter l'objet (cellule) ?

dans ce cas-là :

Code:

---

Set Cellule3 = Cellule2.Offset(0, Mois - 1)

---

Variable = range... affecte à la Variable la valeur de la range (ou le texte, si c'en est)...
Set Variable = range... affecte l'objet à la variable, tu peux donc après "jouer" avec les propriétés du type Variable.Interior.Color, Variable.Offset(x,y), etc.

Ca ne me résoud pas mon problème car j'ai besoin des cellules pour faire ma somme...

Citation:

---

Envoyé par Quentin77170

Ah mais attends, quand tu écris

Code:

---

Cellule3 = Cellule2.Offset(0, Mois - 1)

---

tu veux pas récupérer la valeur mais affecter l'objet (cellule) ?

dans ce cas-là :

Code:

---

Set Cellule3 = Cellule2.Offset(0, Mois - 1)

---

Variable = range... affecte à la Variable la valeur de la range (ou le texte, si c'en est)...
Set Variable = range... affecte l'objet à la variable, tu peux donc après "jouer" avec les propriétés du type Variable.Interior.Color, Variable.Offset(x,y), etc.

---

Nikel le "set" marche pour utiliser offset me manque la somme je dois avoir un souci de syntaxe je n'arrive pas à sommer les cellules...

Ceci fonctionne chez moi :)

Code:

---

1 2 3 4 5 6 7

Set cellule3 = Cellule2.Offset(0, Mois - 1)   Set cellule4 = Cellule2.Offset(0, Mois - 1) Debug.Print cellule3.Address 'Pourquoi Cellule4 et Cellule3 sont les mêmes ? Erreur de frappe ?   Realisation = WorksheetFunction.Sum(Range(Cellule1, cellule3)) / WorksheetFunction.Sum(Range(Cellule2, cellule4)) * 100

---

Honnêtement, je n'ai jamais utilisé les crochets ainsi... Mais c'est probable que ce soit juste par ignorance !

J'utilise toujours Worksheetfunction.FONCTIONENANGLAIS... Le seul moment où j'utilise parfois le crochet est pour désigner une Range, mais c'est tout...

Bonjour,

ça ?

Code:

---

1 2 3 4 5 6

Function Realisation(Nb_mois As Range, Cellule1 As Range, Cellule2 As Range)   Realisation = Round(100 * Application.WorksheetFunction.Sum(Range(Cellule1, Cellule2.Offset(0, Nb_mois.Value - 1))) / _ Application.WorksheetFunction.Sum(Range(Cellule2, Cellule2.Offset(0, Nb_mois.Value - 1))), 2)   End Function

---

Merci cela marche super bien vos 2 réponses je bloquais sur Application.WorksheetFunction.Sum(Range(Cellule1, Cellule3)).

Il fallait virgule après la Cellule1 et non ":" .

Merci à tous pour votre aide.

8-)