Transfert code VBA en script Google

Bonjour,

Pouvez-vous me dire si c'est possible de transposer une Macro Excel en Script Google?

J'ai 2 programmes:

1er:

Sub transfert_tecpro()
Dim j As Long
Dim i As Long
Dim nbsem As Integer
Dim banc As Integer
Dim ligne As Integer
Dim affaire As Integer
Dim debutsem As Integer

banc = 18 'num colonne de la donnee banc
affaire = 8 ' num colonne de la donnée affaire
EXT = 19 'num colonne de la donnee EXT
debutsem = 26 'num colonne de la premiere semaine de planning
i = 93 'premiere ligne de données
j = 1 'premiere ligne à coller
nbsem = 52 'nb semaine à copier

Sheets("transfert").Select
Columns("A:J").Select
Selection.ClearContents

While Worksheets("charge-TECPRO").Cells(i, affaire) <> ""
Worksheets("transfert").Range("C" & j & ":C" & j + nbsem - 1).Value = Worksheets("charge-
TECPRO").Cells(i, affaire).Value
Worksheets("transfert").Range("D" & j & ":D" & j + nbsem - 1).Value = Worksheets("charge-
TECPRO").Cells(i, banc).Value
'Worksheets("transfert").Range("A" & j & ":A" & j + nbsem - 1).Value = 1
'Worksheets("transfert").Range("B" & j & ":B" & j + nbsem - 1).Value = 1
'Worksheets("transfert").Range("H" & j & ":H" & j + nbsem - 1).Value = 0
'Worksheets("transfert").Range("I" & j & ":I" & j + nbsem - 1).Value = 0
'Worksheets("transfert").Range("J" & j & ":J" & j + nbsem - 1).Value = 0
Worksheets("transfert").Range("K" & j & ":K" & j + nbsem - 1).Value = Worksheets("charge-
TECPRO").Cells(i, EXT).Value

Sheets("charge-TECPRO").Select
Range(Cells(89, debutsem), Cells(90, debutsem + nbsem)).Select
Selection.Copy
Sheets("transfert").Select
Range(Cells(j, 5), Cells(j, 5)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Sheets("charge-TECPRO").Select

Range(Cells(i, debutsem), Cells(i, debutsem + nbsem)).Select
Selection.Copy
Sheets("transfert").Select
Range(Cells(j, 7), Cells(j, 7)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

i = i + 1
j = j + nbsem

Wend

End Sub

2ème:

Sub coller()
'
' Macro2 Macro
'
'
On Error Resume Next
'Supprimer
Range("D92:DF3500").Select
Selection.ClearContents
'Coller
Range("D91").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False,
NoHTMLFormatting:=True
'Filtrer
Range("C92:DF3500").Select
Selection.AutoFilter
'grouper
ActiveSheet.Outline.ShowLevels RowLevels:=1
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
'Figer
Range("Z93").Select
ActiveWindow.FreezePanes = True
Rows("93:2768").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

'---------maj couleurs -----------
k = 93 'ligne premiere donnee
l = 26 'colonne S01 (Z=26)

'---------maj couleurs par poste de charge -----------
While Cells(k, 8) <> ""
Range(Cells(k, 17), Cells(k, 75)).Select

If Cells(k, 18).Value = 2 Then
Selection.Interior.Color = Cells(73, 12).Interior.Color

GoTo 5
End If
If Cells(k, 18).Value = 4 Then
Selection.Interior.Color = Cells(74, 12).Interior.Color
GoTo 5
End If

If Cells(k, 18).Value = 5 Then
Selection.Interior.Color = Cells(75, 12).Interior.Color
GoTo 5
End If
If Cells(k, 18).Value = 6 Then
Selection.Interior.Color = Cells(76, 12).Interior.Color
GoTo 5
End If
If Cells(k, 18).Value = 7 Then
Selection.Interior.Color = Cells(77, 12).Interior.Color
GoTo 5
End If
If Cells(k, 18).Value = "R" Then
Selection.Interior.Color = Cells(78, 12).Interior.Color
GoTo 5
End If
If Cells(k, 18).Value = "P" Then
Selection.Interior.Color = Cells(79, 12).Interior.Color
GoTo 5
End If
5
While l <= 75
If Cells(92, l).Value = Cells(k, 15).Value Then ' (15 =colonne de S RCP), (92= ligne entetes)
Cells(k, l).Interior.Color = RGB(255, 0, 0)
GoTo 10
End If
l = l + 1
Wend
10
l = 26
k = k + 1
Wend

End Sub

Merci d'avance pour vos réponses.

Bonne journée à tous.

Bonjour,

Essayez de passer par l'intelligence artificielle (ChatGpt par exemple). Dans la demande , écrivez ceci, "convertir le code VBA en google sheet" et collez votre code, vous obtiendrez la traduction rapidement.

Cdlt

Bonjour,

J'ai fait l'essai mais j'ai une erreur:

Excel:

'Coller

Range("D91").Select

ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True

Traduction Sheet GPT:

// Coller

sheet.getRange("D91").activate();

sheet.pasteSpecial("HTML", false, false, true);

Pouvez-vous me dire ce qui est mal traduit?

Merci d'avance.

Fabrice

Bonjour,

Il faut poser la question comme ceci:

Quel est l'équivalent en script google sheet de la syntaxe vba suivante pour excel: ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True

Cdlt