[VBA/Excel 2007]
Résolu
Pyvoudelet
Messages postés
169
Date d'inscription
Statut
Membre
Dernière intervention
-
Pyvoudelet Messages postés 169 Date d'inscription Statut Membre Dernière intervention -
Pyvoudelet Messages postés 169 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans un Userform, j ai créer un liste déroulante ("ListBox1") de composants. A la selection de un de ces composants, je voudrais qu'il s'affiche dans une ComboBox (Combobox1) les différentes possibilités de composition. (différentes pour chaque composant!).
Je pensais utiliser select case et faire :
Select Case NomComposant
Case NomComposant = "xxxxxxx"
With ListBox1
.AddItem "Baseline"
.AddItem "Scénario 1"
End With
Case NomComposant = "yyyyyyyy"
With ListBox1
.AddItem "Baseline"
.AddItem "Scénario 2"
.AddItem "Scénario 3"
.AddItem "Scénario 4"
.AddItem "Scénario 5"
.AddItem "Scénario 6"
End With
End Select
mais ca ne fonctionne pas. Quelqu un voie l'erreur???
MErci!
Dans un Userform, j ai créer un liste déroulante ("ListBox1") de composants. A la selection de un de ces composants, je voudrais qu'il s'affiche dans une ComboBox (Combobox1) les différentes possibilités de composition. (différentes pour chaque composant!).
Je pensais utiliser select case et faire :
Select Case NomComposant
Case NomComposant = "xxxxxxx"
With ListBox1
.AddItem "Baseline"
.AddItem "Scénario 1"
End With
Case NomComposant = "yyyyyyyy"
With ListBox1
.AddItem "Baseline"
.AddItem "Scénario 2"
.AddItem "Scénario 3"
.AddItem "Scénario 4"
.AddItem "Scénario 5"
.AddItem "Scénario 6"
End With
End Select
mais ca ne fonctionne pas. Quelqu un voie l'erreur???
MErci!
A voir également:
- [VBA/Excel 2007]
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
3 réponses
en fait excusez moi je me suis trompé dans mes appellations : ma l;iste de composants est dans ma Combobox1 , et je voudrais que s affiche les différents scénarios dans ma Listbox1 !!
Dsl
Dsl
VOila ma procedure au complet :
Private Sub ComboBox1_Change()
Dim NomComposant As String
Dim RM_Num As Variant
NomComposant = ComboBox1.Value
' Rechercher dans une plage et afficher le numero du composant
RM_Num = WorksheetFunction.VLookup(NomComposant, Sheets("Divers").Range("ListeComposant"), 2, False)
Label3.Caption = RM_Num
Select Case NomComposant
Case NomComposant = "xxxxxxxxxxt"
With ListBox1
.AddItem "Baseline"
.AddItem "Scénario 1"
End With
Case NomComposant = "yyyyyy"
With ListBox1
.AddItem "Baseline"
.AddItem "Scénario 2"
.AddItem "Scénario 3"
.AddItem "Scénario 4"
.AddItem "Scénario 5"
.AddItem "Scénario 6"
End With
End Select
End Sub
apparament il n enregistre rien sous NomComposant ( j'ai vérifié avec une msgbox)
Private Sub ComboBox1_Change()
Dim NomComposant As String
Dim RM_Num As Variant
NomComposant = ComboBox1.Value
' Rechercher dans une plage et afficher le numero du composant
RM_Num = WorksheetFunction.VLookup(NomComposant, Sheets("Divers").Range("ListeComposant"), 2, False)
Label3.Caption = RM_Num
Select Case NomComposant
Case NomComposant = "xxxxxxxxxxt"
With ListBox1
.AddItem "Baseline"
.AddItem "Scénario 1"
End With
Case NomComposant = "yyyyyy"
With ListBox1
.AddItem "Baseline"
.AddItem "Scénario 2"
.AddItem "Scénario 3"
.AddItem "Scénario 4"
.AddItem "Scénario 5"
.AddItem "Scénario 6"
End With
End Select
End Sub
apparament il n enregistre rien sous NomComposant ( j'ai vérifié avec une msgbox)
C'est en forgean qu on devient forgeron a dit un jour un grand homme!!! Et ben moi c est en cherchant que je trouve!! J ai repondu a mon probleme! l ,erreur vient quand j ennonce chaque Case ..... Au lieu de mettre :
Select Case Nomcomposant
Case NomComposant = "xcxxxx"
Il faut mettre
Select Case Nomcomposant
Case Is ="xxxx" car la fonction référence est deja mentioné !
Select Case Nomcomposant
Case NomComposant = "xcxxxx"
Il faut mettre
Select Case Nomcomposant
Case Is ="xxxx" car la fonction référence est deja mentioné !