[VBA] Excel. FormatNumber

Quelqu'un peut m'expliquer pourquoi ce code passe pas .......

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim l As Integer l = Sheets("ir").Range("a65536").End(xlUp).Row + 1 Sheets("ir").Activate With Sheets("ir") .Range("a" & l).Value = "791" .Range("b" & l).Value = TextBox1.Value .Range("c" & l).Value = TextBox2.Value .Range("d" & l).Value = TextBox9.Value .Range("d" & l).NumberFormat = "mm/dd/yy" .Range("e" & l).Value = TextBox4.Value .Range("f" & l).Value = TextBox5.Value .Range("g" & l).Value = TextBox6.Value .Range("h" & l).Value = "N" .Range("i" & l).Select ...

---

Message d'erreur :
"Impossible de définir la propriété Numberformat de la classe range"

Le pire c'est j'utilise ce code sur d'autres classeurs et que ca marche.

Une idée ???

je connais pas cette fonction mais pourquoi le titre de ton post c'est FormatNumber et dans ton post tu dis Numberformat ?

ben oui je viens de regarder dans l'aide et les 2 fonctions existent et elles font pas du tout la meme chose. Toi je pense que tu veux utiliser FormatNumber!

En fait me suis trompé dans le titre du post et, dans l'aide, je ne trouve rien se référençant à formatnumber.
Par contre je vais essayer avec :

Code:

---

=format(madate,"mm,dd,yy")

---

On verra bien !!

je pense que t'as mal tape car elle existe cette fonction formatnumber! (extrait de l'aide...):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

FormatNumber Function     Description   Returns an expression formatted as a number.   Syntax   FormatNumber(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])   The FormatNumber function syntax has these parts:

---

Bon apres moi je dis ca comme ca car je ne sais pas ce que tu veux faire...