Bonjour à tous,

J'aurai besoin de savoir comment traduire du VBA dans Google Sheet, je crois que ce dernier utilise JavaScript comme langage.
J'ai une macro en VBA (sachant que ce n'est pas moi qui l'ai fait ) et aimerais la passer sur Sheet.
Je n'ai aucune connaissance dans ces 2 domaines, est-ce que quelqu'un pourrait m'aider ?

Merci d'avance

Voici ma macro :

Code VBA : 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
72
73
Sub enregistrement()
 
' transfert donnees excel Macro
' Transfert des donnees du BM vers le groupement BL pour la decrementation
 
Dim x As Integer
Dim y As Integer
Dim n As Integer
Dim b As String
Dim z As Integer
 
’Code pour savoir quelle est la dernière ligne non vide de la fiche de production
 
z = 23
y = 0
 
Do
   If Cells(z, 5) = “” Then
   y = 0
   Else:
   z = z + 1
   y = 1
   End If
Loop While y = 1
’z = z - 1
 
’Selection numero BL
       b = Worksheets(“FICHE PRODUCTION”).Cells(8, 5)
 
’Selection de la plage a copier
 Worksheets(“FICHE PRODUCTION”).Range(Cells(24, 5), Cells(z, 18)).Copy
 
  Dim wb0 As Excel.Workbook
   Set wb0 = ActiveWorkbook
   Dim wb1 As Excel.Workbook
 
  ’emplacement du groupement BL a modifier si le fichier Excel est deplace
 
  Set wb1 = Workbooks.Open(“/Users/utilisateur/Desktop/BL/GROUPEMENT_BL_1.xlsm”)
   n = 2
   x = 0
   ’Activation du classeur cible et detection de la premiere case vide pour y coller les nouvelles donnees
   wb1.Sheets(“GROUPEMENT”).Activate
Do
   If wb1.Sheets(“GROUPEMENT”).Cells(n, 4) = “” Then
       x = 0
   Else:
   n = n + 1
   x = 1
   End If
Loop While x = 1
 
wb1.Sheets(“GROUPEMENT”).Cells(n, 3) = b
wb1.Sheets(“GROUPEMENT”).Cells(n, 4).Select
 
’Collage de la plage de cellule
 
wb1.Sheets(“GROUPEMENT”).Range(Cells(n, 4), Cells(n + z - 23, 17)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False
wb0.Activate
wb0.Sheets(“FICHE PRODUCTION”).Range(Cells(24, 3), Cells(z, 4)).Copy
wb1.Activate
wb1.Sheets(“GROUPEMENT”).Cells(n, 1).Select
’Collage de la plage de cellule pour le type de production (ST ou B2B) et le mois de facturation
wb1.Sheets(“GROUPEMENT”).Range(Cells(n, 1), Cells(n + z - 23, 2)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False
n = 2
 
MsgBox “Fin du traitement des données !” ’message
wb1.Save
wb1.Close
 
End Sub