combobox et listbox avec variable

Pierrot93

XLDnaute Barbatruc

• 16 Octobre 2013

• #2

Re : combobox et listbox avec variable

Bonjour,

regarde ce lien sur l'alimentation des combo et listbox :
https://www.excel-downloads.com/threads/vba-alimentation-dune-combobox-ou-dune-listbox.81037/

perso, utiliserais plutôt la propriété "list" que "rowsource"...

bonne journée
@+

 

Vote positif 0 Vote négatif

C

chris541

Guest

• 16 Octobre 2013

• #3

Re : combobox et listbox avec variable

Bjr Pierrot
merci pour le lien
Je n'ai pas trouvé pour la variable en fonction de la colonne du mois
Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Octobre 2013

• #4

Re : combobox et listbox avec variable

Re,

vu ton fichier, peut être multiplié par 2 la valeur retournée par la fonction "month" de "date", te donnera le numéro de la colonne que tu pourras utiliser dans un "cells", exemple à adapter :

Code:

Dim m As Byte
m = Month(Date)
ComboBox1.List = Cells(4, m * 2).Resize(5).Value

 

Vote positif 0 Vote négatif

C

chris541

Guest

• 16 Octobre 2013

• #5

Re : combobox et listbox avec variable

Merci pour ton aide....
Mais je ne sais pas comment écrire la commande en entier...
Y a t'il d'autres lignes à ajoutter ?
merci d'avance pour ton aide précieuse....
chris

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Octobre 2013

• #6

Re : combobox et listbox avec variable

Re,

en l'état tu as le code complet, en supposant que la colonne mois est bien déterminée par le mois en cours....

 

Vote positif 0 Vote négatif

C

chris541

Guest

• 16 Octobre 2013

• #7

Re : combobox et listbox avec variable

merci pour ta réponse
ok pour la combobox1..., mais quand j'utilise l'userform et que je sélectionne par ex : CHQ , je n'ai pas d'item dans la List box...
comment puis je faire pour récupérer le montant ,le format de cellule et le lieu (de la colonne correspondante)?
J'espère ne pas être trop imprécis...
Chris

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Octobre 2013

• #8

Re : combobox et listbox avec variable

Re,

essaye ceci, à placer dans le module de l'usf :

Code:

Option Explicit
Private Sub UserForm_Initialize()
ComboBox1.List = Range("A1:A" & Range("A65536").End(xlUp).Row).Value
End Sub
Private Sub ComboBox1_Click()
Dim i As Integer, m As Byte
If ComboBox1.ListIndex = -1 Then Exit Sub
m = Month(Date)
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

 

Vote positif 0 Vote négatif

C

chris541

Guest

• 16 Octobre 2013

• #9

Re : combobox et listbox avec variable

Génial !Merci mille fois!
A bientôt sur le forum.....
chris

 

Vote positif 0 Vote négatif

C

chris541

Guest

• 16 Octobre 2013

• #10

Re : combobox et listbox avec variable

Merci à pierrot pour la solution.......cela ne fonctionne plus dès que je change de colonne des mois...
merci d'avance ....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Octobre 2013

• #11

Re : combobox et listbox avec variable

Re,

cela ne fonctionne plus dès que je change de colonne des mois...
merci d'avance ....

Cliquez pour agrandir...

comme précisé post #6, le numéro de la colonne est déterminée par le mois en cours.... si autre critère il faut changer l'algorithme....

 

Vote positif 0 Vote négatif

C

chris541

Guest

• 16 Octobre 2013

• #12

Re : combobox et listbox avec variable

Est ce possible de ne pas tenir compte du mois en cours mais de boucler sur les valeurs (ligne 4 à 8 ) pour etre plus précis
dans le fichier je donne un exemple de janvier ce qui m'intéresse c'est de récupérer les valeurs des lignes au dessus de chaque case encadrée sans tenir compte du mois (ligne 4 à 8) en fonction de la colonne dans laquelle je double-clique..
J'éspère ne pas être trop vague...
merci d'avance !!

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Octobre 2013

• #13

Re : combobox et listbox avec variable

Re,

Si la colonne doit être déterminée par la colonne de la cellule active, remplace dans le code le "m" par "ActiveCell.Column"

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Octobre 2013

• #14

Re : combobox et listbox avec variable

Re,

on pourrais le faire ainsi :

Code:

Option Explicit
Private Sub UserForm_Initialize()
ComboBox1.List = Range("A1:A" & Range("A65536").End(xlUp).Row).Value
End Sub
Private Sub ComboBox1_Click()
Dim i As Integer, m As Byte
If ComboBox1.ListIndex = -1 Then Exit Sub
m = ActiveCell.Column
For i = 4 To 8
MsgBox Cells(i, m).Text
    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

 

Vote positif 0 Vote négatif

C

chris541

Guest

• 16 Octobre 2013

• #15

Re : combobox et listbox avec variable

Extra c au poil !....merci beaucoup
chris

 

Vote positif 0 Vote négatif