Comment afficher des résultats de différentes origines dans une textbox excel

Résolu
mythiac Messages postés 72 Date d'inscription mardi 23 septembre 2008 Statut Membre Dernière intervention 23 février 2009 - 14 oct. 2008 à 15:50
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 - 15 oct. 2008 à 18:43
bonjour,
Je débute dans le vba excel, et j'aurais besoin d'un coup de main pour afficher des dates dans 2 texbox, avec des selections différentes pour l'origine du jour, du mois et de l'année.

je pense que vous me comprendrez mieux par le code, même si je pense que je complique plus qu'il n'est nécessaire...

Private Sub CommandButton1_Click()

Dim l As Object 'transition pour mois
Dim m As Object 'année en fonction de la textbox1
Dim p As Object '1er jour

'1er jour
Set p = Feuil9.Range("F3")
q = p.Value

 'mois
Feuil9.Range("f1").Value = UserForm12.ListBox1.List  'mois selectionné
 'exemple avec une plage de A1 à Ln (12 colonnes sur n lignes)
 
    Set l = Feuil9.Range("F4")
    j = l.Value

'année
Set m = UserForm12.TextBox1
r = m.Value
 
        TextBox2.text = Format("q/j/r")
        TextBox3.text = Format("q/j/r")

End Sub

merci par avance...

4 réponses

mythiac Messages postés 72 Date d'inscription mardi 23 septembre 2008 Statut Membre Dernière intervention 23 février 2009
14 oct. 2008 à 15:52
j'ai oublié, pour info actuellement, dans mes textbox je n'ai que q/j/r qui s'affiche, au lieu des valeurs qu'il représentent...
3
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
15 oct. 2008 à 00:12
Bonjour Mythiac

Tu pourrais attendre qu'on te réponde avant de cliquer sur réponse acceptée ! 

Bon voila, c'est tes instruction format qui sont mauvaises.

essaie avec

   TextBox2.text = DateSerial(r, j, q)
   TextBox3.text = DateSerial(r, j, q)

Bon courage
3
mythiac Messages postés 72 Date d'inscription mardi 23 septembre 2008 Statut Membre Dernière intervention 23 février 2009
15 oct. 2008 à 08:26
Merci beaucoup, ça marche....

désolé pour le réponse accepté trop rapide, c'est lorsque j'ai ajouté mon deuxième message que c'est apparue, j'ai pensé que pour qu'il soit affiché il fallait que je l'accepte!
0
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
15 oct. 2008 à 18:43
Bonjour mythiac

C'est sans problème. Content d'avoir pu te rendre service.

@+
0
Rejoignez-nous