combobox et listbox avec variable

[chris541]

Bonjour à toutes et à tous
j'ai préparé un userform et je souhaite récupérer les items correspondants au choix de la combobox1
tout est prêt dans le fichier joint
Merci pour votre aide

 

[chris541]

Re : combobox et listbox avec variable

Comment faire pour reporter la date ( ligne2) dans la tex box de l'userform et ce pour chaque changement de colonne..
merci

 

[Pierrot93]

Re : combobox et listbox avec variable

Re,

essaye avec ceci :

 Private Sub UserForm_Initialize()
 TextBox1 = Cells(2, ActiveCell.Column)
 ComboBox1.List = Range("A1:A" & Range("A65536").End(xlUp).Row).Value
 End Sub

 

[chris541]

Re : combobox et listbox avec variable

Hey super merci, comment faire pour changer le format de la date , je souhaiterais avoir juste le mois et l'année...
merci d'avance!

 

[Pierrot93]

Re : combobox et listbox avec variable

Re,

peut être ceci :

TextBox1 = Cells(2, ActiveCell.Column).Text

pour format de la cellule d'origine...

 

[chris541]

Re : combobox et listbox avec variable

Super c exactement ce qu'il me fallait,
merci
sans abuser de ton savoir faire je souhaite terminer cet userform en faisant une recherche par mois
dans le fichier ci joint ...en te remerciant bcp
chris

 

[Pierrot93]

Re : combobox et listbox avec variable

Re,

essaye ceci :

Option Explicit
 Private Sub UserForm_Initialize()
 Dim i As Long
 For i = 2 To Range("IV2").End(xlToLeft).Column Step 2
    ComboBox2.AddItem Cells(2, i).Text
 Next i
 ComboBox1.List = Range("A1:A" & Range("A65536").End(xlUp).Row).Value
 TextBox1 = Cells(2, ActiveCell.Column).Text
 End Sub
 Private Sub ComboBox2_Click()
 Dim i As Integer, m As Byte
 If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then Exit Sub
 m = ComboBox2.ListIndex + 2
 For i = 4 To 8
     If Cells(i, m).Text Like "*" & ComboBox1.Value & "*" Then _
         ListBox1.AddItem Cells(i, m).Text & " " & Cells(i, m).Offset(0, 1)
 Next i
 End Sub

 

[chris541]

Re : combobox et listbox avec variable

super! merci , j'ai testé :
je dois faire le choix en combobox1.... , est il possible d'inverser? c a dire de sélectionner le mois en combobox2 puis après faire le tri à partir de la combobox1?
merci d'avance
chris

 

[chris541]

Re : combobox et listbox avec variable

J'ai constaté également que le tri se faisait mais un mois sur 2 ( à partir de la combo2)

 

[Pierrot93]

Re : combobox et listbox avec variable

Re,

Pouvez vous me confirmer qu'une variable déclarée en Public garde sa valeur tant que le classeur est ouvert ?

bah..; pris dans l'ordre des colonnes.... B, D F etc...

 

[Pierrot93]

Re : combobox et listbox avec variable

Re,

je dois faire le choix en combobox1.... , est il possible d'inverser? c a dire de sélectionner le mois en combobox2 puis après faire le tri à partir de la combobox1?

bah... place le code dans l'événement "click" du combo en question....

 

[chris541]

Re : combobox et listbox avec variable

Merci! mais en testant le fichier je n'ai qu'un mois sur 2 (ex :CB ca fonctionne en octobre mais plus en nov ...)

 

[chris541]

Re : combobox et listbox avec variable

tjs un mois sur 2 même en inversant l'évènement

 

[Pierrot93]

Re : combobox et listbox avec variable

Re,

Merci! mais en testant le fichier je n'ai qu'un mois sur 2 (ex :CB ca fonctionne en octobre mais plus en nov ...)

modifie comme suit :

Option Explicit
 Private Sub UserForm_Initialize()
 Dim i As Long
 For i = 2 To Range("IV2").End(xlToLeft).Column Step 2
    ComboBox2.AddItem Cells(2, i).Text
 Next i
 ComboBox1.List = Range("A1:A" & Range("A65536").End(xlUp).Row).Value
 TextBox1 = Cells(2, ActiveCell.Column).Text
 End Sub
 Private Sub ComboBox2_Click()
 Dim i As Integer, m As Byte
 If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then Exit Sub
 m = ComboBox2.ListIndex * 2 + 2
 ListBox1.Clear
 For i = 4 To 8
     If Cells(i, m).Text Like "*" & ComboBox1.Value & "*" Then _
         ListBox1.AddItem Cells(i, m).Text & " " & Cells(i, m).Offset(0, 1)
 Next i
 End Sub

 

[chris541]

Re : combobox et listbox avec variable

Excellent merci pour ton aide !
cordialement !chris

 

[chris541]

Re : combobox et listbox avec variable

juste une petite question:
Est il possible de calculer la somme du tri (obtenue partir du résultat en listbox1 )?
j'ai préparé un textbox pour afficher la somme obtenue...
Merci bcp