XL 2010 Synchronisation de 3 combobox

[Asture]

Bonjour les amis, je suis nouveau de la programmation et je bloque sur une appli de saisie avec des combobox que je veux faire dépendre les uns aux autres. Merci encore pour l'aide.

 

[Dranreb]

Bonjour.
Cette ressource est faite pour vous :

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com

Remarque: Il faudrait un tableau avec juste les 3 colonnes, en répétant sur chaque ligne les informations communes.

 

[Asture]

Bonjour.
Cette ressource est faite pour vous :

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com

Remarque: Il faudrait un tableau avec juste les 3 colonnes, en répétant sur chaque ligne les informations communes.

Merci, mais xa ne m'aide pas. Si je pouvait avoir un exemple avec mon fichier, cela me sera d'une grande aide. Merci

 

[Dranreb]

Joignez peut être le classeur après avoir corrigé le tableau (3 colonnes, une pour chaque ComboBox)
Avec le classeur tel qu'il était on ne peut rien faire.

 

[_Thierry]

Bonjour @Asture , @Dranreb , le Forum

Voice ce que Dranreb essaie de t'expliquer, mais en image :

Car ta base est tout sauf une Database structurée !
D'où par la suite des jongleries infernales et instables en VBA pour piloter des UserForms !!!


Bonne découverte du monde VBA
@+Thierry

 

[job75]

Bonjour Asture, Bernard, _Thierry,

Pas besoin de ComboBoxes, des listes de validation font très bien l'affaire.

Et le tableau structuré de la 1ère feuille me va très bien.

Voyez le fichier joint et cette macro dans le code de la feuille "bd" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rc&, j%, DListe$, n%, SPListe$(), i&
Cells.Validation.Delete 'RAZ
With [Tableau2]
    If Target.Row = 1 Or Target.Column > .Columns.Count Then Exit Sub
    rc = .Rows.Count
    For j = 1 To .Columns.Count Step 2
        DListe = DListe & "," & .Cells(1, j)
        n = n + 1
        ReDim Preserve SPListe(1 To n)
        For i = 1 To rc
            If .Cells(i, j + 1) <> "" Then SPListe(n) = SPListe(n) & "," & .Cells(i, j + 1)
        Next i
        SPListe(n) = Mid(SPListe(n), 2)
    Next j
    DListe = Mid(DListe, 2)
End With
'---listes de validation---
With ActiveCell.Validation
    If ActiveCell.Column Mod 2 Then
        .Add xlValidateList, Formula1:=DListe 'liste des départements
    ElseIf ActiveCell(1, 0) <> "" Then
        n = Application.Match(ActiveCell(1, 0).Text, Split(DListe, ","), 0)
        .Add xlValidateList, Formula1:=SPListe(n) 'liste des sous-préfectures
    End If
End With
End Sub

Elle se déclenche quand on sélectionne une cellule et crée la liste de validation correspondante.

Nota : à quoi va servir l'UserForm ?

A+

 

[_Thierry]

Bonsoir @job75 , re @Dranreb , re @Asture

Oui certe, mais je pense qu'il faut parfois remettre un peu les gens en question sur leur façon de voir une Table et l'évolution de celle-ci dans le temps...

Certe, avec ce genre d'acrobaties on peut même faire faire le café à Excel, mais sérieusement tu crois qu'Asture va pouvoir suivre ne fusse qu'un tiers de ce code ? Il a bien précisé "je suis nouveau de la programmation"

Et tel que je vois son tableau c'est lui qui l'a créé (mal) il n'est, me semble-t'il, pas assujetti à des données exportées/importées et donc il a le choix de faire une Table Structurée comme nous l'avons suggéré Dranreb et moi.

Mais sinon pas mal tes acrobaties et l'idée des Liste de Validation.

Bonne soirée
@+Thierry

 

[job75]

Une variante dans ce fichier (2) avec l'envoi des touches Alt+<DOWN> pour dérouler la liste :

CreateObject("wscript.shell").SendKeys "%{DOWN}" 'déroule la liste

 

