christ97434
XLDnaute Nouveau
bonjour, je voudrai transformer ce code en script pour google sheet.
objectif; bouton copie info d'une cellule feuil1 sur feuil 2 et bouton actif sur plage horaire.
merci de votre aide.
Private Sub Workbook_Open()
Sheets("Feuil1").OLEObjects("essai").Visible = Timer / 3600 < 5 Or Timer / 3600 > 12
Application.OnTime 5 / 24, ThisWorkbook.CodeName & ".Maqsque"
Application.OnTime 12 / 24, ThisWorkbook.CodeName & ".Affiche"
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub
Sub Masque()
Sheets("Feuil1").OLEObjects("essai").Visible = False
End Sub
Sub Affiche()
Sheets("Feuil1").OLEObjects("essai").Visible = True
End Sub
Private Sub essai_Click()
Calculate 'MAJ date/heure
Sheets("Feuil2").Cells(4, Columns.Count).End(xlToLeft)(1, 2) = Sheets("Feuil1").Cells(1)
End Sub
objectif; bouton copie info d'une cellule feuil1 sur feuil 2 et bouton actif sur plage horaire.
merci de votre aide.
Private Sub Workbook_Open()
Sheets("Feuil1").OLEObjects("essai").Visible = Timer / 3600 < 5 Or Timer / 3600 > 12
Application.OnTime 5 / 24, ThisWorkbook.CodeName & ".Maqsque"
Application.OnTime 12 / 24, ThisWorkbook.CodeName & ".Affiche"
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub
Sub Masque()
Sheets("Feuil1").OLEObjects("essai").Visible = False
End Sub
Sub Affiche()
Sheets("Feuil1").OLEObjects("essai").Visible = True
End Sub
Private Sub essai_Click()
Calculate 'MAJ date/heure
Sheets("Feuil2").Cells(4, Columns.Count).End(xlToLeft)(1, 2) = Sheets("Feuil1").Cells(1)
End Sub