[VBA/Excel 2007]
Résolu
Pyvoudelet
Messages postés
167
Date d'inscription
Statut
Membre
Dernière intervention
-
Pyvoudelet Messages postés 167 Date d'inscription Statut Membre Dernière intervention - 11 févr. 2010 à 16:04
Pyvoudelet Messages postés 167 Date d'inscription Statut Membre Dernière intervention - 11 févr. 2010 à 16:04
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 et 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é !