Masquer une cellule.

Résolu/Fermé
Nemesiiss - 10 déc. 2015 à 21:53
 Nemesiiss - 12 déc. 2015 à 12:32
Bonjour à toute la communauté. Je viens à vous aujourd'hui car après plus de 2h passer à faire des recherches, je n'ai pas trouvé de solution à mon problème. Tout d'abord je suis sous open office calc.

Je souhaiterai pouvoir masquer une cellule, j'ai donc crée une macro qui change le format de cellule et donc permet de cacher le contenu de celle-ci. J'ai assigné cette macro à un bouton qui fonctionne parfaitement mais j'aimerai que quand on clique sur ce bouton, la macro attende un délais de 5 secondes avant de s'exécuter. C'est cela que je n'arrive pas à faire ...

J'ai trouvé ce code mais quand j'édit ma macro et que je l'insert au début elle ne fonctionne pas ou alors n'attend pas ce délais de 5s ...

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Voila, je reste en attente d'une réponse de votre part. Merci d'avance et bonne soirée.



1 réponse

f894009 Messages postés 17217 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 décembre 2024 1 712
11 déc. 2015 à 10:41
Bonjour,

Ca attend bien 5s, essayez ce code et vous verrez

Sub test()
    Range("A1") = Now()
    newHour = Hour(Now())
    newMinute = Minute(Now())
    newSecond = Second(Now()) + 5
    waitTime = TimeSerial(newHour, newMinute, newSecond)
    Application.Wait waitTime
    Range("A2") = Now()
End Sub
1
Merci bien :) Bon week-end.
0