Discussion :

[akmer]

Bonjour,
Voila mon code vba:

Code :

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

1
2
3
Range("A1:I1").Select 
ActiveCell.FormulaR1C1 = _ 
"ETAT DES DECISION DE LA DIRECTION DES ENGAGEMENTS" & Chr(10) & " DU __/__/2008 AU __/__/2008"

Je voudrais que les dates se mettent automatiquement sachant que les dates qui doivent apparaittrent je les saisies respectivement dans la textbox1 et textbox2.

J'avais essayé le code suivant mais sa ne marche pas:

Code :

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

1
2
3
Range("A1:I1").Select 
ActiveCell.FormulaR1C1 = _ 
"ETAT DES DECISION DE LA DIRECTION DES ENGAGEMENTS" & Chr(10) & " DU =textbox1 AU textbox2"

J'éspére avori été le plus clair possible.
Si quelqu'un connait la solution n'hésitez pas.
Merci d'avance

[Jean-Pierre49]

Bonjour,

essaye

Code :

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

Range("A1:I1").Value = "ETAT DES DECISION DE LA DIRECTION DES ENGAGEMENTS" & Chr(10) & " DU " & Format(textbox1, "dd/mm/yy") & " AU " & Format(textbox2, "dd/mm/yy")

[akmer]

les zones ou apparaissent les dates dans la userform sont du type TextboxDate1 et TextBoxDate2 et non textbox1...

LA formule ce lance bien mais il n'apparait que :
"ETAT DES DECISION DE LA DIRECTION DES ENGAGEMENTS AU" dans la case souhaité mais il n'y a pas les date des TextBoxDate

Voila la formule que j'ai tapé:

Code :

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

1
2
ActiveCell.FormulaR1C1 = _
"ETAT DES DECISION DE LA DIRECTION DES ENGAGEMENTS" & Chr(10) & " DU " & Format(TextBoxDate1, "dd/mm/yy") & " AU " & Format(TextBoxDate2, "dd/mm/yy")

[akmer]

c'est bon j'ai trouvé a solution, merci comme même
voici la solution juste à titre indicatif:

Code :

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

1
2
ActiveCell.FormulaR1C1 = _
"ETAT DES DECISION DE LA DIRECTION DES ENGAGEMENTS" & Chr(10) & " DU " & UserForm1.TextBoxDate1.Text & " AU " & UserForm1.TextBoxDate2.Text

Bonne fin de journée