Remonter un pop up à l' écran

[jean de chez claude]

Bonjour à tous
Est-ce possible lorsqu’ une macro s’exécute, qu’au moment opportun, un pop up remonte à l’écran et demande quelle date inscrire ? (date qui devra s’inscrire en cellule D2 :E27 de la feuille nommée Ao.
Cordialement

 

[Robert]

Re : Remonter un pop up à l' écran

Bonsoir Jeau, bonsoir le froum,

Peut-être comme ça :

Sub Macro1()
Dim d As String 'déclare la variable d
Dim da As Date 'déclare la variable da
 
d = InputBox("Tapez la date.") 'définit la variable d
da = CDate(d) 'définit la variable da
Sheets("Ao").Range("D2").Value = Format(da, "dd-mmm") 'place la date au bon format dans D2 de l'onglet "Ao"
End Sub

 

[jean de chez claude]

Re : Remonter un pop up à l' écran

Bonsoir à tous
Merci Robert, c'est exactement ce dont j'ai besoin.
Une fois de plus Merci
@+