Projet excel VBA
Résolu
clovis7
Messages postés
20
Date d'inscription
vendredi 17 mars 2006
Statut
Membre
Dernière intervention
21 mai 2008
-
22 mars 2006 à 13:57
ideschamps Messages postés 20 Date d'inscription mercredi 3 septembre 2003 Statut Membre Dernière intervention 4 avril 2007 - 24 mars 2006 à 09:05
ideschamps Messages postés 20 Date d'inscription mercredi 3 septembre 2003 Statut Membre Dernière intervention 4 avril 2007 - 24 mars 2006 à 09:05
5 réponses
ideschamps
Messages postés
20
Date d'inscription
mercredi 3 septembre 2003
Statut
Membre
Dernière intervention
4 avril 2007
22 mars 2006 à 14:13
22 mars 2006 à 14:13
Bonjour,
Si tu codes en Visual Basic sous Excel, tu peux intercepter l'évenement Change ou LostFocus sur Atout1 et dans cette fonction tu teste l'élément sélectionné :
if Atout1.Text="Prix" then
tu ajoutes alors les élements autorisés
Atout2.AddItem "multimédia"
Atout2.AddItem "taille"
end if
En ce qui concerne la zone 2, au début tu la met invisible.
Ensuite, dans la même fonction, tu peux la rendre visible
et si tu veux à nouveau la rendre invisble si Atout1 est vide, tu peux tester si un élément est sélectionné :
if Atout1.Text<>"" then
zone2.Visible=true
else
zone2.Visible=false
end if
Pour ton dernier point,
il faut que effecue une recherche dans tes données et lorsque tu as trouvé un élément correspondant, tu peux soit l'afficher dans un MsgBox soit faire une boîte de dialogue avec des renseignements supplémentaires.
En espérant que ça t'aide...
Isa
Si tu codes en Visual Basic sous Excel, tu peux intercepter l'évenement Change ou LostFocus sur Atout1 et dans cette fonction tu teste l'élément sélectionné :
if Atout1.Text="Prix" then
tu ajoutes alors les élements autorisés
Atout2.AddItem "multimédia"
Atout2.AddItem "taille"
end if
En ce qui concerne la zone 2, au début tu la met invisible.
Ensuite, dans la même fonction, tu peux la rendre visible
et si tu veux à nouveau la rendre invisble si Atout1 est vide, tu peux tester si un élément est sélectionné :
if Atout1.Text<>"" then
zone2.Visible=true
else
zone2.Visible=false
end if
Pour ton dernier point,
il faut que effecue une recherche dans tes données et lorsque tu as trouvé un élément correspondant, tu peux soit l'afficher dans un MsgBox soit faire une boîte de dialogue avec des renseignements supplémentaires.
En espérant que ça t'aide...
Isa
fred.toto
Messages postés
73
Date d'inscription
mardi 10 avril 2001
Statut
Membre
Dernière intervention
4 mars 2009
22 mars 2006 à 14:08
22 mars 2006 à 14:08
On ne voit pas les images
clovis7
Messages postés
20
Date d'inscription
vendredi 17 mars 2006
Statut
Membre
Dernière intervention
21 mai 2008
22 mars 2006 à 14:52
22 mars 2006 à 14:52
Merci de vos réponses aussi rapide!
Je testerai ce que tu m'as dit Isa dès que j'ai une minute (là je file en cours).
Voila les images : (j'espère que ce coup-ci on les voit!)
"Exemple en image:"
"2- voilà ce que j'obtiens lorsque je lance :"
Je testerai ce que tu m'as dit Isa dès que j'ai une minute (là je file en cours).
Voila les images : (j'espère que ce coup-ci on les voit!)
"Exemple en image:"
"2- voilà ce que j'obtiens lorsque je lance :"
clovis7
Messages postés
20
Date d'inscription
vendredi 17 mars 2006
Statut
Membre
Dernière intervention
21 mai 2008
23 mars 2006 à 00:39
23 mars 2006 à 00:39
Merci Isa.
Alors j'ai réussi à faire apparaitre la zone 2 comme je le voulais. Et pour les menues déroulants de la zone 1 c'est bon aussi.
Par contre lorque je fais :
Atout1.Text="Prix" then
Atout2.AddItem "multimédia"
Atout2.AddItem "taille"
...ca marche si je selectionne un seul atout 1, mais si jamais je
reviens sur ce choix alors ça ne marche plus. Si, par exemple, je
choisi "prix" puis "taille" en atout 1, j'aurais en atout 2 le choix
entre "multimédia" (2fois), "taille" et "prix"... Ca me semble normal
d'ailleurs vu que le fonction est AddItem. Peut-on remédier à ce
probleme ?
Pour mon 3ème point, je n'ai pas encore assez réfléchi... j'ai préféré
vous posez la question si jamais il existait des solutions simples et
évidentes... parce que comme vous avez du le remarquer, je suis un
total newbi !
Alors j'ai réussi à faire apparaitre la zone 2 comme je le voulais. Et pour les menues déroulants de la zone 1 c'est bon aussi.
Par contre lorque je fais :
Atout1.Text="Prix" then
Atout2.AddItem "multimédia"
Atout2.AddItem "taille"
...ca marche si je selectionne un seul atout 1, mais si jamais je
reviens sur ce choix alors ça ne marche plus. Si, par exemple, je
choisi "prix" puis "taille" en atout 1, j'aurais en atout 2 le choix
entre "multimédia" (2fois), "taille" et "prix"... Ca me semble normal
d'ailleurs vu que le fonction est AddItem. Peut-on remédier à ce
probleme ?
Pour mon 3ème point, je n'ai pas encore assez réfléchi... j'ai préféré
vous posez la question si jamais il existait des solutions simples et
évidentes... parce que comme vous avez du le remarquer, je suis un
total newbi !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ideschamps
Messages postés
20
Date d'inscription
mercredi 3 septembre 2003
Statut
Membre
Dernière intervention
4 avril 2007
24 mars 2006 à 09:05
24 mars 2006 à 09:05
Bonjour,
Ce qu'il faut faire, c'est à chaque fois avant de faire Atout2.AddItem, tu fais un Atout2.Clear (tu vides le contenu de ta liste).
Et lorsque tu changes d'éléments dans Atout1, tu initialises Atout2 en fonction de la sélection.
Isa
Ce qu'il faut faire, c'est à chaque fois avant de faire Atout2.AddItem, tu fais un Atout2.Clear (tu vides le contenu de ta liste).
Et lorsque tu changes d'éléments dans Atout1, tu initialises Atout2 en fonction de la sélection.
Isa