Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 classe combo cascade qui s'oublie

patricktoulon

XLDnaute Barbatruc
Bonjour a tous
de bon matin a la fraîche j'ai une énigme a résoudre

j'ai une toute petite classe combobox en cascade (exemple assez succin) qui oublie après la première sélection dans les 3 combo
j'explique je lance le userform il rempli la première appelle la classe pour l'event combobox
je sélectionne dans la première OK , la 2d OK , la 3eme OK
je reviens sur une des précédente et là ça plante
je contrôle pour quoi en débogage et j'ai mon tableau d'object combobox ("Combosoeurs") vide

je suis perplexe ai-je oublié quelque chose
me serais je levé trop tot
dans mon userform j'ai 3 comb (cmb1,cmb2,cmb3)
le code
on se moque pas je sais la méthode sans doublons avec le( .value/.listindex-1) est archaïque
VB: 
Dim cls As New Classecomb

Private Sub UserForm_Activate()
    Dim tbl
    tbl = Range("tableau1")
    cls.initcombo Me, Range("tableau1").Value

    With cmb1
        For i = 1 To UBound(tbl)
            .Value = tbl(i, 1)
            If .ListIndex = -1 Then .AddItem tbl(i, 1)
        Next
        .Value = ""
    End With
End Sub

le code ma classe
VB: 
Public WithEvents cmb As MSForms.ComboBox
Dim cl(1 To 3) As New Classecomb
Public Combosoeurs
Public T
Public indexo&
Public Function initcombo(uf, tabl)
    Dim toutes(1 To 3), i&, z&, T
  
    For i = 1 To 3
        Set cl(i).cmb = uf.Controls("cmb" & i)
        Set toutes(i) = uf.Controls("cmb" & i)
        cl(i).T = tabl
        cl(i).indexo = i
    Next
    For z = 1 To 3: cl(z).Combosoeurs = toutes: Next
End Function



Private Sub cmb_Click()
    If indexo <= 2 Then 'on arrete la gestion du clik a la 2d
        With Combosoeurs(indexo + 1)
            .Clear
            For a = 1 To UBound(T)
                .Value = T(a, indexo + 1)
                If T(a, indexo) = cmb.Value Then If .ListIndex = -1 Then .AddItem T(a, indexo + 1)
            Next
            .Value = ""
        End With
    End If
End Sub

l'erreur
 

Pièces jointes

  • combocascade demo.xlsm
    20.1 KB · Affichages: 6
Solution
Non j'ai et tu peux tester
mis la Variable " toutes " en Object
VB: 
 Dim toutes(1 To 3) As Object, i&, z&, T
si tu supprimes le "As Object" ca ne fonctionne plus !
et il y a bien un rapport entre "Combosoeurs" et "toutes" ?
puisque
Code: 
   For z = 1 To 3: cl(z).Combosoeurs = toutes: Next
halloween est passé Lol
Jean marie
Trier par date Trier par votes

patricktoulon

XLDnaute Barbatruc
Bonjour @ChTi160
oui mais je sais faire autrement là je veux vraiment comprendre pourquoi combosoeurs se vides
ce qui m’intéresse ce n'est pas d'arriver a faire une cascade mais de comprendre le problème

c'est pour toi en plus que je le fait comme exemple classe simple avec sub object comme les textboxs

sinon j'y arrive tres bien : je fait ça et ça fonctionne très bien
VB: 
Option Explicit
Public WithEvents cmb As MSForms.ComboBox
Dim cl(1 To 3) As New Classecomb
Public Combosoeurs
Public T
Public indexo&
Public usf As Object
Public Function initcombo(uf, tabl)
    Dim toutes(1 To 3), i&, z&, T

    For i = 1 To 3
        Set cl(i).cmb = uf.Controls("cmb" & i)
        Set toutes(i) = uf.Controls("cmb" & i)
        cl(i).T = tabl
        cl(i).indexo = i
        Set cl(i).usf = uf
    Next
    For z = 1 To 3: cl(z).Combosoeurs = toutes: Next
End Function



Private Sub cmb_Click()
    Dim a&
    If indexo <= 2 Then    'on arrete la gestion du clik a la 2d
        'With Combosoeurs(indexo + 1)
        With usf.Controls("cmb" & indexo + 1)
            .Clear
            For a = 1 To UBound(T)
                .Value = T(a, indexo + 1)
                If T(a, indexo) = cmb.Value Then If .ListIndex = -1 Then .AddItem T(a, indexo + 1)
            Next
            .Value = ""
        End With
    End If
