Conversion d'un fichier Excel en Google Sheet - Suivis d'affaire
Bonjour,
Je suis en train de mettre à jour un fichier de suivis d'affaire dans ma société.
J'ai commencé à créer quelque chose en Excel mais le système de partage est pas terrible pour l'utilisation du fichier.
Je pense que google Sheet serait plus réactif sur l'utilisation de ce fichier.
L'inconvénient est que je n'y connais rien en Script Google
Pouvez vous m'aider à traduire le VBA en Script SVP ?!
'COMPTAGE LIGNES
Private nbLignes As Long
Private Sub Worksheet_Activate()
nbLignes = ActiveSheet.UsedRange.Rows.Count
End Sub
'===============
Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Cells.Count > 1 Then Exit Sub
If Target.Worksheet.Name <> "Réception" Then Exit Sub
If UsedRange.Rows.Count < nbLignes Then 'vrai quand suppression de ligne(s)
For Each Page In ThisWorkbook.Sheets
If Page.Name <> Target.Worksheet.Name And Left(Page.Name, 1) <> "_" Then
Page.Rows("" & Target.Row & ":" & Target.Rows.Count + Target.Row - 1).Delete
End If
Next
End If
If Target.Column = 1 And Target.Text <> "" Then
For Each Page In ThisWorkbook.Sheets
If Page.Name <> Target.Worksheet.Name And Left(Page.Name, 1) <> "_" Then
If Page.Cells(Target.Row, 1) = "" Then
Page.Rows(Target.Row - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
End If
Next
End If
Salut Jeremy31,
pas besoin de convertir cette macro.
Utilise la fonction IMPORTRANGE comme suivant
Voici la formule
=IMPORTRANGE("https://docs.google.com/spreadsheets/d/XXXXXXXXXXXX/edit","Réception!A2:E50")
À adapter!!: https://docs.google.com/spreadsheets/d/XXXXXXXXXXXX/edit
est le lien du document même y compris "/edit"
Aprés il faut faire l'opération suivante sur chacune des feuilles FLUX, Visuel et Métrologie:
1- efface le contenu de la plage "A2:E4"
2- insére la formule dans A2
3- une erreur va apparaître ==> Allow Access (ce point juste pour la premiere feuille)
Bonne chance