Rapport de message :*
 

formatage données dans une cellule

Titre du sujet : formatage données dans une cellule
par ramarc le 09/07/2012 13:19:33

 Bonjour,

Encore une question bête, désolé ???

Pour rajouter un text au moment de la définition d'une cellule
Exemple dans D11 on a une valeur numérique de 1 à 31:

 If IsEmpty(Range("D11")) Then
           MsgBox "Il faut saisir le jour d'incident"
           Range("D11").Select
           Else
' dans la cellule J6 il doit y avoir la valeur de D11(par exemple 25
' et la chaine de ' caracteres "/07/2012 "  donc 25/07/2012 
           J6 = (D11&'/07/2012')
' C'est la syntaxe de cette ligne qui me pose un problème, EXCEL me dit
' qu'il me faut une fin d'instruction.

' aprés si possible je replace D11 par J6
           Range("D11").Select
           D11 = ("J6")
           Exit Sub
    End If