Discussion :

[Kiouane]

Bonjour à tous,

Je voudrais en fait adapter cette procédure à une google sheet.

La procédure sur Excel je l'affecte à un bouton sur lequel je clique pour faire un calcul.

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Sub calcul()
 
 
Dim f As Long, r As Long, C As Long, J As Long
 
f = ActiveCell.Row
r = Cells(f, 3).Value
 
C = 0
J = 0
i = f
 
 
 
If Not IsEmpty(Cells(i - 1, 4)) Then
 
     If IsNumeric((Cells(i - 1, 4))) Then
 
 
           Do Until C + Cells(i, 4).Value >= r
           C = C + Cells(i, 4): Cells(f, 14) = C
           i = i - 1
           J = J + 1
           If Not IsNumeric(Cells(i, 4)) Then
           Exit Do
           End If
           Loop
 
 
           Cells(f, 18) = J
           X = f - J
           Cells(f, 19) = X
 
               If IsNumeric(Cells(X, 4)) Then
 
                  Cells(f, 15).Value = Cells(f, 14).Value + Cells(X, 4).Value
 
               Else
 
                  MsgBox "Données historiques insuffisantes"
                  Cells(f, 15) = Cells(f, 14) * (J + 1) / J
                  Cells(f, 11).Interior.Color = RGB(255, 165, 0)
               End If
 
           Cells(f, 14).EntireColumn.Hidden = False
           Cells(f, 15).EntireColumn.Hidden = False
           Cells(f, 16) = Cells(f, 3) / (Cells(f, 15) / (J + 1))
           Cells(f, 16).EntireColumn.Hidden = False
 
 
           Cells(f, 11) = Cells(f, 16)
 
      Else
 
           MsgBox "Données historiques insuffisantes"
 
           Cells(f, 11).Interior.Color = RGB(255, 165, 0)
           Cells(f, 11) = Cells(f, 3) / Cells(f, 4)
      End If
 
Else
 
    MsgBox "Données historiques insuffisantes"
    Cells(f, 11).Interior.Color = RGB(255, 165, 0)
    Cells(f, 11) = Cells(f, 3) / Cells(f, 4)
 
End If
 
 
 
End Sub

[joe.levrai]

Bonjour,

cela n'est pas si simple que de l'écrire apparemment : http://stackoverflow.com/questions/2...le-spreadsheet

tu trouveras dans le lien une personne qui présente une macro VBA et souhaite la mettre sous Google Sheet.
un contributeur lui donne un exemple et on voit bien que c'est le jour et la nuit côté lignes de codes

c'est plutôt du côté des forums ayant traits aux Google Sheet qu'il faut se tourner je pense

[Marc-L]

Bonjour,

un code VBA Excel ne fonctionnant donc que dans Excel … Voir donc dans un forum Google !



______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[Kiouane]

Merci à vous pour vos réponses.
Je vais essayer une autre question, comment pourrais-je écrire cette procédure sous forme de fonction?
Je pense que ça pourrait être la solution.

[Marc-L]

Une fonction, c'est encore un code VBA, donc même problème !

Documente-toi sur le langage utilisé dans Google, GAS je crois bien …

[Kiouane]

Oui tu as parfaitement raison. Mais d'après ce que j'ai vu sur les forums google. Le script prends en compte que des fonctions. C'est pour cela que je crois que ça serait un bon début de pouvoir mettre ma procédure sous forme de fonction.

[Marc-L]

Sous Excel, une fonction personnalisée retourne une donnée dans la cellule appelante
sans pouvoir modifier aucune autre cellule, ce qui n'est pas du tout le cas du code présenté !

Mieux vaut ouvrir une discussion sur un forum dédié à ton application …

[Kiouane]

D'accord.

Merci pour l'échange cordial.

[patricktoulon]

bonjour
il me semble que la proposition dans stackoverflow est du JavaScript j'en conclu donc que les google sheet ne sont que des documents html remplis d'une balise "table"

il serait intéressant aussi de visiter le forum javascript qui est certainement plus approprié a ton exercice du moins je crois