Bonjour,
Est-il possible d'importer une macro excel vers google sheets ?
Voici ce que j'aimerais importé sur google sheets. Quelqu'un pourrait m'aider à transcrire cela pour google sheets svp :
Sub actualiser_Bilan_Sportif_dujour()
Dim w As Worksheet, x As Worksheet, y As Worksheet, z As Worksheet
Dim Rng As Range
Dim lrow_w As Long, lrow_x As Long
Dim i As Integer
Dim t As Date
Set w = Sheets("Suivi")
Set x = Sheets("Bilans sportifs")
lrow_w = w.Cells(Rows.Count, 3).End(xlUp).Row
lrow_x = x.Cells(Rows.Count, 3).End(xlUp).Row
x.Range("B3:E" & lrow_x + 2).Clear
On Error Resume Next
With x
j = 3
For i = 8 To lrow_w
If w.Cells(i, 10).Value = .Cells(1, 4).Value Then
.Cells(j, 2).Value = w.Cells(i, 3).Value
.Cells(j, 3).Value = w.Cells(i, 4).Value
.Cells(j, 4).Value = w.Cells(i, 5).Value
.Cells(j, 5).Value = "À modifier"
j = j + 1
End If
Next i
End With
MsgBox "Actualisation terminée"
End Sub
et
Sub actualiser_Bilan_Sportif()
Dim w As Worksheet, x As Worksheet, y As Worksheet, z As Worksheet
Dim Rng As Range
Dim lrow_w As Long, lrow_x As Long
Dim i As Integer
Set w = Sheets("Suivi")
Set x = Sheets("Bilans sportifs")
lrow_w = w.Cells(Rows.Count, 3).End(xlUp).Row
lrow_x = x.Cells(Rows.Count, 3).End(xlUp).Row
x.Range("B3:E" & lrow_x + 2).Clear
On Error Resume Next
With x
j = 3
For i = 8 To lrow_w
If w.Cells(i, 10).Value < .Cells(1, 4).Value Then
.Cells(j, 2).Value = w.Cells(i, 3).Value
.Cells(j, 3).Value = w.Cells(i, 4).Value
.Cells(j, 4).Value = w.Cells(i, 5).Value
.Cells(j, 5).Value = "À modifier"
j = j + 1
End If
Next i
End With
MsgBox "Actualisation terminée"
End Sub
Merci infiniment pour vos réponses