Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Alimenter une ComboBox dans l'ordre décroissant

Créer une discussion

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 !

S'inscrire

murainesouspatate

XLDnaute Occasionnel
Bonjour à tous et à toutes,

Je cherche à alimenter un ComboBox dans l'ordre décroissant. J'ai beau regarder sur le forum mais ne comprends pas très bien comment modifier mon code.
J'alimente mon ComboBox4 avec la colonne A de ma feuille " Enregistrement Facture" et cela m'affiche toujours dans l'ordre croissant mes N° de factures.

Auriez-vous l'amabilité de m'indiquer comment modifier le code .

Je place en pièce jointe les images de ma ComboBox4 avec son code , ainsi que celle de ma feuille Enregistrement Facture.

Je vous remercie par avance de votre aide et vous souhaite de bonnes fêtes de fin d'année.

Cordialement.
 

Pièces jointes

  • UserForm4.jpg
    141.1 KB · Affichages: 31
  • Feuille enregistrement Facture.jpg
    300.3 KB · Affichages: 30
Trier par date Trier par votes
Bonjour, comme je le disais, la solution de mapomme est d'une simplicité et excellente, juste à rajouter une virgule et 0. Ca fonctionne à merveille. Merci de vous être penché sur mon problème. Je vous souhaite de bonne fêtes de fin d'année et un grand bonjour de la Nouvelle Calédonie. Cordialement.
 
Vote positif 0 Vote négatif
Bonjour le Fil
Question :
VB: 
Ligne= Me.Combobox1.ListIndex+2
fonctionne Bien ?
Bonne nuit !
Jean marie
Ps :
Le Code que j'ai employé
Code: 
Private Sub ComboBox1_Click()
With Me.ComboBox1
  Me.TextBox1.Text = .List(.ListIndex, 1)
  Me.TextBox2.Text = .List(.ListIndex, 2)
  Me.TextBox3.Text = .List(.ListIndex, 3)
  Me.TextBox4.Text = .List(.ListIndex, 4)
  Me.TextBox5.Text = .List(.ListIndex, 5)
  Me.TextBox6.Text = .List(.ListIndex, 6)
End With
End Sub

Private Sub Userform_Initialize()
Dim DerLgn As Long, DerCol As Byte, Ligne As Long
Dim Tableau
With Worksheets("EnregistrementFacture")
   DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
    DerCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
         With .Range(.Cells(1, 1), .Cells(DerLgn, DerCol))
                .Sort key1:=.Cells(2, 1), Order1:=xlDescending, Header:=xlYes
Tableau = .Value
         End With
End With
With Me.ComboBox1
         .ColumnCount = 7
         .ColumnWidths = "1;0;0;0;0;0;0"
For Ligne = 2 To UBound(Tableau, 1)
     .AddItem Tableau(Ligne, 1)
     .List(.ListCount - 1, 1) = Tableau(Ligne, 4) '4
      .List(.ListCount - 1, 2) = Tableau(Ligne, 11) '11
       .List(.ListCount - 1, 3) = Tableau(Ligne, 12) '12
        .List(.ListCount - 1, 4) = Tableau(Ligne, 13) '13
         .List(.ListCount - 1, 5) = Tableau(Ligne, 14) '14
          .List(.ListCount - 1, 6) = Tableau(Ligne, 15) '15
Next Ligne
End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour.
Information : La méthode Add de mon objet ComboBoxLiées accepte un 3ème argument optionnel Croissant As Boolean par défaut à True. Le spécifier False permet la constitution d'une liste décroissante pour la ComboBox concernée à prendre en charge, spécifiée en 1er argument.
 
Vote positif 0 Vote négatif
mapomme à dit:
Bonsoir @murainesouspatate 🙂,
Une piste :
Regarde la pièce jointe 1209985
Cliquez pour agrandir...
Bonjour mapomme, et bonne année.

La solution que vous m'avez donnée est super, mais il y a un hic. Lorsque je sélectionne le numéro de facture dans le combobox1 dans l'ordre décroissant c'est super sauf pour le reste, mes TextBox affichent uniquement les entêtes de mon tableau. Je n'ai plus les valeurs correspondantes au numéro de facture sélectionné.
Auriez-vous l'amabilité de m'indiquer ce qui ne vas pas.
Je vous joint le facturier simplifié en pièce jointe.
Cordialement.
 

Pièces jointes

  • Facturier V4.xlsm
    Facturier V4.xlsm
    974.5 KB · Affichages: 4
  • Vesrsement final.jpg
    58.3 KB · Affichages: 14
Vote positif 0 Vote négatif
Bonsoir @murainesouspatate et bonne et heureuse année 2025 🤩,

Voici le retour du fichier avec une astuce assez générale pour repérer le numéro de ligne au sein de la feuille "Enregistrement Facture" d'une facture sélectionnée dans ComBobox1 du Userform4.

Tous les commentaires ont été mis dans le code de Userform4.
 

Pièces jointes

Vote positif 0 Vote négatif
Superbe travail, je ne connaissait pas du tout cette astuce.
Je vous remercie beaucoup pour votre coup de main, cela me fait avancer beaucoup.

Cordialement.
 
Vote positif 0 Vote négatif
ChTi160 à dit:
Bonjour le Fil
j'avais au #10 posé la question !
car la méthode n'était pas logique ... mais Bon pas de réponse !
Bonne Journée
Jean marie
Cliquez pour agrandir...
Oups désolé de ne pas vous avoir répondu dans la foulée. la solution que j'ai retenue est celle de mapomme qui m'a bien expliqué une subtilité que je ne connaissait pas et me convient tout à fait. Encore mille excuses,
Je vous souhaite une bonne année.
Cordialement.
 
