Discussion :

[Sebphyto]

Bonjour à tous,

J'aimerai créer un fichier me permettant de simuler la possibilité de gain en créant une "montante" (modulable: choix de montante) en fonction du résultat, si gain on revient au depart de la montante et si perte on continue la montante....

J'ai déjà créer sur la base de formule excel, une partie...mais celle-ci devient obsolete et les formules deviennent une rallonge de "si, ou et Et" imbuvable...

Il faut que je passé par du vba pour simplifier la chose, d'où la raison de ce message....

Explications pour une 1ère approche:
Voici ma base de données et explications:


A savoir que mon fichier comporte plus de 5000 lignes sur 4 feuilles


Seb

En PJ mon fichier sans macro, pas de risques
GestionV1.xlsm

re,

Par la suite j'aimerai incorporer d'autres critères pour la simulation (en fonction du nb de partants, d'un écart, avec arrêt, sans arrêt, et un bilan pour chaque critères).
Le fichier sera dynamique car la base de données en automatiquement mise à jours tous les jours....donc calcule automatique

Merci d'avance pour votre aide

Seb

[Sebphyto]

bonjour à tous,

voici une 1ère ébauche du code

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub CalculMontante2()
Dim DerLig As Long
Dim m As Byte
Dim DernCol As Integer
Dim x As Long
 
'Dernière ligne vide et colonne
'DerLig = Range("V" & Rows.Count).End(xlUp).Row '+ 1
DerLig = [V65536].End(xlUp).Row
DernCol = Cells(DerLig, Cells.Columns.Count).End(xlToLeft).Column '+ 3 'colonne U
 
With Feuil2
    'Mise 1-4-7-10 = 1+3= 4 +3= 7 +3= 10
    'For m = 1 To 10 Step 3
     x = DerLig + 1
        If Range("B" & x) = Range("G" & x) Then
            'Result SI(NB.SI(B4;G4)=0;"P";"G")
            Range("V" & x) = "G"
 
            'Cote SI(V4="P";0;M4)
            Range("W" & x) = Range("L" & x)
            'Mise
            Range("X" & x) = m
 
            'Gain brut SI(X4="";"";W4*X4)
            Range("Z" & x) = Range("W" & x) * Range("X" & x)
 
            'Cumul mise SOMME($X$4:X4)
            Range("Y" & x).FormulaLocal = "=SOMME($X$4:X4)"
 
            'Cumul Gain SI(X4="";"";SOMME($Z$4:Z4))
            Range("AA" & x).FormulaLocal = "=SOMME($Z$4:Z4)"
 
            'Résultat net SI(X4="";"";SOMME($Z$4:Z4)-SOMME($X$4:X4))
            Range("AB" & x).FormulaLocal = "=SOMME($Z$4:Z4)-SOMME($X$4:X4)"
        Else
            Range("V" & x) = "P"
            'Mise
            Range("X" & x) = m
            'Gain brut
            Range("Z" & x) = Range("W" & x) * Range("X" & x)
            'Cumul mise
            Range("Y" & x).FormulaLocal = "=SOMME($X$4:X4)"
            'Cumul Gain SI(X4="";"";SOMME($Z$4:Z4))
            Range("AA" & x).FormulaLocal = "=SOMME($Z$4:Z4)"
            'Résultat net SI(X4="";"";SOMME($Z$4:Z4)-SOMME($X$4:X4))
            Range("AB" & x).FormulaLocal = "=SOMME($Z$4:Z4)-SOMME($X$4:X4)"
        End If
    'Next
End With
End Sub

Ici le code doit être relancé pour chaque ligne du tableau, de plus je n'arrive pas à faire évoluer les "formulalocal" qui sont entre "....", donc du coup il ne calcul pas ce que je souhaite.


Bien évidemment il ne remplit pas tous ce que je souhaite pour le moment, si vous pourriez apporté vos lumières j'en serai très reconnaissant....

seb

[Philippe Tulliez]

Bonjour,
Si tu estimes que tes formules Excel sont trop longues, pourquoi ne passes-tu pas par une fonction personnalisée ?
C'est du VBA mais cela a l'avantage d'être utilisable comme une fonction. Il y a des contraintes mais dans ton cas, je pense que cela se justifie.

A lire Les fonctions personnelles dans Excel

[Sebphyto]

Bonjour Philippe,

Merci pour le lien, ça m'a été très aidant..

voici ce que j'en n'ai sorti:

Code :

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

1
2
3
4
5
6
7
8
Function GainBrut(GB As Double) As Double
'GainBrut doit être = cellule mise * cellule cote
' CGB--> Calcul Gain Brut
Dim CGB As Double
CGB = Range("W4") * Range("X4")
GainBrut = CGB
 
End Function

Hors ici les cellules sont fixe "W4 et X4"

Dans mon code plus haut, j'utilise la variable "x" pour faire évoluer les cellules, dois-je rendre la variable "x" public, déclarer avant le sub, pour que dans la fonction, je puisse remplacer le W4 et X4 en

Code :

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

Range("W" & x) * Range("X" & x)

Ce qui veut dire que dans mon code je devrai remplacer ceci:

Code :

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

1
2
'Gain brut SI(X4="";"";W4*X4)
            Range("Z" & x) = Range("W" & x) * Range("X" & x)

Par

Code :

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

1
2
'Gain brut SI(X4="";"";W4*X4)
            Range("Z" & x) = GainBrut

Seb

[Philippe Tulliez]

Bonjour,
Tu peux passer comme argument une variable objet de type Range et utiliser sa propriété Row. Je vois que tu passes un argument (GB) de type double que tu n'utilises pas dans la fonction.

Attention que tu ne peux pas écrire dans une cellule ni sélectionner une feuille dans une fonction personnalisée.
En résumé, tu ne peux pas faire d'action. En revanche tu peux parcourir une collection de feuilles et faire la somme de plage de cellules de celles-ci ,

J'essayerai de donner quelques exemples dans l'après-midi car j'ai pas trop le temps pour l'instant.

[Sebphyto]

Re,

Oui c'est vrai, je me suis trompé...

Dans mon cas j'ai besoin de faire des calculs à partir de valeurs contenues dans des cellules pour chaque ligne

en gros transformer cette partie de code en 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
'Cote SI(V4="P";0;M4)
            Range("W" & x) = Range("L" & x)
            'Mise
            Range("X" & x) = m
 
            'Gain brut SI(X4="";"";W4*X4)
            Range("Z" & x) = Range("W" & x) * Range("X" & x)
 
            'Cumul mise SOMME($X$4:X4)
            Range("Y" & x).FormulaLocal = "=SOMME($X$4:X4)"
 
            'Cumul Gain SI(X4="";"";SOMME($Z$4:Z4))
            Range("AA" & x).FormulaLocal = "=SOMME($Z$4:Z4)"
 
            'Résultat net SI(X4="";"";SOMME($Z$4:Z4)-SOMME($X$4:X4))
            Range("AB" & x).FormulaLocal = "=SOMME($Z$4:Z4)-SOMME($X$4:X4)"

En sachant que cette fonction sera appelé pour chaque ligne où il y a un calcul à faire....

Donc dans ma fonction, ce sont des "range" qui évoluent....

c'est peut-être de ce genre là, si je fais une fonction juste pour la partie "Gain brut":

Code :

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

Function GainBrut(x As Range)

par contre pour le calcul ????????????

Code :

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

Range("Z" & x) = Range("W" & x) * Range("X" & x)

Bon je continue de chercher

seb