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]

re bonjour mr
merci pour votre soutien , pour le moment tt va bien, mais un seule problème quand je veux ajouter plusieurs lignes partir de userform dans la listbox ne fonctionne pas;

 

[sylvanu]

Bonjour halimhamdi,
Pas sur d'avoir bien compris, mais en modifiant :

.List = t
par
If NbItem = 0 Then .List = t

On peut enrichir la liste de Combobox :

 

[halimhamdi]

merci mr Sylvanu pour votre réponse et surtout votre soutien : mais j'ai une autre point a amélioré si possible :
je veux préciser les choix lors de sélection comme exemple :
quand je sélectionne production s'affiche dans la salle "SBL1" et "SBL2" et "SBL3"
et quand je sélectionne Sbl1 dans la salle s'affiche dans la ligne les ligne suivants " flex1 et flex2 flex3 jusqu'a Hir1"
et pour SBL2 s'affiche dans la ligne les ligne suivants " voir la capture"
et pour les autre département dans la salle et ligne sera vide .
est-ce que possible ou non

merci

 

[sylvanu]

Bonsoir,
Si j'ai bien compris, voir PJ, macro Sub cbx_salle_Change.

 

[halimhamdi]

BONJOUR Mr
merci beaucoup spécial remercîment
mais comment je fais quand je motionne autre département or production comme magasin ou qualité je veux les deux comobox de salle et ligne affiche vide ou bien NA !!

 

[sylvanu]

Bonsoir,
En faisant la même chose avec l'autre combobox.

 

[halimhamdi]

merci beaucoup 😀😀😀😀

 

[ChTi160]

Bonsoir
Une autre version, bien que @sylvanu ait donné la solution !
Jean marie

 

[halimhamdi]

bonjour mes amis @sylvanu @ChTi160
j'ai besoin de vous aide à propos meme fichier
je veux ajouter classeur qui s'appelle "technicien" avec un autre userform comme la suite :

avec temps automatique comme motionné dans le même fichier avec userform1 :
possible ou nn !!
merci de m'aider sur ce sujet PLZZZZZZZZZ

 

[sylvanu]

Bonsoir,
J'ai essayé sans succès !

Alors aidez nous.
Resp : C'est la colonne M de Saisie ? Mais ce ne sont pas des noms.
Temps automatique : C'est quoi ? La colonne O de Saisie ?
Donnez un peu d'explications ou mieux un attendu.

 

[halimhamdi]

bonjour ;
responsable c'est nom ou bien nombre fait sur le userforme temps automatique comme indiqué dans la user forme de fichier sasie
je veux les donné remplir cette tableau dans la feuille technicien

bouton technicien pour ouvrir cette userform

date et heure automatique le temps de déclarer l'ajout de ligne

 

[sylvanu]

Je ne comprends pas.
Que met on dans Resp ? La liste de la colonne M de Saisie ?

 

[halimhamdi]

Juste on travaille sur la classeur 《technicien》 vous trouvez les données comme indiqué les captures

 

[sylvanu]

Je jette l'éponge.

comme indiqué les captures

Qu'est ce qu'on met ici ?

Il n'y a aucune explication. Et vous ne répondez à aucune question. 😡

Resp : C'est la colonne M de Saisie ? Mais ce ne sont pas des noms.
Temps automatique : C'est quoi ? La colonne O de Saisie ?
Donnez un peu d'explications ou mieux un attendu.