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

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour halimhamdi,
Pas sur d'avoir bien compris, mais en modifiant :
VB:
.List = t
par
If NbItem = 0 Then .List = t
On peut enrichir la liste de Combobox :
1666188740946.png
 

Pièces jointes

  • TEST (003) (3).xlsm
    83.2 KB · Affichages: 6

halimhamdi

XLDnaute Junior
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
 

Pièces jointes

  • 1666638771665.png
    1666638771665.png
    13.3 KB · Affichages: 22

halimhamdi

XLDnaute Junior
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 :
1668016766257.png

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

Pièces jointes

  • last version V2.xlsm
    110.7 KB · Affichages: 7

halimhamdi

XLDnaute Junior
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
1668028099593.png


bouton technicien pour ouvrir cette userform

1668028136734.png

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
Je jette l'éponge.
comme indiqué les captures
Qu'est ce qu'on met ici ?
1668032397385.png

Il n'y a aucune explication. Et vous ne répondez à aucune question. :mad:
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 540
Messages
2 080 523
Membres
101 234
dernier inscrit
Layani89