Aide pour les INPUTBOX

Bonjour, je réalise un travail sur l'automatisation des tâches au sein de mon entreprise.

Il se trouve que je ne connais pas assez le langage VBA mais j'aimerais réalisé une boîte de message (inputbox) où je puisse saisir une date et celle-ci se retrouve copier dans un endroit concret.

Exemple :

Je suis situé sur feuille1 et je veux que la date que j'ai saisie dans la boîte se copie en e18

Comment fais-t-on ?

Merci

Salut Crack1986,

Essaye ceci, ça devrait répondre à ton besoin :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Test()   Application.ScreenUpdating = False   Dim Mydate As Date   With Feuil1   Mydate = InputBox("Veuillez saisir une date au format dd/mm/yyyy", "Choix d'une date")   .Range("E18") = Mydate   End With   Application.ScreenUpdating = True   End Sub

---

En espérant que cela réponde à ton besoin.

Parfait Meric beaucoup c'est tout à fait ce que je cherchais.