Listes deroulantes

[Seb]

Bonjour, je debute dans les macros, et je rencontre un probleme de programmation.
La premiere liste deroulante fonctionne bien, mais la seconde reste vide.Un probleme de declaration de variable je pense.
Le principe:
Si dans la premiere liste deroulante, la valeur 600 (A1:A100) est choisie , je voudrais que les valeurs de la deuxieme liste deroulante soient restreintes --> B1:B5
Mais si dans la premiere liste deroulante, la valeur 800 (A1:A100) est choisie , je voudrais que les valeurs de la deuxieme liste deroulante soient restreintes -->B6:B10

Merci d'avance

Seb


Private Sub UserForm_Activate()
Dim DerniereMarque As String
DerniereMarque = Range("A1").End(xlDown).Address
' Plage de données pour afficher dans liste déroulante
Marque.RowSource = "A1:" & DerniereMarque
' Afficher la première marque de la liste (0)
Marque.ListIndex = 0
End Sub

Private Sub Valider_Click()
ListeDeroulante.Hide
Index = Marque.ListIndex
Choixmarque = Marque.List(Index)
' Stockage du résultat dans la cellule D2
Range("F2").Value = Choixmarque
End Sub

Private Sub Annuler_Click()
ListeDeroulante.Hide
End Sub


Private Sub UserForm_Activate()
If Choixmarque = 600 Then
marque2.RowSource = "B1:B5"
End If

End Sub

Private Sub Valider_Click()
ListeDeroulante2.Hide
Index = marque2.ListIndex
Choixmarque = marque2.List(Index)
' Stockage du résultat dans la cellule D2
Range("G2").Value = Choixmarque
End Sub

Private Sub Annuler_Click()
ListeDeroulante2.Hide
End Sub

 

[Valérie]

Slt Seb et les Exceliens

J'ai testé et le pb vient du fait que tu testes Choixmarque qui n'est plus en mémoire (Hide) et donc à vide

il faut comme tu places ta valeur en F2 que tu testes F2 soit :

Select case Range("F2")

Case Is = 600
marque2.RowSource = "B1:B5"

Case Is = 800
marque2.RowSource = "B6:B10"

End Select

Tu peux en ajouter si tu as besoin

@+ Valérie

 

[Seb]

Merci bien Valérie , ca fonctionne.


@+


Seb