select case avec textbox
select case avec textbox - VB/VBA/VBS - Programmation
Marsh Posté le 11-05-2006 à 16:07:33
arretez de m'agresser je suis debutant en vba, je viens chercher de l'aide et non de l'agressivité
Sujets relatifs:
- [CSS] élément select grisé car "disabled"
- probleme : Select d'une requette MYSQL
- affichage d'une page dans case de tableau
- update (plutot ajout) dans table via un select
- Boucle pour tester différentes textbox
- Texte d'un select...
- SELECT
- encore un pb de select
- Requête : SELECT * FROM = ok , mais SELECT id, ... FROM = ko
- balise <SELECT>
Marsh Posté le 11-05-2006 à 16:03:05
Select Case ListEchelle.Value
Case "semaine"
GraphPPM.SetSourceData _
Source:=Sheets("enr_incidents" ).Range("PPM_Semaine" ), _
PlotBy:=xlColumn
MsgBox "Graphique sur la semaine"
Case "mois"
GraphPPM.SetSourceData _
Source:=Sheets("enr_incidents" ).Range("PPM_Mois" ), _
PlotBy:=xlColumn
MsgBox "Graphique sur le mois"
Case "3 mois"
GraphPPM.SetSourceData _
Source:=Sheets("enr_incidents" ).Range("PPM_3Mois" ), _
PlotBy:=xlColumn
Case "6 mois"
GraphPPM.SetSourceData _
Source:=Sheets("enr_incidents" ).Range("PPM_6Mois" ), _
PlotBy:=xlColumn
Case "Aucune"
GraphPPM.SetSourceData _
Source:=Sheets("enr_incidents" ).Range("ppm" ), _
PlotBy:=xlColumn
End Select
j'ai fais donc un case select selon la valeur d'une listbox, mais ca doti pas marcher car je n'ai aucun msg des msgbox et ca fait planter ma generation de graphique apres
j'ai pas trouvé d'exemple sur le net avec une listbox
plz help !!!