Discussion :

[marco907]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clementmarcotte]

Bonjour,

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

[marco907]

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

[Quentin77170]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

dans ce cas-là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[marco907]

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

[Quentin77170]

Ceci fonctionne chez moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[marco907]

Ah mais attends, quand tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

dans ce cas-là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[joe.levrai]

Bonjour,

ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[marco907]

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.