Discussion :

[sophinette3000]

Bonjour à tous,

J'ai créé un userform pour pouvoir modifier les liens hypertexte de boutons présent sur plusieurs feuilles, les liens hypertextes sont répertoriés dans une autre feuilles nommé "Listes".
J'aimerais pouvoir pré sélectionner la valeur de la première combo box en fonction du nom de la page active.

exemple.xlsm

Dans mon fichier exemple, cela voudrait dire que lorsque je suis sur la feuille appelé A, ma première combobox, préselectionnera la valeur A.
La subtilité est que mes combobox sont remplis par des listes déroulantes en cascade, il ne faudrait donc pas que la pré attribution de la valeur vienne chambouler tout ce qu'il y a derrière.

Je vous remercie d'avance pour le temps que vous prendrez à étudier mon problème

[EricDgn]

Bonjour,

Il suffit de compléter votre procédure d'initialisation (lignes 8 et 9):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
    'Définit la feuille contenant les données
    Set Ws = Worksheets("Listes")
    'Définit le nombre de lignes dans la colonne A
    NbLignes = Ws.Range("A1000").End(xlUp).Row
    'Remplissage du ComboBox1
    Alim_Combo 1
    Me.ComboBox1 = ActiveSheet.Name
    ComboBox1_Change
End Sub

Cordialement.

[sophinette3000]

C'est super merci beaucoup !
C'était pas si compliqué, je le saurai pour la prochaine fois

[sophinette3000]

j'ai une ultime question
Si je veux pré remplir la seconde combo box, où dois-je placer la commande ?
si je la place comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ComboBox1_Change()
    'Remplissage Combo2
    Alim_Combo 2, ComboBox1.Value
    Me.ComboBox2 = "Divers"
    ComboBox2_Change
 
End Sub

il n'y a la prise en compte de la combo box 2 lors de la sélection de la combo box 3, c'est comme si ça ne filtrait plus les valeurs en fonction de celle sélectionnée dans les combobox précédente...

[EricDgn]

Bonjour,

Pour préremplir les listes déroulantes en cascade:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub UserForm_Initialize()
    'Définit la feuille contenant les données
    Set Ws = Worksheets("Listes")
    'Définit le nombre de lignes dans la colonne A
    NbLignes = Ws.Range("A1000").End(xlUp).Row
    'Remplissage du ComboBox1
    Alim_Combo 1
    Me.ComboBox1 = ActiveSheet.Name
    ComboBox1_Change
    On Error Resume Next
    Me.ComboBox2.ListIndex = 0
End Sub
 
Private Sub ComboBox1_Change()
    'Remplissage Combo2
    Alim_Combo 2, ComboBox1.Value
    ComboBox2_Change
    On Error Resume Next
    Me.ComboBox2.ListIndex = 0
End Sub
 
Private Sub ComboBox2_Change()
    'Remplissage Combo3
    Alim_Combo 3, ComboBox2.Value
    On Error Resume Next
    Me.ComboBox3.ListIndex = 0
End Sub

Cordialement.

[sophinette3000]

Je te remercie pour ta réponse.
Le problème c'est que l'index de la valeur "Divers" que j'aimerais pré-sélectionner, est variable. Car il y a plusieurs divers, une dans chaque client A, B, C etc...
Serait-il possible qu'a la place du 0 de cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
On Error Resume Next
    Me.ComboBox2.ListIndex = 0

cela prenne la dernière valeur (une fois filtrer par la première combo box), car la sous catégorie "Divers" sera toujours placé en dernier avec la sélection de la première combobox.

deuxième question : quand le client et la sous catégorie "Divers" sont sélectionnés, la troisième comboBox affiche les boutons correspondants au catégorie Divers de TOUS les clients, comme si le premier filtre sur le client ne se faisait pas ....

As-tu une idée ?