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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
57
Affichages
5 K
Retour