Re Ouin-Ouin, le Forum
C'est un Problème simple, un Control "Label" ne supporte pas la Propriété Value mais simplement Caption qui aura le Même Effet...
Par contre ton code cloche encore niveau organisation, j'écrirais plutot comme ceci :
Private Sub CommandButton5_Click()
Dim WB As String, WS As String, WR1 As String, WR2 As String
Dim TheNumA As Double, TheNumB As Double
If Not IsNumeric(TextBox13) Then Exit Sub
If Not IsNumeric(Label1) Then Exit Sub
TheNum = TextBox13.Value
TheNum = Label1.Caption
WB = "Document.xls"
WS = "Document"
WR1 = "C23"
WR2 = "D23"
With Workbooks(WB).Worksheets(WS)
With .Range(WR1)
.Value = TheNumA
.NumberFormat = "#,###,##0.000"
End With
With .Range("WR2")
.Value = TheNumB
.NumberFormat = "#,###,##0.000"
End With
End With
End Sub
Bonne Soirée
@+Thierry