XL 2019 Affichage plusieurs colonne dans Listbox avec tri Combobox

herve62

XLDnaute Barbatruc

Supporter XLD

• 18 Octobre 2021

• #2

Bonsoir Jacquie
Il est tard , le vba m'a fatigué cet AM mais j'arrive encore à voir cela :

VB:

If choix = choix Then
        Me.ListBox1.List() = Mondico1.keys
    Else:
        Me.ListBox1.List() = Mondico2.keys
    End If

Y a pas un HIC ?? pour moi un chat est un chat !!!!! donc pas besoin de IF non ???
bonne nuit ....à méditer

 

Vote positif 0 Vote négatif

J

Jacquie

XLDnaute Nouveau

• 19 Octobre 2021

• #3

Bonjour herve62,

merci pour votre retour.
C'est possible qu'il n'y est pas besoin de If mais vous m'avez déjà perdu
Le VBA m’intéresse énormément mais depuis le temps que je m'y intéresse, rentre péniblement.
J'arrive à "bricoler" un peu mais dès que ça devient un peu compliqué...

Pensez vous que ma demande est faisable?

Bonne journée!

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 19 Octobre 2021

• #4

Bonjour le forum
Bonjour Jacquie, bonjour Herve62

Ceci pour débuter (je ne me plongerai pas dans tes codes, trop pointus pour moi). J'ai initialisé ton USF pour que tes différentes colonnes soient représentées.

VB:

Private Sub UserForm_Initialize()
Dim i As Byte
Dim WS As Worksheet

Set WS = ThisWorkbook.Worksheets("Données")

For i = 0 To 60
With Me.ListBox1
.ColumnCount = 8
.ColumnWidths = "65;50;45;50;60;50"
.AddItem WS.Range("C" & i + 2)
.Column(1, i) = WS.Range("D" & i + 2)
.Column(2, i) = WS.Range("E" & i + 2)
.Column(3, i) = WS.Range("F" & i + 2)
.Column(4, i) = WS.Range("G" & i + 2)
.Column(5, i) = WS.Range("H" & i + 2)
End With
Next i
End Sub

Bonne continuation et bonne après-midi à toutes & à tous

@+ Eric c

 

Vote positif 0 Vote négatif

J

Jacquie

XLDnaute Nouveau

• 19 Octobre 2021

• #5

Bonjour Eric C,

merci je regarde ça ce soir.

Bon après midi.

 

Vote positif 0 Vote négatif

J

Jacquie

XLDnaute Nouveau

• 19 Octobre 2021

• #6

Le code fonctionne quand je clic sur mon bouton définir mais ne fonctionne plus dès que je choisis une référence (une des 3 Optionbutton : "vis", "Écrou", "Rondelle".

 

Vote positif 0 Vote négatif

J

Jacquie

XLDnaute Nouveau

• 20 Octobre 2021

• #7

Bonjour Herve62,

Ma demande semble compliquée à réaliser, est-ce que vous pensez pouvoir trouver une solution?

Bon après midi!

Jacquie.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Octobre 2021

• #8

Bonjour Jacquie
Bonjour le Fil
@Eric
Pourquoi dans la procédure ci dessus y'a t'il 8 colonnes pour une alimentation sur 6 colonnes
Depuis mon téléphone
Bonne journée
Jean marie

 

Vote positif 0 Vote négatif

J

Jacquie

XLDnaute Nouveau

• 20 Octobre 2021

• #9

Bonjour ChTi160,

Il y a en effet 8 colonnes, les 2 premières servent de filtre pour afficher dans ma Listbox1 les 6 dernières colonnes de mon tableau de donnée.
Je cherche ensuite via une Combobox à trier la colonne choisie.
Je ne sais pas si c'est faisable, mais s'il y a un moyen différent pour y arriver pourquoi pas !
Merci

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Octobre 2021

• #10

Rien compris ???? Lol
Mais l'important c'est que toi tu t'y retrouve ....
Bonne continuation
Jean marie

 

Dernière édition: 20 Octobre 2021

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Octobre 2021

• #11

Re
J'ai fait ceux-ci à voir si ça peut aider Lol
Jean marie

 

Pièces jointes

• Essai liste avec tri Chti160.xlsm

  69.9 KB · Affichages: 34

Vote positif 0 Vote négatif

J

Jacquie

XLDnaute Nouveau

• 21 Octobre 2021

• #12

Bonjour ChTi160,

merci beaucoup pour votre proposition qui pourra sûrement me servir pour autre chose mais malheureusement ce n'est pas ce que je cherche.

merci encore.
Bonne journée.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Octobre 2021

• #13

Bonjour Jacquie
il faudrait être plus précis .
Mets des explications avec exemples.
Bonne journée
Jean marie

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Octobre 2021

• #14

re
Bonjour
et jamais on pense a travailler avec un tableau structuré a fin de ne plus se torturer avec une recherche de colonne hein !!?????
demain tu rajoute des lignes (voir une/des colonnes) tu fait quioi ? tu rechange tout tes names ??!!

 

Dernière édition: 21 Octobre 2021

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 21 Octobre 2021

• #15

Bonjour mon Patrick
je vois que tu es en forme ! Lol
J'y pense souvent, mais peut-il les utiliser ? Lol
Bonne journée
Jean marie

 

Vote positif 0 Vote négatif