Vote positif 0 Vote négatif
Re @murainesouspatate 🙂,

Dans mon précédent message, je m'étais fait plaisir en rajoutant le numéro de ligne dans la ComboBox1.

Mais il a une solution plus directe (et plus simple mais moins drôle) qui ne nécessite pas la modification de remplissage de la ComboBox1.

En fait à chaque fois qu'on a besoin de lire ou d'écrire des données de la facture sélectionnée dans ComboBox1, on redétermine le numéro de cette ligne (dans la feuille "Enregistrement Facture" repérée par F). Ainsi même si quelqu'un entre temps a mélangé ou trié les lignes de F, on a toujours la bonne ligne pour la facture sélectionnée.

Pour cela, on va utiliser le principe de la formule Excel EQUIV(). On recherche le numéro de facture sélectionnée (NumFact = Combobox1) dans la première colonne de F. EQUIV() va directement nous donner le bon numéro de ligne =EQUIV(numfact , F.Columns("a:a") , 0).

Mais il se peut que la ligne de la facture n'existe plus ou bien qu'aucune facture n'est été sélectionnée. Dans ce cas, EQUIV(...) renverra une erreur. Pour éviter de renvoyer une erreur, on englobe EQUIV(...) dans un SIERREUR(EQUIV(...), 0 ) qui renverra 0 dans le cas où la ligne n'a pas été trouvée. Ce qui donne pour la formule :
=SIERREUR( EQUIV(NumFact , F.Columns("a:a") , 0), 0 )

Mais cette formule est une formule EXCEL et non pas VBA. La conversion pour VBA est relativement simple (mais en anglais car VBA est d'origine US). EQUIV correspond à Match et SIERREUR correspond à IfError. Cela donne :
ligne = Application.IfError(Application.Match(NumFact, F.Columns("a:a"), 0), 0) soit
VB: 
   NumFact = Me.ComboBox1                            ' le numéro de facture cliqué dans ComboBox1
   Set F = Sheets("Enregistrement Facture")                         ' feuille "Enregistrement Facture"
   For i = 1 To 6: Me.Controls("Textbox" & i) = "": Next i      ' Effacement des TextBox de 1  à 6
   ' ligne de la facture sélectionnée dans "Enregistrement Facture"
   ligne = Application.IfError(Application.Match(NumFact, F.Columns("a:a"), 0), 0)

Donc ligne est soit le numéro de ligne de NumFact soit vaut 0 si la facture n'a pas été trouvée. On peut donc ensuite agir dans chacun des cas :
VB: 
   If ligne = 0 Then    ' la ligne de la facture n'existe pas ou n'existe plus
      ' action pas facture
      ...
   Else                 ' la ligne de la facture n'existe pas ou n'existe plus plus
      ' action quand la ligne de la facture existe
      ...
   End If

Voir le code complet commenté de Userform4 dans le classeur joint.

nota : j'ai supprimé le fond de page de la feuille 'Accueil" qui alourdissait (inutilement) le classeur à pratiquement la limite maximum autorisée pour la taille des fichiers sur XLD (soit 1 Mo).
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
601
Piment
P
N
  • Question Question
Microsoft 365 Alimenter une Combo Active X inséré dans une feuille de calcul
Réponses
3
Affichages
344
NONO14
N
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
909
NONO14
N
  • Question Question
XL 2010 Comptage Complexe
2 3
Réponses
40
Affichages
3 K
dysorthographie
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
414
Anthony_51
A
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
B
  • Question Question
Microsoft 365 Alimenter combobox et ajouter la valeur si non inscrit dans la liste
Réponses
5
Affichages
711
sousou
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
684
Usine à gaz
S
  • Question Question
XL 2016 afficher plusieurs résultats dans un combobox
Réponses
5
Affichages
684
submarine22
S
I
  • Question Question
XL 2016 Modification d'une ligne dans mon code
Réponses
2
Affichages
650
INFINITY100
I
N
  • Résolu(e)
XL 2019 Alimenter une combobox selon critère après avoir double cliqué sur une feuille
2
Réponses
20
Affichages
1 K
sousou
D
  • Question Question
XL 2013 envoie tableau dans corp du mail vba
2
Réponses
26
Affichages
2 K
David62800
D
Y
  • Question Question
Microsoft 365 Rechercher Cellule suivant la valeur sélectionnée dans une Combobox
Réponses
8
Affichages
782
Yoyo60
Y
T
  • Question Question
XL 2016 Créer un renvoi automatique vers une feuille récap
Réponses
2
Affichages
840
thsoulard
T
E
  • Résolu(e)
Microsoft 365 Problème d'organisation des colonnes dans une ListBox en VBA Excel
Réponses
2
Affichages
1 K
eCHO
E
  • Question Question
XL 2019 Combobox depuis une autre feuille
Réponses
11
Affichages
1 K
ChTi160
K
  • Question Question
Microsoft 365 Alimenter la listbox à partir d'une sélection dans la combobox
Réponses
11
Affichages
1 K
KinJus
K
L
  • Question Question
XL 2010 rechercher une valeur pour remplir un label de userform à partir d'une valeur de textbox
2 3 4
Réponses
52
Affichages
5 K
SDHABARKA
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…