Bonsoir à vous,
après plusieurs recherche le bout de code ci-dessous me renvoi "Erreur de compilation : objet introuvable" sous XL2010 pourtant sous XL2003 pas de problèmes.
Dim DerLig As Long
Private Sub Userform_Initialize()
With Worksheets("S2013")
DerLig = .Range("D65536").End(xlUp).Row
Me.TextBox10 = .Range("A" & DerLig) + 1 ' qui est pour l'exemple "A" = 002
Me.TextBox10.Value = Format(Me.TextBox10, "000") ' donc doit donner 003
End With
Me.TextBox4.Value = Format(Now, "dd-mmm-yy")
Me.textbox11.Value = Format(Now, "mm") ' me donne le mois sous forme 00 soit Janvier = 01
Me.TextBox12.Value = "DE.12." & Me.textbox11.Value & Me.TextBox10.Value
Comment modifier le format value
Merci à vous et votre aide
après plusieurs recherche le bout de code ci-dessous me renvoi "Erreur de compilation : objet introuvable" sous XL2010 pourtant sous XL2003 pas de problèmes.
Dim DerLig As Long
Private Sub Userform_Initialize()
With Worksheets("S2013")
DerLig = .Range("D65536").End(xlUp).Row
Me.TextBox10 = .Range("A" & DerLig) + 1 ' qui est pour l'exemple "A" = 002
Me.TextBox10.Value = Format(Me.TextBox10, "000") ' donc doit donner 003
End With
Me.TextBox4.Value = Format(Now, "dd-mmm-yy")
Me.textbox11.Value = Format(Now, "mm") ' me donne le mois sous forme 00 soit Janvier = 01
Me.TextBox12.Value = "DE.12." & Me.textbox11.Value & Me.TextBox10.Value
Comment modifier le format value
Merci à vous et votre aide
Dernière édition: