Microsoft 365 Cherche une personne pouvant m'aider à transformer des codes VBA pour Google Sheet

Mr.Adrien

XLDnaute Nouveau
Bonjour je suis novice en VBA et perdu sur sheet (avec les macros) j'ai besoin dans le cadre de mon travail de transformer des Macros excel vers google sheet y-t-il une personne qui pourrais me transformer deux formules VBA ... Je peux partager le fichier sheet si besoin.
Merci par avance !
Voici les deux formules VBA fonctionnant avec excel
VB:
Sub Macro1AC()
'
' MacroFROMCP Macro
'

'
Sheets("1AC").Select
    Application.ScreenUpdating = False
    DL = 1 + Range("B65500").End(xlUp).Row
    Cells(DL, "B").FormulaLocal = "=Formulaire!C9"
    Cells(DL, "C").FormulaLocal = "=Formulaire!H9"
    Cells(DL, "D").FormulaLocal = "=Formulaire!I15"
    Range("B" & DL & ":D" & DL) = Range("B" & DL & ":D" & DL).Value
End Sub



Code:
Sub MacroSauv()

'
' MacroSauv Macro
'

'
    Range("A1:K53").Select
    Range("K1").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "/Users/Adrien/Desktop/Pojet Excel/Demande d'inscription et de réinscription." & Range("N7") _
        , Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub
 

Mr.Adrien

XLDnaute Nouveau
L'application de conversion peut être utilisé uniquement via Google Workspace Enterprise Plus et G Suite Enterprise for Education... les comptes sont payants
Il existe une macro complémentaire pour convertir les macro Excel pour GoogleSheet

Code:
https://thierryvanoffe.com/google-sheets-utilisez-le-module-complementaire-macro-converter-pour-convertir-des-fichiers-microsoft-excel-avec-des-macros/#comments
 

bruderez

XLDnaute Nouveau
Bonjour
j'aimerai aussi transformer cette formule VBA afin qu'elle fonctionne dans google sheet

Sub enregistrer()
'
' enregistrer Macro
'

'
Sheets("Base").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Range("A1:G1").Select
Selection.Copy
Range("A4:G4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("C4:C16").Select
Application.CutCopyMode = False
Range("C4").Select
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
315 092
Messages
2 116 118
Membres
112 665
dernier inscrit
JPHD