Discussion :

[Crack1986]

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

[Runsh63]

Salut Crack1986,

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

Code :

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

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.

[Crack1986]

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