msgBox

[petchy]

Bonjour à tous
je voudrais ajoutez du texte (à la place de 'ajout texte'),mais je n'y arrive pas,auriez vous une idée ?

Sub Salut1()
Greeting = ' Vous étes sur la saisies du Matériel '
If Time < '18:00:00' Then
MsgBox ' Bonjour , Mr ' & ActiveSheet.Name & _
Chr(13) & _ajout de texte
Chr(13) & ' Bonne Journée et bonne Saisie. ', vbOKOnly + vbInformation, Greeting
Else
MsgBox ' Bonsoir , Mr ' & ActiveSheet.Name & _
Chr(13) & _
Chr(13) & ' Bonne Soirée et bonne Saisie. ', vbOKOnly + vbInformation, Greeting
End If

End Sub

emrci

 

[Minick]

Salut,

Il faut placer ton text avant le '_' et laisser un espace apres ton texte

'_' signifie que tu vas continuer taligne de code sur la ligne suivante
donc apres '_' tu ne dois rien avoir

Chr(13) & 'Ton texte supplementaire' & _

 

[petchy]

bonjour Minick

merci pour ta rapidité,c'est impec