Convertir macro Excel en macro google sheet
t
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
Invité
t
Excusez moi je ne savais pas, autant pour moi