Tri combobox
Résolu/Fermé
COCOLASTICO29
Messages postés
7
Date d'inscription
vendredi 3 avril 2015
Statut
Membre
Dernière intervention
9 juin 2015
-
3 avril 2015 à 09:53
COCOLASTICO29 Messages postés 7 Date d'inscription vendredi 3 avril 2015 Statut Membre Dernière intervention 9 juin 2015 - 7 mai 2015 à 09:46
COCOLASTICO29 Messages postés 7 Date d'inscription vendredi 3 avril 2015 Statut Membre Dernière intervention 9 juin 2015 - 7 mai 2015 à 09:46
A voir également:
- Vba trier combobox ordre alphabétique
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Trier par ordre alphabétique excel - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms - Forum Excel
- Erreur 1004 vba ✓ - Forum VB / VBA
- Trier par ordre alphabétique libre office ✓ - Forum Windows
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
3 avril 2015 à 12:09
3 avril 2015 à 12:09
Bonjour,
un exemple : https://www.cjoint.com/c/EDdmwm86AlG
A+
un exemple : https://www.cjoint.com/c/EDdmwm86AlG
A+
3 avril 2015 à 15:50
9 avril 2015 à 09:59
excusez moi mais lors de la compilation j'ai une erreur "Sub ou fonction non defini" avec le Private sub userforom au niveau dde la fonction "Call tri"
9 avril 2015 à 11:55
voir MP
7 mai 2015 à 09:46
Cependant j'ai un petit probléme que je n'arrive pas à comprendre
L'enregistrement de mes données par collone et ligne se fait via un deuxiéme userform par la trame suivant
Sheets("feuil1").Activate
Range("C" & Range("C" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox1.Value
Range("D" & Range("D" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox2.Value
Range("E" & Range("E" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox1.Value
Range("G" & Range("G" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox3.Value
Range("I" & Range("I" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox5.Value
Range("J" & Range("J" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox4.Value
Range("K" & Range("K" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox6.Value
Range("H" & Range("H" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox2.Value
Range("L" & Range("L" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox3.Value
Range("M" & Range("M" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox7.Value
Cela fonctionne parfaitement...
Mais lorsque je veux faire le tri entre mes differentes combobox dans mon premier userform un probléme survient ...
Le bug survient à la ligne "For x=1 To UBound(Plage,1) "
Je ne vois pas d'ou vient le probléme ..
Cordialement