Aide transformation Excel en gsheets
J
bonjour,
J'ai ma macro Excel que je souhaiterai transformer en Gsheet,
Pourriez vous m'aider ?
Macro de Base :
Sub ENTREE()
ligne = Sheets("Historique_Stock").Range("A2").End(xlDown).Row + 1
Sheets("Historique_Stock").Range("A" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C6").Value
Sheets("Historique_Stock").Range("B" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C11").Value
Sheets("Historique_Stock").Range("C" & ligne).Value = Sheets("ENTREE EN STOCK").Range("D11:E11").Value
Sheets("Historique_Stock").Range("D" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C13").Value
Sheets("Historique_Stock").Range("E" & ligne).Value = Sheets("ENTREE EN STOCK").Range("D13:E13").Value
Sheets("Historique_Stock").Range("F" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C16").Value
Sheets("Historique_Stock").Range("G" & ligne).Value = Sheets("ENTREE EN STOCK").Range("D16").Value
Sheets("Historique_Stock").Range("H" & ligne).Value = Sheets("ENTREE EN STOCK").Range("E16").Value
Sheets("Historique_Stock").Range("J" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C19:E22").Value
Sheets("Historique_Stock").Range("I" & ligne).Value = Sheets("ENTREE EN STOCK").Range("D5:F6").Value
Sheets("Historique_Stock").Range("K" & ligne).Value = Sheets("ENTREE EN STOCK").Range("C9").Value
Sheets("ENTREE EN STOCK").Range("C11:E11").ClearContents
Sheets("ENTREE EN STOCK").Range("C13:E13").ClearContents
Sheets("ENTREE EN STOCK").Range("C16:E16").ClearContents
Sheets("ENTREE EN STOCK").Range("C19:E21").ClearContents
Bonjour,
ce qui serait bien, c'est que tu mettes un lien vers une copie de ton fichier GSheets, et que tu expliques littéralement le but de la macro.
Merci d'avance.