Masquer une cellule.
Résolu
Nemesiiss
-
Nemesiiss -
Nemesiiss -
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.
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.
A voir également:
- Masquer une cellule.
- Masquer une conversation whatsapp - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Comment masquer les amis sur facebook - Guide
1 réponse
Bonjour,
Ca attend bien 5s, essayez ce code et vous verrez
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
Nemesiiss
Merci bien :) Bon week-end.