Discussion :

[Junfiizz]

Bonjour,

Je m'excuse d'avance si mon post n'est pas au bon endroit, je ne savais pas trop où le mettre.

Mon problème est sûrement très simple, mais j'avoue que je bloque dessus depuis vendredi après-midi.

J'ai une fonction en vba qui me permets de calculer un prix de vente, ainsi que le total des achats puis à partir de la le taux de marge brute.

Le soucis étant que je n'arrive pas afficher le résultat de ces trois fonctions dans une cellule bien spécifique (pour le coup H2 pour le prix de vente, I2 pour le total et J2 pour le taux de marge.) J'arrive bien à appeler la fonction depuis ma sub ça ce n'est pas un soucis, mais afficher le résultat, impossible.

J'ai beau cherché sur internet et tout les forums possible, rien. Ou alors, ça ne correspond pas à ce que je veux, puisque bien souvent c'est dans un msgbox.

Une solution, ou une piste à me proposer ?

Merci,
Junfiizz.

[unparia]

Bonjour

Je ne suis pas certain d'avoir bien "cerné" ta difficulté.
Elle parait être résumée par :

J'ai beau cherché sur internet et tout les forums possible, rien. Ou alors, ça ne correspond pas à ce que je veux, puisque bien souvent c'est dans un msgbox.

Une solution, ou une piste à me proposer ?

Si tel était bien le cas, cela voudrait dire que tu ne sais pas encore ce que sont les objets de Excel, à commencer par l'objet Range, et que tu as vraiment besoin de commencer par là ton apprentissage.
Une "piste" ? --->> Ouvre la rubrique Range, objet de ton aide VBA.

[Junfiizz]

Bonjour,

Je sais ce que fais mon objet Range, je l'utilise déjà partout ailleurs dans le programme et tout va bien avec.
Je vais être un peu plus explicite, lorsque que depuis mon sub j'appelle ma fonction (module3.prixdeventeM), tout ce passe bien, PV prends bien 30 en valeur, mais lorsque je quitte la fonction et reviens dans ma sub pour continuer, PV et redevenu vide. Donc impossible d'attribuer à H2 la valeur de PV.

En gros la valeur de PV n'est pas sauvegardé après avoir quitter la fonction.

Bonne journée, merci de ta réponses, et vos réponses futures.

[Philippe Tulliez]

Bonjour,
Sans afficher le code de ta fonction qui pose problème, il est difficile de t"aider.
En attendant, un peu de lecture Les fonctions personnelles dans Excel

[Junfiizz]

Bonjour,

Voici à quoi ressemble ma fonction

Code :

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

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
Function PrixdeventeM()
 
    Dim PV As Double
    Dim Q12, Q13, Q16, Q17, Q18, Q19, Q20, Q21, Q25, Q27, Q29, Q33, Q34, Q36, Q39, Q41 As Double
 
    Call Module1.Workbook_Open_calculprix
 
    Q12 = Sheets("calculprix").Range("Q12").Value
    Q13 = Sheets("calculprix").Range("Q13").Value
    Q16 = Sheets("calculprix").Range("Q16").Value
    Q17 = Sheets("calculprix").Range("Q17").Value
    Q18 = Sheets("calculprix").Range("Q18").Value
    Q19 = Sheets("calculprix").Range("Q19").Value
    Q20 = Sheets("calculprix").Range("Q20").Value
    Q21 = Sheets("calculprix").Range("Q21").Value
    Q25 = Sheets("calculprix").Range("Q25").Value
    Q27 = Sheets("calculprix").Range("Q27").Value
    Q29 = Sheets("calculprix").Range("Q29").Value
    Q33 = Sheets("calculprix").Range("Q33").Value
    Q34 = Sheets("calculprix").Range("Q34").Value
    Q36 = Sheets("calculprix").Range("Q36").Value
    Q39 = Sheets("calculprix").Range("Q39").Value
    Q41 = Sheets("calculprix").Range("Q41").Value
 
    PV = Q12 + Q13 + Q16 + Q17 + Q18 + Q19 + Q20 + Q21 + Q25 + Q27 + Q29 + Q33 + Q34 + Q36 + Q39 + Q41
 
End Function

[Menhir]

Si tu veux que ta fonction renvoie une valeur, il faut mettre :

Code :

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

    PrixdeventeM = Q12 + Q13 + Q16 + Q17 + Q18 + Q19 + Q20 + Q21 + Q25 + Q27 + Q29 + Q33 + Q34 + Q36 + Q39 + Q41

Et il serait mieux de déclarer son type dans sa déclaration (première ligne).

