Excel : Demander une date puis lancer une macro

**repié** · 21/12/2005, 15h22

Bonjour

Je travail sur un fichier Excel et je souhaite demander à l'utilisateur une date (avec un Userform ou non, je sais pas), puis je souhaite copier cette date dans une cellule et enfin lancer une macro

Comment puis-je faire étant donné que je ne connai rien aux Userform?
Merci beaucoup

**calimero91** · 21/12/2005, 15h29

creer simplement une textbox dans ton fichier excel pour que l'utilisateur saisisse la date et ensuite tu la copie dans la cellule voulu en utilisant la methode suivante:

Code :

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

wsexcel.Cells(1, 1).Value = Text1.Text

comme ça tu recupere le text ecrit dans la textbox et l'a reecrit dans la cellule A1 de ta feuille excel.

**repié** · 21/12/2005, 15h36

Merci bien
je voulais savoir aussi s'il n'est pa possible de m'assurer, dans cette Textbox que la valeur est bien une date?

**repié** · 21/12/2005, 15h39

je vien de tester le code et le débogueur m'affiche : "erreur 424: objet requis"

**SfJ5Rpw8** · 21/12/2005, 16h37

Envoyé par repié

Bonjour

Je travail sur un fichier Excel et je souhaite demander à l'utilisateur une date (avec un Userform ou non, je sais pas), puis je souhaite copier cette date dans une cellule et enfin lancer une macro

Comment puis-je faire étant donné que je ne connai rien aux Userform?
Merci beaucoup

Ce serai surement mieux une userForm avec un dtPicker ( activeX qui permet de saisir une date ... procédure en bref

sous VBA (Excel)
Insertion UserForm
Clic droit sur la boite à outils, controle suplémentaire...
Puis rajout de Microsoff date and time Picker...
rajout d'un DTPicker sur l'userform...
Rajout d'un bouton ( le bouton permettant de lancer la macro sur l'userform avec le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
```
1
2
3
4
5
Private Sub CommandButton1_Click()
 Sheets("Feuil1").Range("A1") = DTPicker1
 MaMacro
 Hide
End Sub
```
(MaMacro étant le nom de la macro à lancer...

rajout d'une macro de lancement..... contenant le code UserForm1.show..

et voila .. n'hésite pas à nous dire s'il te manque quelque-chose...

:

**repié** · 21/12/2005, 16h49

Envoyé par bbil

Insertion UserForm
Clic droit sur la boite à outils, controle suplémentaire...
Puis rajout de Microsoff date and time Picker...
rajout d'un DTPicker sur l'userform...

Je n'arrive pas à faire tout ca...!