Discussion :

[ivanG]

Bonjour à tous,

Je suis novice en VBA. Je suis bloqué sur un problème et malgré mes recherches je reste toujours bloqué...

Je m'explique :
Sur mon fichier Excel j'ai un formulaire. Je voudrais afficher/mettre-à-jour dans une cellule l'heure à laquelle j'ai exécuté pour la derniere fois le bouton d'action d'une macro.

Est ce que quelqu'un aurait une piste ? SVP :)

Bonne journée !

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets("Feuil1").range("A1")=Now

[Marc-L]

Bonjour,

voir par exemple l'aide VBA de la fonction Now …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[ivanG]

Bonjour,

Merci pour vos précédents messages. Malheureusement je suis toujours bloqué....

J'ai pensé à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub MAJ_heure()
     If  'j'utilise ou je clic sur une macro'  Then sheets("Feuil1").range("A1")=Now
     End If
End Sub

Comment pourrais-je traduire ce 'j'utilise...' ?

Merci d'avance !

[Marc-L]

Je voudrais afficher/mettre-à-jour dans une cellule l'heure à laquelle j'ai exécuté pour la derniere fois le bouton d'action d'une macro.

Et pourquoi donc pas directement dans le code du bouton d'action ? …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[ivanG]

C'est bon j'ai résolu mon problème. Dans mon bouton d'action, j'ai un MsgBox avec une validation sous forme d'un OUI/NON. J'ai donc intégré le code suivant à la suite de celui du bouton d'action :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Reponse = vbYes Then Sheets("Feuil1").Range("C2") = Now()

Merci pour vos réponses !

[Invité]

te prends pas la tête a savegarde la réponse; ceci dit c'est pas grave.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If MsgBox("Mon message", vbYesNo + vbQuestion, "Vous avez un message") = vbYes Then Sheets("Feuil1").Range("C2") = Now()