XL 2016 besoin aide pour vba

[christ97434]

bonjour, si quelqu'un peut m'aider a un codage en vba.
description sur le fichier.

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[job75]

Bonjour christ97434, fanfan38,

Le code dans ThisWorkbook :

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

Les Application.OnTime se déclenchent 2 fois par jour.

Dans Feuil1 :

Private Sub essai_Click()
Calculate 'MAJ date/heure
Sheets("Feuil2").Cells(4, Columns.Count).End(xlToLeft)(1, 2) = Sheets("Feuil1").Cells(1)
End Sub

Edit : ajouté Me.Saved = True

A+

 

[christ97434]

Bonjour christ97434, fanfan38,

Le code dans ThisWorkbook :

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"
[QUOTE="fanfan38, post: 20525021, member: 10774"]
Bonjour
Ci joint ma solution

A+ François
[/QUOTE]

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

Les Application.OnTime se déclenchent 2 fois par jour.

Dans Feuil1 :

Private Sub essai_Click()
Calculate 'MAJ date/heure
Sheets("Feuil2").Cells(4, Columns.Count).End(xlToLeft)(1, 2) = Sheets("Feuil1").Cells(1)
End Sub

Edit : ajouté Me.Saved = True

A+

merci

 

[job75]

Bonjour christ97434,

Vous faites une erreur, ce n'est pas votre post #4 qui est solution de cette discussion, merci de corriger.

A+