End Sub

 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
oui si tu veux
j'utilise usf.controls("..." & indexo
usf qui est une variable object de l'instance de la classe
là je veux vraiment comprendre pourquoi avec combosoeur ça ne fonction qu'une fois

je t'ai fait aussi un exemple Hover button(survol button) aussi dans le même principe
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Re
les procédure utilisées :
VB: 
Private Sub UserForm_Activate()
    Dim tbl
    tbl = Range("tableau1")
    cls.initcombo Me, Range("tableau1").Value   
For i = 1 To UBound(tbl, 1)
    With cmb1
            .Value = tbl(i, 1)
            If .ListIndex = -1 Then .AddItem tbl(i, 1)
    End With
Next
     cmb1.Value = "": cmb2.Value = "": cmb3.Value = ""
End Sub
Code: 
Option Explicit
Public WithEvents cmb As MSForms.ComboBox
Dim cl(1 To 3) As New Classecomb
Public Combosoeurs
Public T
Public indexo&
Public Function initcombo(uf, tabl)
    Dim toutes(1 To 3) As Object, i&, z&, T  
    For i = 1 To 3
        Set cl(i).cmb = uf.Controls("cmb" & i)      
        Set toutes(i) = uf.Controls("cmb" & i)
        cl(i).T = tabl
        cl(i).indexo = i
    Next
    For z = 1 To 3: cl(z).Combosoeurs = toutes: Next
End Function
'******************************'
Private Sub cmb_Click()
    Dim a&  
    If indexo <= 2 Then 'on arrete la gestion du clik a la 2d
       Combosoeurs(3).Clear
        With Combosoeurs(indexo + 1)
        .Clear
         For a = 1 To UBound(T)
             .Value = T(a, indexo + 1)
                If T(a, indexo) = cmb.Value Then If .ListIndex = -1 Then .AddItem T(a, indexo + 1)
            Next
            .Value = ""
        End With
    End If
End Sub
à voir donc Lol
J'attends ton nouveau Fichier exemple ! Merci
Jean marie
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Non j'ai et tu peux tester
mis la Variable " toutes " en Object
VB: 
 Dim toutes(1 To 3) As Object, i&, z&, T
si tu supprimes le "As Object" ca ne fonctionne plus !
et il y a bien un rapport entre "Combosoeurs" et "toutes" ?
puisque
Code: 
   For z = 1 To 3: cl(z).Combosoeurs = toutes: Next
halloween est passé Lol
Jean marie
 
Vote positif 0 Vote négatif
Solution

patricktoulon

XLDnaute Barbatruc
re
tiens les deux forme (extra et intra userform )
j'ai bien entendu zappé le remplissage sans doublons archaïque hein
je passe par une boucle match
 

Pièces jointes

  • combocascade demo.xlsm
    33.4 KB · Affichages: 6
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
557
AtTheOne
  • Question Question
Autres la fonction similaire
Réponses
11
Affichages
448
patricktoulon
  • Question Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
626
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
1 K
NONO14
N
  • Question Question
Microsoft 365 Format Nombre Combobox dans Feuille
Réponses
3
Affichages
437
fanch55
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
473
GClaire
G
R
  • Question Question
XL 2019 Transpose et limiter nombre de valeur
Réponses
1
Affichages
318
Rabeto
R
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
3 K
patricktoulon
  • Résolu(e)
XL 2010 Erreur de compilation - Incompatibilité de type: tableau ou type défini par l'utilisateur
Réponses
3
Affichages
231
cathodique
P
  • Résolu(e)
XL 2013 EXCEL VBA
Réponses
2
Affichages
342
pangasoul
P
  • Question Question
XL 2010 Nb occurences non juste
Réponses
5
Affichages
503
mapomme
  • Résolu(e)
XL 2010 [RESOLU]Adapter Module de Classe
2
Réponses
29
Affichages
2 K
cp4
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
331
Phil69970
R
  • Question Question
XL 2019 Demande à la macro de chercher et de remplir automatiquement jusqu'à la dernière valeur
Réponses
1
Affichages
452
Aya_flo
A
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
408
Minus&Cortex
M
  • Question Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
  • Question Question
XL 2021 Une (autre) Classe utilisant Scripting.Dictionary
Réponses
1
Affichages
408
p'tit vieux
N
  • Question Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
326
NONO14
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…