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

[halimhamdi]

bonjour
j'ai un problème de rangement pour la dernière case de [commentaire] n'affiche pas sur le tableau suite cette programme :

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

 

[halimhamdi]

La case resp on met des nombres de quatre chiffre 9999 ,pour batch combine entre des letters et chiffres .. dsl pour le dérangement car j'ai pas bien compris votre question

 

[halimhamdi]

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

le date et heure est ce que possible automatique !

merci pour votre aide @sylvanu

 

[sylvanu]

Bonsoir,
It's more clear.
Un essai en PJ.
dans la colonne Temps, je ne sais pas quoi mettre.
Donc il faut modifier la ligne :

.Item(DL, 6) = "?"

 

[halimhamdi]

Merci pour votre aide mais possible de mettre un module de chronometrage automatique comme le userform1 ou nn ?

 

[sylvanu]

Chronométrage de quoi ?
Pour mesurer quel temps ?

 

[sylvanu]

J'ai intégré le temps comme dans le userform1.
Je n'avais pas compris car je ne vois pas à quoi ça peut servir. Pour moi c'est totaement inutile, ça mesure le temps de remplissage de l'userform.