Convertir macro Excel en macro google sheet

Bonjour à tous,

j'aurai besoin de votre aide pour convertir des macros excel en google sheet. Ayant énormément de mal avec les macros je suis incapable de faire ce boulot moi même.

1ère:

Public Plg As Range
Public ShBase As Worksheet, ShExtract As Worksheet
Public DerLig As Long
Sub extract()
Dim Cel As Range, Plg2 As Range, PlgCrit As Range
Set ShBase = Sheets("Base de données")
Set ShExtract = Sheets("Feuil3")
With ShBase
DerLig = .Cells(Rows.Count, "A").End(xlUp).Row
Set Plg = .Range("A1:AF" & DerLig)
End With
Dim I As Byte
With ShExtract
Set Plg2 = .Range("A5:C5")
If Application.CountA(Plg2) > 0 Then
For Each Cel In Plg2
If Cel <> "" Then
.Range("BA1").Offset(, I).Value = Cel.Offset(-1).Value
.Range("BA2").Offset(, I).Value = Cel.Value
I = I + 1
End If
Next Cel
Set PlgCrit = .Range("BA1").Resize(2, I)
Plg.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=PlgCrit, CopyToRange:=.Range("A8:AF8")
End If
PlgCrit.Clear
End With
End Sub

2ème:

Sub Transfert()
Dim derlg As Long
With Sheets("Base de donnŽes")
derlg = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & derlg, "AF" & derlg) = Sheets("Base Update").Range("A2:AF2").Value
End With
Sheets("Base Update").Range("A2:AF2").ClearContents

End Sub

3ème:

Sub Renvoi()
'
' Renvoi Macro
'

'
Sheets("Base Update").Select
End Sub
Sub renvoi2()
'
' renvoi2 Macro
'

'
Sheets("Base de donnŽes").Select
End Sub

4ème:

Sub Renvoi2()
'
' Renvoi2 Macro
'

'
Sheets("Feuil3").Select
End Sub
Sub BACK()
'
' BACK Macro
'

'
Sheets("Choix").Select
End Sub

5ème:

Public Plg As Range
Public ShBase As Worksheet, ShExtract As Worksheet
Public DerLig As Long
Sub extract()
UserForm1.Show
End Sub

Je vous remercie d'avance

Bonsoir Tifanny62

Quand vous donnez du code, merci de le mettre entre balises SVP (conformément à la charte à lire ou relire )

image

La prochaine fois, le post ira à la poubelle direct...

Excusez moi je ne savais pas, autant pour moi

Rechercher des sujets similaires à "convertir macro google sheet"