J'ai un bouton qui me permet d'afficher la date dans une cellule au click. j'aimerai pouvoir lorsque je clique à nouveau que la cellule s'efface. Si je clique à nouveau elle se réaffiche ect....
Merci d'avance!!
Sub date()
Range("H12:I12").Select
ActiveCell.FormulaR1C1 = Now
End Sub
j'aimerai améliorer mon code ci-dessous qui me permet d'afficher la date du jour dans une cellule en cliquant sur un bouton et de l'effacer avec un nouveau clique.
Sub date()
Range("P26:Q26").Select
ActiveCell.FormulaR1C1 = IIf(ActiveCell = "", Now, "")
End Sub
Lorsque ma feuille est protégée, l'action de cliquer sur le bouton affiche un message d'erreur.
j'aimerai faire disparaitre ce message en forçant automatiquement sur 'fin"
Est-ce possible?
J'ai essayer avec ce code mais sans succès:
Application.DisplayAlerts
peut être protéger ta feuille par le code en utilisant l'argument "userinterfaceonly", se qui permettra l'exécution du code sans avoir à déprotéger la feuille... code ci-dessous à placer dans le module "thisworkbook" :
Code:
Option Explicit
Private Sub Workbook_Open()
Feuil1.Protect "toto", userinterfaceonly:=True
End Sub
Je me suis rendu compte que si j'ouvre mon fichier et qu'il est protégée, l'actualisation automatique des importations que contienne ma feuille ne peux être executer...
Comment faire?
je ne peux malheureusement pas vous joindre de fichier sur ce coup...