Je pense qu'il serait utile pour toi de lire ceci : https://msdn.microsoft.com/fr-fr/lib.../gg264233.aspx

[Zirak]

Bonjour,

2 solutions possibles à votre problème :

- soit vous venez remplir votre cellule directement depuis votre fonction à la fin de celle-ci.

- soit vous modifiez votre fonction afin qu'elle puisse vous retourner une valeur, en changeant légèrement sa déclaration. Pour cela, consulter le lien fourni par Philippe Tulliez, notamment la partie II-B-8. Type.


Edit: post de Menhir entre temps, désolé.

[joe.levrai]

Bonjour,

dans ta Function, si tu n'affectes pas le résultat à cette dernière, elle ne peut pas ramener le résultat à la procédure appelante


donc deux aménagements à faire

1) Typer le retour de ta fonction

Code :

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

Function PrixdeventeM() as Double

2) Lui donner le résultat à la fin du traitement

dernière ligne de ta fonction avant le End Function :

Code :

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

PrixdeventeM = PV

A titre accessoire (mais pas inoportun), toutes les données utilisées par ta Function sont récupérées en dur dans ta fonction
Il est également possible de transmettre à ta fonction les valeurs (les "arguments") qui seront utilisés dans ta fonction

L'avantage, c'est que ta fonction pourra donc servir à additionner d'autres sources de données que cette plage figée
par exemple, en utilisant un paramètre qui est un tableau contenant toutes tes valeurs, on peut même très facilement additionner toutes les valeurs du tableau

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function PrixdeventeM(MesValeurs As Variant) As Double
    PrixdeventeM = Application.Sum(MesValeurs)
End Function
 
 
Sub TestFunction()
Dim Resultat As Double
Dim MonTableau
 
Call Module1.Workbook_Open_calculprix
 
With Sheets("calculprix")
    MonTableau = Array(.Range("Q12").Value, .Range("Q13").Value, .Range("Q16").Value, .Range("Q17").Value, _
                       .Range("Q18").Value, .Range("Q19").Value, .Range("Q20").Value, .Range("Q21").Value, _
                       .Range("Q25").Value, .Range("Q27").Value, .Range("Q29").Value, .Range("Q33").Value _
                       .Range("Q34").Value, .Range("Q36").Value, .Range("Q39").Value, .Range("Q41").Value)
 
End With
 
Resultat = PrixdeventeM(MonTableau)
MsgBox Resultat
 
End Sub

Si on pousse la logique au bout, on voit donc que la fonction n'a plus de réelle utilitée, puisqu'on peut sommer directement les valeurs dans la procédure appelante (le Application.Sum(MonTableauAvecMesValeurs)

Mais bien sûr, tout dépend de ton projet, ce ne sont que des remarques pour t'ouvrir les horizons

[Menhir]

Une fonction "n'affiche pas" une valeur, elle se contente de la renvoyer.

Il faut ensuite utiliser une autre commande, méthode ou propriété pour exploiter cette valeur.

Par exemple, prenons une fonction très simple qui ajoute 1 (c'est une fonction qui ne sert à rien mais c'est juste pour l'exemple) :

Code :

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

1
2
3
Function Plus(Param As Integer) As Integer
   Plus = Param + 1
End Function

En elle-même, elle n'affiche rien. Elle se contente de renvoyer une itération de la valeur qu'on lui a transmise.
Pour l'utiliser, il faut autre chose.

Par exemple, si on veut ajouter 1 à la valeur de la cellule A1 en utilisant cette fonction :

Code :

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

Range("A1").Value = Plus(Range("A1").Value

Si on veut afficher la valeur +1 de la variable MaVar dans la fenêtre d'exécution :

Code :

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

Debug.Print Plus(MaVar)

Si on veut l'utiliser pour modifier le numéro de ligne d'une cellule :

Code :

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

Cells(Plus(MaVar), 10).Value = "test"

etc.

[Alex70]

Code :

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

Range("A1").Value = Plus(Range("A1").Value

juste pour te dire qu'il manque une ) dans ton code désolé je retourne en réunion

[Junfiizz]

Par exemple, si on veut ajouter 1 à la valeur de la cellule A1 en utilisant cette fonction :

Code :

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

Range("A1").Value = Plus(Range("A1").Value

Je vais tester ça tout de suite et je vous redis.
Peut tu juste me dire pourquoi rajouter (Range("A1").Value derrière Plus ?

Sinon, est ce possible depuis la fonction de lui faire inscrire directement dans la cellule voulut ? Comme ça mon problème de sauvegarde de valeur de PV disparaît, vu qu'on est dans la fonction il l'a en mémoire.

Merci.