[Asture]

Voici mon projet. Si quelqu'un peut m'aider. Merci d'avance

 

[Dranreb]

Bonjour.
Ceci est un bon début pour votre UserForm NOUVEAU, qui permet déjà le fonctionnement correct des ComboBox.

Option Explicit
Private WithEvents CL As ComboBoxLiées, CA As ControlsAssociés, LCou As Long, TVL()
Private Sub UserForm_Initialize()
   Set CL = CLsCAs.Création.ComboBoxLiées: CL.Plage Feuil1
   Set CA = CLsCAs.Création.ControlsAssociés: Set CA.Colonnes = CL.Colonnes
   CL.Add Me.ComboBox1, "DEPARTEMENT"
   CL.Add Me.ComboBox2, "SOUS-PREFECTURE"
   CL.Add Me.ComboBox3, "PAYS RURAL"
   CA.Add Me.TextBox4, "VILLAGE"
   CA.Add Me.TextBox5, "LOCALISATION"
   CL.CouleurSympa
   CL.Actualiser
   End Sub

 

[Dranreb]

Avec une suite possible :

Private Sub CL_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
   Btn_effacer.Enabled = NbrLgn = 0 Imp Complet
   Ajout.Visible = Complet: Ajout.Enabled = Complet
   If NbrLgn = 1 Then Exit Sub
   LCou = 0: ReDim TVL(1 To 1, 1 To CL.Colonnes.Count)
   CA.ValeursDepuis TVL
   End Sub
Private Sub CL_Résultat(Lignes() As Long)
   If UBound(Lignes) <> 1 Then Exit Sub
   LCou = Lignes(1): TVL = CL.Lignes(LCou).Range.Value
   CA.ValeursDepuis TVL
   End Sub
Private Sub Btn_effacer_Click()
   CL.Nettoyer
   End Sub
Private Sub Ajout_Click()
   CA.ValeursVers TVL
   If LCou = 0 Then
      CL.ValeursVers TVL
      CL.Lignes.Add.Range.Value = TVL
      CL.Actualiser
   Else
      CL.Lignes(LCou).Range.Value = TVL
      End If
   End Sub

Remarque: il n'y a pas assez de ComboBox pour isoler une seule ligne existante pour "BOUNA", "BOUKO" et "BOUKO". Mais il serait possible de mettre une ListBox pour les afficher toutes.

 

[Asture]

Bonjour.
Ceci est un bon début pour votre UserForm NOUVEAU, qui permet déjà le fonctionnement correct des ComboBox.

Option Explicit
Private WithEvents CL As ComboBoxLiées, CA As ControlsAssociés, LCou As Long, TVL()
Private Sub UserForm_Initialize()
   Set CL = CLsCAs.Création.ComboBoxLiées: CL.Plage Feuil1
   Set CA = CLsCAs.Création.ControlsAssociés: Set CA.Colonnes = CL.Colonnes
   CL.Add Me.ComboBox1, "DEPARTEMENT"
   CL.Add Me.ComboBox2, "SOUS-PREFECTURE"
   CL.Add Me.ComboBox3, "PAYS RURAL"
   CA.Add Me.TextBox4, "VILLAGE"
   CA.Add Me.TextBox5, "LOCALISATION"
   CL.CouleurSympa
   CL.Actualiser
   End Sub

Merci, Dranreb pour ton message. Je viens de mettre dans mon usf nouveau. Il affiche erreur de compilation. Type défini par l'utilisateur non defini et il sélectionné CA As........

 

[Dranreb]

Peut être n'avez vous pas installé la fourniture indiquée au poste #3 ni coché son projet CLsCAs dans les références du VBAProject de votre classeur.

 

[Asture]

Peut être n'avez vous pas installé la fourniture indiquée au poste #3 ni coché son projet CLsCAs dans les références du VBAProject de votre classeur.

Je ne vois pas de projet clsca

 

[Asture]

Y a t il pas un moyen simple de faire xa. Et aidez moi pour le usf_recherche