Microsoft 365 Saisie d'un userform vers listes

  • Initiateur de la discussion Initiateur de la discussion jcf6464
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jcf6464

XLDnaute Impliqué
Bonsoir à vous tous

je souhaiterai un coup de pouce pour cette solution pas folichon en codage,

Quand je saisie un fournisseur dans le combobox cela s'inscrive dans la colonne à la suite des autres,

merci d'avance et bonne soirée jcf
 

Pièces jointes

Solution
Bonsoir à vous tous

je souhaiterai un coup de pouce pour cette solution pas folichon en codage,

Quand je saisie un fournisseur dans le combobox cela s'inscrive dans la colonne à la suite des autres,

merci d'avance et bonne soirée jcf
tu viens un problème qui n'en est pas.
ton code fonctionne.

edit: je n'avais pas lu ton commentaire dans le fichier. Il suffit d'ajouter une ligne au début du tableau.
VB:
Private Sub CmbFournisseurs_AfterUpdate() 'saisie num Affaire dans liste affaire
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim Lig As ListRow
    
    Set ws = ThisWorkbook.Sheets("Listes")
   Set tbl = ws.ListObjects("T_Fournisseurs")
    
    Set Lig = tbl.ListRows.Add(1) ' Ajoute une ligne au début...
Bonjour
dans ce style, ou plutôt un bouton

VB:
Private Sub CmbFournisseurs_AfterUpdate() 
    Dim lastRow As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Listes") 

    lastRow = ws.Cells(ws.Rows.Count, 5).End(xlUp).Row + 1
    ws.Cells(lastRow, 5).Value = Me.CmbFournisseurs.Value
   
    Me.CmbFournisseurs.Value = ""
End Sub
 
Bonjour
Ci joint ma solution

A+ François
Bonsoir François,

merci de ta réponse chez moi cela ne fonctionne pas cela enregistre après le tableau,

Merci
Pour Nicolas même topo cela s'inscrit en dehors de la liste mais quand on saisie plusieurs ils se mettent à la suit mais pas dans le tableau

A+jcf
 

Pièces jointes

  • 2025-06-21-17h22.jpg
    2025-06-21-17h22.jpg
    17.7 KB · Affichages: 5
Dernière édition:
Bonjour,
Je ne comprend pas la demande, cela semble fonctionner chez moi, où est le problème exactement :

Test5.gif
 
Bonsoir à vous tous

je souhaiterai un coup de pouce pour cette solution pas folichon en codage,

Quand je saisie un fournisseur dans le combobox cela s'inscrive dans la colonne à la suite des autres,

merci d'avance et bonne soirée jcf
tu viens un problème qui n'en est pas.
ton code fonctionne.

edit: je n'avais pas lu ton commentaire dans le fichier. Il suffit d'ajouter une ligne au début du tableau.
VB:
Private Sub CmbFournisseurs_AfterUpdate() 'saisie num Affaire dans liste affaire
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim Lig As ListRow
    
    Set ws = ThisWorkbook.Sheets("Listes")
   Set tbl = ws.ListObjects("T_Fournisseurs")
    
    Set Lig = tbl.ListRows.Add(1) ' Ajoute une ligne au début
    
    Lig.Range(1, 1).Value = Me.CmbFournisseurs.Value
    
    Me.CmbFournisseurs.Value = ""
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
168
Réponses
10
Affichages
362
Réponses
5
Affichages
238
Réponses
38
Affichages
954
Réponses
2
Affichages
456
Réponses
3
Affichages
714
Retour