halimhamdi
XLDnaute Junior
bonjour
j'ai un problème de rangement pour la dernière case de [commentaire] n'affiche pas sur le tableau suite cette programme :
j'ai un problème de rangement pour la dernière case de [commentaire] n'affiche pas sur le tableau suite cette programme :
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
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
For I = 0 To 9
.List(NbItem, I) = Me.Controls(Ctrl(I))
Next
End With
End Sub