J'ai besoin d'un peu d'aide pour faire évoluer un code que j'ai recopié sur
ce forum.
Sur un userform; par le biais d'une combobox (cboclt), l'utilisateur choisit
un jour de semaine : la liste des restaurants ouverts ce jour là s'affiche
dans une listbox (lstclt) avec les adresses. Par contre, je voudrais pouvoir
rajouter un critère de sélection afin d'avoir par exemple tous les restos
ouverts le lundi pour le département 95. J'ai donc rajouté une 2° combobox
(CBOdépart) avec la liste des départements de l'Ile de France. Par contre,
je ne sais pas commant lui dire d'afficher dans ma liste box la liste
résultante de ces 2 critères. Ci-joint mon code avec 1 critère:
PRIVATE SUB cboclt_change()
if cboclt="LUNDI" then
lstclt.clear
sheets("restaurants").select
range("F2").select
Do while Activecell.value<>""""
if activecell.value=cboclt.value then
lstclt.additem
ndx=lstclt.listcount-1
lstclt.list(ndx,0)=activecell.offset(0,-5).value
lstclt.list(ndx,1)=activecell.offset(0,-4).value
end if
activecell.offset(1,0).select
loop
and if
en vous remerciant d'avance pour votre aide.
Pauline
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
pauline avait soumis l'idée :
Bonjour,
J'ai besoin d'un peu d'aide pour faire évoluer un code que j'ai recopié sur ce forum.
Sur un userform; par le biais d'une combobox (cboclt), l'utilisateur choisit un jour de semaine : la liste des restaurants ouverts ce jour là s'affiche dans une listbox (lstclt) avec les adresses. Par contre, je voudrais pouvoir rajouter un critère de sélection afin d'avoir par exemple tous les restos ouverts le lundi pour le département 95. J'ai donc rajouté une 2° combobox (CBOdépart) avec la liste des départements de l'Ile de France. Par contre, je ne sais pas commant lui dire d'afficher dans ma liste box la liste résultante de ces 2 critères. Ci-joint mon code avec 1 critère:
PRIVATE SUB cboclt_change() if cboclt="LUNDI" then lstclt.clear sheets("restaurants").select range("F2").select Do while Activecell.value<>""""
if activecell.valueËoclt.value and activecell.offset(0,5) = CBOdepart then 'Adapte le 5 en fonction de la colonne où se trouve le departement
lstclt.additem ndx=lstclt.listcount-1 lstclt.list(ndx,0)¬tivecell.offset(0,-5).value lstclt.list(ndx,1)¬tivecell.offset(0,-4).value end if activecell.offset(1,0).select loop and if
en vous remerciant d'avance pour votre aide. Pauline
-- JLuc
pauline avait soumis l'idée :
Bonjour,
J'ai besoin d'un peu d'aide pour faire évoluer un code que j'ai recopié sur
ce forum.
Sur un userform; par le biais d'une combobox (cboclt), l'utilisateur choisit
un jour de semaine : la liste des restaurants ouverts ce jour là s'affiche
dans une listbox (lstclt) avec les adresses. Par contre, je voudrais pouvoir
rajouter un critère de sélection afin d'avoir par exemple tous les restos
ouverts le lundi pour le département 95. J'ai donc rajouté une 2° combobox
(CBOdépart) avec la liste des départements de l'Ile de France. Par contre, je
ne sais pas commant lui dire d'afficher dans ma liste box la liste résultante
de ces 2 critères. Ci-joint mon code avec 1 critère:
PRIVATE SUB cboclt_change()
if cboclt="LUNDI" then
lstclt.clear
sheets("restaurants").select
range("F2").select
Do while Activecell.value<>""""
if activecell.valueËoclt.value and activecell.offset(0,5) = CBOdepart
then
'Adapte le 5 en fonction de la colonne où se trouve le departement
lstclt.additem
ndx=lstclt.listcount-1
lstclt.list(ndx,0)¬tivecell.offset(0,-5).value
lstclt.list(ndx,1)¬tivecell.offset(0,-4).value
end if
activecell.offset(1,0).select
loop
and if
en vous remerciant d'avance pour votre aide.
Pauline
J'ai besoin d'un peu d'aide pour faire évoluer un code que j'ai recopié sur ce forum.
Sur un userform; par le biais d'une combobox (cboclt), l'utilisateur choisit un jour de semaine : la liste des restaurants ouverts ce jour là s'affiche dans une listbox (lstclt) avec les adresses. Par contre, je voudrais pouvoir rajouter un critère de sélection afin d'avoir par exemple tous les restos ouverts le lundi pour le département 95. J'ai donc rajouté une 2° combobox (CBOdépart) avec la liste des départements de l'Ile de France. Par contre, je ne sais pas commant lui dire d'afficher dans ma liste box la liste résultante de ces 2 critères. Ci-joint mon code avec 1 critère:
PRIVATE SUB cboclt_change() if cboclt="LUNDI" then lstclt.clear sheets("restaurants").select range("F2").select Do while Activecell.value<>""""
if activecell.valueËoclt.value and activecell.offset(0,5) = CBOdepart then 'Adapte le 5 en fonction de la colonne où se trouve le departement
lstclt.additem ndx=lstclt.listcount-1 lstclt.list(ndx,0)¬tivecell.offset(0,-5).value lstclt.list(ndx,1)¬tivecell.offset(0,-4).value end if activecell.offset(1,0).select loop and if
en vous remerciant d'avance pour votre aide. Pauline
-- JLuc
pauline
Bonjour,
Merci pour ta réponse.
Par contre, cela ne fonctionne pas chez moi. Jai rajouté if activecell.valueËoclt.value and activecell.offset(0,-3) = CBOdepart
then.... Ma colonne des départements se trouve en C donc, j'ai mis -3.
Pauline
"JLuc" a écrit dans le message de news:
pauline avait soumis l'idée :
Bonjour,
J'ai besoin d'un peu d'aide pour faire évoluer un code que j'ai recopié sur ce forum.
Sur un userform; par le biais d'une combobox (cboclt), l'utilisateur choisit un jour de semaine : la liste des restaurants ouverts ce jour là s'affiche dans une listbox (lstclt) avec les adresses. Par contre, je voudrais pouvoir rajouter un critère de sélection afin d'avoir par exemple tous les restos ouverts le lundi pour le département 95. J'ai donc rajouté une 2° combobox (CBOdépart) avec la liste des départements de l'Ile de France. Par contre, je ne sais pas commant lui dire d'afficher dans ma liste box la liste résultante de ces 2 critères. Ci-joint mon code avec 1 critère:
PRIVATE SUB cboclt_change() if cboclt="LUNDI" then lstclt.clear sheets("restaurants").select range("F2").select Do while Activecell.value<>""""
if activecell.valueËoclt.value and activecell.offset(0,5) = CBOdepart then 'Adapte le 5 en fonction de la colonne où se trouve le departement
lstclt.additem ndx=lstclt.listcount-1 lstclt.list(ndx,0)¬tivecell.offset(0,-5).value lstclt.list(ndx,1)¬tivecell.offset(0,-4).value end if activecell.offset(1,0).select loop and if
en vous remerciant d'avance pour votre aide. Pauline
-- JLuc
Bonjour,
Merci pour ta réponse.
Par contre, cela ne fonctionne pas chez moi.
Jai rajouté if activecell.valueËoclt.value and activecell.offset(0,-3) =
CBOdepart
then....
Ma colonne des départements se trouve en C donc, j'ai mis -3.
Pauline
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.0a647d6208107772.42854@free.fr.ns...
pauline avait soumis l'idée :
Bonjour,
J'ai besoin d'un peu d'aide pour faire évoluer un code que j'ai recopié
sur ce forum.
Sur un userform; par le biais d'une combobox (cboclt), l'utilisateur
choisit un jour de semaine : la liste des restaurants ouverts ce jour là
s'affiche dans une listbox (lstclt) avec les adresses. Par contre, je
voudrais pouvoir rajouter un critère de sélection afin d'avoir par
exemple tous les restos ouverts le lundi pour le département 95. J'ai
donc rajouté une 2° combobox (CBOdépart) avec la liste des départements
de l'Ile de France. Par contre, je ne sais pas commant lui dire
d'afficher dans ma liste box la liste résultante de ces 2 critères.
Ci-joint mon code avec 1 critère:
PRIVATE SUB cboclt_change()
if cboclt="LUNDI" then
lstclt.clear
sheets("restaurants").select
range("F2").select
Do while Activecell.value<>""""
if activecell.valueËoclt.value and activecell.offset(0,5) = CBOdepart
then
'Adapte le 5 en fonction de la colonne où se trouve le departement
lstclt.additem
ndx=lstclt.listcount-1
lstclt.list(ndx,0)¬tivecell.offset(0,-5).value
lstclt.list(ndx,1)¬tivecell.offset(0,-4).value
end if
activecell.offset(1,0).select
loop
and if
en vous remerciant d'avance pour votre aide.
Pauline
Par contre, cela ne fonctionne pas chez moi. Jai rajouté if activecell.valueËoclt.value and activecell.offset(0,-3) = CBOdepart
then.... Ma colonne des départements se trouve en C donc, j'ai mis -3.
Pauline
"JLuc" a écrit dans le message de news:
pauline avait soumis l'idée :
Bonjour,
J'ai besoin d'un peu d'aide pour faire évoluer un code que j'ai recopié sur ce forum.
Sur un userform; par le biais d'une combobox (cboclt), l'utilisateur choisit un jour de semaine : la liste des restaurants ouverts ce jour là s'affiche dans une listbox (lstclt) avec les adresses. Par contre, je voudrais pouvoir rajouter un critère de sélection afin d'avoir par exemple tous les restos ouverts le lundi pour le département 95. J'ai donc rajouté une 2° combobox (CBOdépart) avec la liste des départements de l'Ile de France. Par contre, je ne sais pas commant lui dire d'afficher dans ma liste box la liste résultante de ces 2 critères. Ci-joint mon code avec 1 critère:
PRIVATE SUB cboclt_change() if cboclt="LUNDI" then lstclt.clear sheets("restaurants").select range("F2").select Do while Activecell.value<>""""
if activecell.valueËoclt.value and activecell.offset(0,5) = CBOdepart then 'Adapte le 5 en fonction de la colonne où se trouve le departement
lstclt.additem ndx=lstclt.listcount-1 lstclt.list(ndx,0)¬tivecell.offset(0,-5).value lstclt.list(ndx,1)¬tivecell.offset(0,-4).value end if activecell.offset(1,0).select loop and if
en vous remerciant d'avance pour votre aide. Pauline
-- JLuc
JLuc
pauline avait soumis l'idée :
Bonjour,
Merci pour ta réponse.
Par contre, cela ne fonctionne pas chez moi. Jai rajouté if activecell.valueËoclt.value and activecell.offset(0,-3) = CBOdepart
then.... Ma colonne des départements se trouve en C donc, j'ai mis -3.
Pauline Tu as essayer de mettre ".Value" ?
If ActiveCell.Value = cboclt.Value And _ ActiveCell.Offset(0,-3).Value = CBOdepart.Value Then
Dis nous !
-- JLuc
pauline avait soumis l'idée :
Bonjour,
Merci pour ta réponse.
Par contre, cela ne fonctionne pas chez moi.
Jai rajouté if activecell.valueËoclt.value and activecell.offset(0,-3) =
CBOdepart
then....
Ma colonne des départements se trouve en C donc, j'ai mis -3.
Pauline
Tu as essayer de mettre ".Value" ?
If ActiveCell.Value = cboclt.Value And _
ActiveCell.Offset(0,-3).Value = CBOdepart.Value Then
