halimhamdi
XLDnaute Junior
bonjour
j'ai un blocage dans un programme vba quand je veux ajouter plusieurs ligne dans la listbox de cette userform s'affiche avec des ligne vide comme indiquer dans la capture.
qq pourrait-il m'aider à finir ma macro je bloque ?
le programme et comme la suite :
qq pourrait-il m'aider a finir ma macro je bloque ?
j'ai un blocage dans un programme vba quand je veux ajouter plusieurs ligne dans la listbox de cette userform s'affiche avec des ligne vide comme indiquer dans la capture.
qq pourrait-il m'aider à finir ma macro je bloque ?
le programme et comme la suite :
VB:
Private Sub Cmd_Valider_Click()
Dim Nligne As Integer
Dim Ncolonne As Integer
[Tableau4].Parent.Activate
With Me.ListBox1
Nligne = .ListCount: Ncolonne = .ColumnCount: Table = .List
For I = 0 To .ListCount - 1
L = [Tableau4].ListObject.ListRows.Add.Index
[Tableau4[Departement]].Rows(L) = .List(I, 0)
[Tableau4[Salle]].Rows(L) = .List(I, 1)
[Tableau4[Ligne]].Rows(L) = .List(I, 2)
[Tableau4[Résp revue]].Rows(L) = .List(I, 3)
[Tableau4[Batch]].Rows(L) = .List(I, 4)
[Tableau4[Réf]].Rows(L) = .List(I, 5)
[Tableau4[Famille]].Rows(L) = .List(I, 6)
[Tableau4[Anomalie]].Rows(L) = .List(I, 7)
[Tableau4[Criticité]].Rows(L) = .List(I, 8)
[Tableau4[Resp Anomalie]].Rows(L) = .List(I, 9)
[Tableau4[Commentaire]].Rows(L) = .List(I, 10)
If I = 0 Then [Tableau4[temps]].Rows(L) = Me.Tbx_Elaps
Next
End With
Unload Me
End Sub
Private Sub Cmd_Ajouter_Click()
Dim NbItem As Integer
Dim t() As Variant
Ctrl = Array("cbx_dep", "cbx_salle", "cbx_ligne", "tbx_Rrév", "tbx_Batch", "tbx_Réf", "cbx_famille", "cbx_Ano", "tbx_Crit", "tbx_Rano", "tbx_Com")
With Me.ListBox1
'chargement des information
.AddItem: NbItem = .ListCount - 1
ReDim t(0 To NbItem, LBound(Ctrl) To UBound(Ctrl))
.List = t
For I = LBound(Ctrl) To UBound(Ctrl)
.List(NbItem, I) = Me.Controls(Ctrl(I))
Next
End With
End Sub
qq pourrait-il m'aider a finir ma macro je bloque ?