Quelqu'un peut m'expliquer pourquoi ce code passe pas .......
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ???