Bug Userform dans remplissage combo box en cascade

Version imprimable

08/06/2022, 11h10
sophinette3000

6 pièce(s) jointe(s)

Bug Userform dans remplissage combo box en cascade

Bonjour à tous,

Pièce jointe 620453
J'ai créé un UserForm pour modifier des valeurs d'un tableau dans la feuille "Listes" de mon excel. Mon tableau est composé de 4 colonnes, le premier userform sert à modifier le lien hypertext stocké dans la colonne D et le second userform sert à changer le nom du bouton stocké dans la colonne C.
Lorsque j'utilise le second formulaire, "modifier nom bouton", je sélectionne le bouton que je veux sélectionner et c’est à ce moment qu’il y a un problème, cela m’affiche plusieurs noms de bouton alors que je n’en ai qu’un seul … Exemple par étape ci-dessous.

Au départ j'ai ça :
Pièce jointe 620447

je clique sur le bouton "modifier nom bouton" pour lancer le formulaire.
Je le remplis et je clique sur modifier
Pièce jointe 620449
Le nom du bouton est bien modifié.
Pièce jointe 620450

Cependant lorsque je relance le même formulaire comme si je voulais re modifier le bouton, j'obtiens ça :
Pièce jointe 620451

alors que je n'ai aucune correspondance dans ma feuille "Listes" :
Pièce jointe 620452

Je crois que "autre bouton" est l'ancien ancien nom du bouton, je n'arrive pas à comprendre d'où il sort ... Avez-vous une idée ?
Merci d'avance !
12/06/2022, 05h14
ARTURO83

Bonjour,

Citation:

Je crois que "autre bouton" est l'ancien ancien nom du bouton, je n'arrive pas à comprendre d'où il sort ... Avez-vous une idée ?

Oui, et le résultat obtenu est correct car, lorsque vous chargez la combox3, vous ne tenez compte que de la catégorie (avec "Divers" il y en a deux noms de boutons possibles), il faudrait aussi inclure dans le contrôle le nom du client, ce qui ramènerait plus qu'à un seul nom de bouton.

Cdlt

Hello,
comme l'indique ARTURO83 , la combobox 3 dépend des autres combobox , il faut donc faire un test sur une condition qui prend en compte les valeurs des deux autres combos. Voici un exemple de code pour faire ceci. Pour simplifier dans ce code il y a une procédure pour chaque changement de valeur de chaque combo.
A essayer :

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
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
    AlimComBo1
    Me.ComboBox1 = ActiveSheet.Name
    ComboBox1_Change   
End Sub
 
 
Private Sub ComboBox1_Change()    'Remplissage Combo2
    'Alim_Combo 2, ComboBox1.Value
    AlimCombo2
End Sub
 
 
 
 
Private Sub ComboBox2_Change()
    'Remplissage Combo3
    ' Alim_Combo 3, ComboBox1.Value, ComboBox2.Value
    AlimCombo3
End Sub
 
Sub AlimComBo1()
Dim Obj As Control
Dim j As Integer
'Définit le ComboBox à remplir
Set Obj = Me.Controls("ComboBox1")
'Supprime les anciennes données
Obj.Clear
'Boucle sur les lignes de la colonne A (à partir de la 2eme ligne)
For j = 2 To NbLignes
    Obj = Ws.Range("A" & j)
            'Remplit le ComboBox sans doublons
    If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & j)
Next j
End Sub
 
 
Sub AlimCombo2()
Dim Obj As Control
Dim j As Integer
'Définit le ComboBox à remplir
Set Obj = Me.Controls("ComboBox2")
'Supprime les anciennes données
Obj.Clear
'Boucle sur les lignes de la colonne A (à partir de la 2eme ligne)
For j = 2 To NbLignes
    If Ws.Range("A" & j) = ComboBox1.Value Then
          Obj = Ws.Range("A" & j).Offset(0, 1)
          If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & j).Offset(0, 1)
    End If
Next j
End Sub
 
 
Sub AlimCombo3()
Dim Obj As Control
Dim j As Integer
'Définit le ComboBox à remplir
Set Obj = Me.Controls("ComboBox3")
'Supprime les anciennes données
Obj.Clear
'Boucle sur les lignes de la colonne A (à partir de la 2eme ligne)
For j = 2 To NbLignes
    If Ws.Range("A" & j) = ComboBox1.Value And Ws.Range("A" & j).Offset(0, 1) = ComboBox2.Value Then
          Obj = Ws.Range("A" & j).Offset(0, 2)
          If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & j).Offset(0, 2)
    End If
Next j

Ami calmant, J.P

13/06/2022, 12h22
sophinette3000

Bonjour à vous deux,

Je pensais que ça filtrait déjà au client mais apparemment non, merci beaucoup pour votre aide, ça marche bien maintenant :)