Bonjour à toutes et tous !
j'aimerai convertir mes code en VBA to Script google
le code est d'Insérer une lignes si la date change de valeur
code:
Sub ajouterligne()
Dim cellule As Range
Set cellule = Range("a3")
Dim dat As Date
dat = cellule
Dim compte As Integer
compte = 0
Do While cellule <> ""
If cellule <> dat Then
cellule.EntireRow.Insert x1Up
Set cellule = cellule.Offset(-1, 0)
Range("a" & cellule.Row) = "date du lead " & dat
Range("c" & cellule.Row) = " NB LEAD " & compte
cellule.EntireRow.Font.ColorIndex = 2
cellule.EntireRow.Font.Bold = True
cellule.EntireRow.Interior.ColorIndex = 23
Set cellule = cellule.Offset(1, 0)
compte = 1
Else
compte = compte + 1
End If
dat = cellule
Debug.Print cellule, compte
Set cellule = cellule.Offset(1, 0)
Loop
End Sub
Merci a vous de m'aider sur cette partie.