bonjour à tous,
j'ai une macros qui m'aide à remplir un tableau excel en utilisant un userform, mais sur certain champs des que je dépasse un certain nombre de caractères, elle bug.
le bug se situe au niveau de la ligne: shtJT.Range("A" & X) = CLng(Me.Txb_PO)
Pourriez-vous s'il vous plait me donner un coup de main
Private Sub Valider_Click()
Dim X As Long
Dim shtJT As Worksheet
If Me.Txb_customer = "" Then
MsgBox "Il faut un nom de client !", vbCritical, "Erreur saisie"
Me.Txb_customer.SetFocus
Exit Sub
End If
With Sheets("CSML")
Set shtJT = ActiveWorkbook.Sheets("CSML")
'Worksheets("CSML").Activate
X = shtJT.Cells(Rows.Count, "A").End(xlUp).Row + 1
shtJT.Range("A" & X) = CLng(Me.Txb_PO)
shtJT.Range("B" & X) = Me.Txb_customer
shtJT.Range("C" & X) = CLng(Me.Txb_NotProj)
shtJT.Range("D" & X) = Me.DTPicker1
shtJT.Range("E" & X) = Me.DTPicker2
shtJT.Range("F" & X) = Me.Txb_PR_Ref
shtJT.Range("G" & X) = Me.DTPicker3
shtJT.Range("H" & X) = Me.DTPicker4
End With
'Remise à 0 de l'USF, sauf date de transfert du BC
Me.Txb_customer = ""
Me.Txb_PO = ""
Me.Txb_NotProj = ""
Me.Txb_PR_Ref = ""
Me.Txb_customer.SetFocus
'mettre le curseur sur la Combobox client
End Sub
j'ai une macros qui m'aide à remplir un tableau excel en utilisant un userform, mais sur certain champs des que je dépasse un certain nombre de caractères, elle bug.
le bug se situe au niveau de la ligne: shtJT.Range("A" & X) = CLng(Me.Txb_PO)
Pourriez-vous s'il vous plait me donner un coup de main
Private Sub Valider_Click()
Dim X As Long
Dim shtJT As Worksheet
If Me.Txb_customer = "" Then
MsgBox "Il faut un nom de client !", vbCritical, "Erreur saisie"
Me.Txb_customer.SetFocus
Exit Sub
End If
With Sheets("CSML")
Set shtJT = ActiveWorkbook.Sheets("CSML")
'Worksheets("CSML").Activate
X = shtJT.Cells(Rows.Count, "A").End(xlUp).Row + 1
shtJT.Range("A" & X) = CLng(Me.Txb_PO)
shtJT.Range("B" & X) = Me.Txb_customer
shtJT.Range("C" & X) = CLng(Me.Txb_NotProj)
shtJT.Range("D" & X) = Me.DTPicker1
shtJT.Range("E" & X) = Me.DTPicker2
shtJT.Range("F" & X) = Me.Txb_PR_Ref
shtJT.Range("G" & X) = Me.DTPicker3
shtJT.Range("H" & X) = Me.DTPicker4
End With
'Remise à 0 de l'USF, sauf date de transfert du BC
Me.Txb_customer = ""
Me.Txb_PO = ""
Me.Txb_NotProj = ""
Me.Txb_PR_Ref = ""
Me.Txb_customer.SetFocus
'mettre le curseur sur la Combobox client
End Sub