Excellearning
XLDnaute Nouveau
Bonsoir chers tous;
Je rencontre des soucis avec une listbox de 11 colonnes.
Lorsque j'essais d'insérer des données, je rencontre l'erreur 380 à la 11 onzième colonnes.
Je demande votre aide pour résoudre ce problème si possible.
Merci.
Ci-joint le code:
Private Sub UserForm_Activate()
Je rencontre des soucis avec une listbox de 11 colonnes.
Lorsque j'essais d'insérer des données, je rencontre l'erreur 380 à la 11 onzième colonnes.
Je demande votre aide pour résoudre ce problème si possible.
Merci.
Ci-joint le code:
Private Sub UserForm_Activate()
Dim SheetUser As String
Dim i As Long
Dim j As Long
Dim p As Long
Dim nbr As Long
Dim user As String
'Dim Reexecute As PageSetup
Dim Resp As VbMsgBoxResult
Dim Resp2 As VbMsgBoxResult
user = Application.UserName
SheetUser = "Temp_" & Split(Trim(user), " ")(0)
nbr = NbrLineTable(SheetUser, SheetUser)
'MsgBox SheetExist(SheetUser)
If SheetExist(SheetUser) And nbr > 0 Then
If MsgBox("Voulez-vous charger le brouillon?", vbQuestion + vbYesNo, "Upload") = vbYes Then
Reexecute:
SocietyList.Show
'Society = SocietyList.BSelectSociety.Value
'MsgBox SocietyNameValue & " sç " & SocietyList.BSelectSociety.Value
'Exit Sub
If SocietyNameValue = "" Then
Resp = MsgBox("Vous n'avez pas selectionner une société." & vbCrLf & "Voulez-vous réessayer?", vbQuestion + vbRetryCancel + vbSystemModal, "Upload")
If Resp = vbRetry Then GoTo Reexecute Else Exit Sub
ElseIf FindValueRow(TableArea(SheetUser, SheetUser, 1), SocietyNameValue) = 0 Then
Resp2 = MsgBox("La société " & SocietyNameValue & " n'a pas de données en brouillon." & vbCrLf & "Voulez-vous choisir une autre société?", vbQuestion + vbRetryCancel + vbSystemModal, "Upload")
If Resp2 = vbRetry Then GoTo Reexecute Else Exit Sub
End If
'MsgBox "Societ" & Me.RecordBody.ListCount
With Me.SelectSocietyBox: .Value = SocietyNameValue: .Enabled = False: End With
'MsgBox Me.RecordBody.ColumnCount
p = 0
Do While i < nbr
If GetCells(i + 1, 1, SheetUser, SheetUser).Value = SocietyNameValue Then
With Me.RecordBody
.AddItem 'GetCells(i + 1, j + 2, SheetUser, SheetUser).Value
'On Error Resume Next
For j = 0 To 10
If IsNumeric(GetCells(i + 1, j + 2, SheetUser, SheetUser).Value) Then
.List(p, j) = Format(GetCells(i + 1, j + 2, SheetUser, SheetUser).Value, "#,##0.000")
Else
.List(p, j) = GetCells(i + 1, j + 2, SheetUser, SheetUser).Value
End If
'GetCells(i + 1, 12, SheetUser, SheetUser).Value = "Up"
Next
'MsgBox .List(p, 10)
End With
p = p + 1
End If
i = i + 1
Loop
'MsgBox Me.RecordBody.ListCount
'MsgBox "Societ" & Me.RecordBody.ListCount
NbLigne = nbr
Me.DebitBalance.Caption = Format(Round(CDbl(CalculateSum()(1)), 0), "#,##0")
Me.CreditBalance.Caption = Format(Round(-CDbl(CalculateSum()(2)), 0), "#,##0")
Balance = CalculateSum()(1) + CalculateSum()(2)
Me.Bltext.Caption = Format(Round(CDbl(Balance), 0), "#,##0")
MsgBox "Le brouillon a été chargé avec succès.", vbOKOnly + vbSystemModal, "Upload"
End If
End If
End Sub