Discussion :

[tony847]

Bonsoir

J’ai un classeur, qui contient 3 feuilles :
Feuil1 commandbouton, Feuil2 model, Base de donnée.
Je voudrai qu’en cliquant sur le bouton de commande cela m’ouvre une boite de dialogue (USERFORM). Et en faisant défilée le combox1 cela me sélectionne les données se trouvant dans la feuil3 colonneA. Si je choisi de pointer sur une des valeurs cela à des répercution sur le combox2, combox3, 4, 5.
Et si je garde la valeur pointer dans le combox1 et je choisi de pointer une valeur dans le combox2 cela me sélectionne seulement les valeurs concernée par le combox1. Le but est d'affiner la recherche sur les autres combox et ainsi de suite.

[Pierre Fauconnier]

Bonsoir.

Pas certain d'avoir compris...

Tu veux que les combo s'adaptent en cascade?

[tony847]

je voudrai quand pointant sur un combox cela me sélectionne seulement les valeur concernés par ce combox dans les autres combox

[Pierre Fauconnier]

J'ai regardé ton fichier

Je pense qu'utiliser un TCD sur des données externes n'est pas une bonne idée.

Je préfèrerais une "table à plat" qui renvoie en colonne 1 la position, en colonne 2 le bâtiment, en colonne 3 la partie, etc...

C'est alors bien plus simple de créer un code pour les combo?

Est-ce faisable d'organiser les données dans Excel de cette manière?

[tony847]

voilà j'ai remplacer le TCD par des colonnes simple

[Gorfael]

Salut
En réponse à ton MP qui concerne ce sujet je crois, une proposition.
Évite les MP. Si tout le monde fais comme toi, ma Bal va exploser.
A+

[tony847]

J'ai regardé ton fichier

Je pense qu'utiliser un TCD sur des données externes n'est pas une bonne idée.

Je préfèrerais une "table à plat" qui renvoie en colonne 1 la position, en colonne 2 le bâtiment, en colonne 3 la partie, etc...

C'est alors bien plus simple de créer un code pour les combo?

Est-ce faisable d'organiser les données dans Excel de cette manière?

oui c'est faisable l'important pour moi c d'afficher dans la boite de dialogue les valeurs pointer(ou sélectionner) et ensuite de les éditer.
Si ta méthode reprend cette logique je suis preneur
merci

[tony847]

bonsoir,

j'aimrais effacer les doublons dans mon programme ,
comment faire?
voici mon code

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Dim i As Integer
Dim ValTable As String
 
Sub Lanc_Appli()
    'affiche la boite
    UserForm4.Show
End Sub
 
 
Sub Init()
    'initialisation de la boite
    'Ajoute des valeurs de la colonne "N" dans la liste 1
    i = 1
    'Tant qu'on trouve une valeur
    Do While Sheets("Mod feuille").Range("N3").Offset(i, 0) <> ""
        UserForm4.Localité.AddItem Sheets("Mod feuille").Range("N3").Offset(i, 0)
        i = i + 1
    Loop
End Sub
 
 
 
Sub Rempliste()
    'efface les données de la liste2
    UserForm4.Unité.Clear
    'Récupération de la valeur de la liste1
    ValTable = UserForm4.Localité
    i = 1
    'Boucle "Do While-Loop" pour chaque valeur de la colonne "O"
    Do While Sheets("Mod feuille").Range("O3").Offset(i, 0) <> ""
        'si la valeur de la colonne "O" est identique à la valeur de la liste 1,
        'on ajoute sa valeur correspondante de la colonne "P" dans la liste 2.
        If Sheets("Mod feuille").Range("O3").Offset(i, 0) = ValTable Then
            UserForm4.Unité.AddItem Sheets("Mod feuille").Range("P3").Offset(i, 0)
     'si la valeur de la colonne "P" est identique à la valeur de la liste 2,
        'on ajoute sa valeur correspondante de la colonne "Q" dans la liste 3.
            UserForm4.Périodicité.AddItem Sheets("Mod feuille").Range("Q3").Offset(i, 0)
 
        End If
    i = i + 1
    Loop
End Sub