Discussion :

[Phenx]

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 ???

[florent149]

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

[florent149]

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!

[Phenx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

On verra bien !!

[florent149]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...