Migation de VBA to javascript

bonjour

je suis un nouveau membre et je je suis entrain de développer des application google-sheet en se basant sur des macro vba

je veux convertir ce code en code google-apps

Sub cheq1()
Dim t1, t2, t3 As Range
Dim tt1, tt2 As Worksheet
Set tt1 = ThisWorkbook.Sheets("chab")
Set tt2 = ThisWorkbook.Sheets("four")
Set t1 = tt1.Range("b1")
tt1.Range("b4:g50") = Empty
'tt:
'x = 0
For Each c In tt2.Range("d7:d310") ' & Application.WorksheetFunction.Count(tt2.Range("d7:h310")))
'If c.Offset(0, -1).Value <> 2 And c.Offset(0, -2).Value <> "" Then
'GoTo tt
'End If
Set t2 = tt1.Range("b4:b50").Find(c.Offset(0, 5))
If c.Value = t1.Value Then
If Not t2 Is Nothing Then
t2.Offset(0, 4).Value = t2.Offset(0, 4).Value + c.Offset(0, 4)
Else
Set t3 = t1.End(xlDown).Offset(1, 0)

t1.Offset(0, 1).Value = c.Offset(0, 1).Value

t3.Offset(0, 0).Value = c.Offset(0, 5).Value
t3.Offset(0, 1).Value = c.Offset(0, 6).Value
t3.Offset(0, 2).Value = c.Offset(0, 7).Value
t3.Offset(0, 3).Value = c.Offset(0, 8).Value
t3.Offset(0, 4).Value = c.Offset(0, 4).Value
t3.Offset(0, 5).Value = c.Offset(0, -2).Value

'x = x + 1
End If
End If
Next c

End Sub
Sub test1()
Range("h2").Value = Application.WorksheetFunction.CountA(Range("d1:d310"))
Range("h222").End(xlUp).Select
End Sub

S.V.P aidez moi

Rechercher des sujets similaires à "migation vba javascript"