Microsoft 365 problème de rangement sur un tableau excel (programation VBA)

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 :
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
 

Pièces jointes

  • TEST (003).xlsm
    98 KB · Affichages: 14

halimhamdi

XLDnaute Junior
bonjour
désolé pour le retard et pour la discussion car je n'ai pas comprends bien ; le remplissage des cases comme la suite : ensuite on mettre tous ca sur le tableau après la validation
1668098114930.png

le date et heure est ce que possible automatique !
1668098280587.png



merci pour votre aide @sylvanu
 

Discussions similaires

Statistiques des forums

Discussions
311 543
Messages
2 080 560
Membres
101 247
dernier inscrit
kamzo