UserForm Mail

[le_neo]

bonjour,

voila je voudrais faire un textbox avec un texte préécrit et avec la valeur de 2 cellules
("N33") =AUJOURDHUI()
("M33) = SOMME....

mon bouton est actif mais quand je click dessus il m'ouvre mon textbox avec rien dedant je ne comprend pas

Voici mon code

Private Sub Mail_Click()
UserForm1.Show
End Sub

Private Sub UserForm1_Initialize()
Dim Mail As Integer
Mail = ActiveCell.Row
Me.TextBox.Value = Range("N33").Value & " il y a " & Range("M33").Value & "train(s) retardé(s) avec plus de 5 minutes COT K."
End Sub


Pouvez vous m'expliquer pourquoi cela ne fonctionne qu'a moitier

Cordialement le_neo

 

[le_neo]

Re : UserForm Mail

re,

y aurait-il quelqu'un pour me dire ou se trouve mon erreur

Merci

 

[joss56]

Re : UserForm Mail

Bonsoir,

Sans fichier, difficile à dire mais l'instruction : Me.TextBox.Value me semble erronée. Peut-être TextBox1...A essayer en tout cas

Jocelyn

 

[le_neo]

Re : UserForm Mail

re,
merci pour ta réponse

mais j'avais essayer avec Me.TextBox1.Value

désolé pour ne pas vous donner le fichier mais il est professionnel je ne peux pas vous l'envoyer

Merci beaucoup

Codialement le_neo

 

[le_neo]

Re : UserForm Mail

voici la piece jointe

 

[JCGL]

Re : UserForm Mail

Bonjour à tous,

Pose ton code dans l'initialisation de l'USF :

Private Sub UserForm_Initialize()
Dim Mail As Integer
     Mail = ActiveCell.Row
    Me.TextBox1 = Feuil1.Range("N33").Value & " il y a  " & Feuil1.Range("M33").Value & "train(s) retardé(s) avec plus de 5 minutes COT K."
End Sub

A + à tous

 

[le_neo]

Re : UserForm Mail

re,

@ JCGL cela ne fonctionne pas j'ai mon USF qui s'ouvre avec rien à l'interieur

cordialement

 

[JCGL]

Re : UserForm Mail

Bonjour à tous,

Et pourtant...

A + à tous

 

[le_neo]

Re : UserForm Mail

re,

merci infiniment