Bouton afficher date

[adi399]

Bonjour à tous,

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

 

[Pierrot93]

Re : Bouton afficher date

Bonjour,


essaye avec ceci :

ActiveCell.Value = IIf(ActiveCell = "", Now, "")

bonne journée
@+

 

[adi399]

Re : Bouton afficher date

Encore une fois merci pierrot93! bonne journée!

 

[adi399]

Re : [RESOLU]Bouton afficher date

Bonjours à tous,

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

Merci d'avance!

 

[Pierrot93]

Re : Bouton afficher date

Bonjour,

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" :

Option Explicit
Private Sub Workbook_Open()
Feuil1.Protect "toto", userinterfaceonly:=True
End Sub

bonne journée
@+

 

[Pierrot93]

Re : Bouton afficher date

Re,

il y a assi cette méthode, mais bon... perso préfère unitiser l'autre méthode...

On Error Resume Next
'ligne de code
On Error GoTo 0

 

[adi399]

La modification n'a rien changé ou alors je l'ai mal mis en place!

je vous met en copie un fichier avec mon problème!

 

[adi399]

Re : Bouton afficher date

Je viens d'essayer votre deuxième code et il fonctionne merci

 

[adi399]

Re : Bouton afficher date

Autre question, j'utilise ce code pour déverouiller une feuille:

ActiveSheet.Unprotect

c'est possible de la débloquer automatiquement sans demander le mot de passe à l'écran?
si par exemple mtp de passe = toto

J'ai essayé sans succès: ActiveSheet.Unprotect ("toto")

 

[Pierrot93]

Re : Bouton afficher date

Re,

je ne vois pas le code en question dans le fichier joint...

 

[adi399]

Re : Bouton afficher date

Merci pierrot93 c'est bon je me suis débrouillé!

mais un problème résolu, un autre apparait

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...

 

[adi399]

Re : Bouton afficher date

l'importation de donnée ce fait par : donnée/validation/importer des données

 

[Pierrot93]

Re : Bouton afficher date

Re,

essaye en déprotégeant / re-protégeant la feuille...

With Feuil1
    .Unprotect "toto"
    .QueryTables(1).Refresh
    .Protect "toto"
End With

bonne soirée
@+