Microsoft 365 Saisie d'un userform vers listes

[jcf6464]

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

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[Nicolas JACQUIN]

Bonjour
dans ce style, ou plutôt un bouton

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

 

[jcf6464]

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

 

[sylvanu]

Bonjour,
Je ne comprend pas la demande, cela semble fonctionner chez moi, où est le problème exactement :

 

[jcf6464]

Bonsoir François,

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

A+jcf

Bonjour,
Je ne comprend pas la demande, cela semble fonctionner chez moi, où est le problème exactement :

Regarde la pièce jointe 1219552

Bonsir
chez moi cela ne fonctionne pas comme je vois la demo je comprend pas excel 365

Cordialement jcf

 

[cathodique]

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.

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

 

[jcf6464]

tu viens un problème qui n'en est pas.
ton code fonctionne.

mais pas chez moi mystere

 

[sylvanu]

mais pas chez moi mystere

Rebootez votre PC.
Quelquefois cela remarche après.

... sinon achetez XL2007. 😅

 

[cathodique]

mais pas chez moi mystere

voir post#7

 

[jcf6464]

voir post#7

Merci Cathodique, et vous tous

cela fonctionne j'ai rajouter le message youpy (le papy s’éclate)

Bonne soirée jcf