utiliser une combobox a partir d'une autre combobox

Version imprimable

30/07/2009, 18h29
fullmetalknet

utiliser une combobox a partir d'une autre combobox

Bonjour,
dans le cadre de mon travail, je dois effectuer une petite macro, mais je coince un peu.

dans une userform j'ai une combobox qui détermine les différents sites mais j'ai une deuxième combobox qui détermine les bâtiments du site

comment faire pour affecter une liste de bâtiment par rapport a un site
sachant qu'il n'est pas vrai a chaque fois???

merci d'avance
30/07/2009, 20h09
LeForestier

Bonjour;
Où est situé la liste des "Sites " et la liste des "Batiment".
Tu devrais avoir une liste des batiments qui font référence a un site ?
Tu dis...
30/07/2009, 21h35
fullmetalknet

la liste des sites et des batiments sont situés sur une feuille exel.
j'ai creer une liste de batiment pour chaque site en nomment les cellules

1 pièce(s) jointe(s)

Avec tout les renseignements que tu donne..:calim2:
Un nouveau UF, tu colle 2 combos que tu nomme Combo1 et Combo2
dans le module de l'UF tu colle le code ci-dessous

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
Option Explicit
 
Private Sub Combo1_Change()
Dim cel As Range
    Combo2.Clear
    For Each cel In Sheets("Feuil1").Range(Combo1.List(Combo1.ListIndex, 2))
        Combo2.AddItem cel
    Next cel
    Combo2.ListIndex = 0
End Sub
 
Private Sub UserForm_Initialize()
Dim Lig As Long
Dim Ad As String, Txt As String
Dim DerLig As Long
    Combo1.ColumnCount = 2
    Combo1.ColumnWidths = CStr(Combo1.Width - 5) & ";0"
    With Sheets("Feuil1")
        DerLig = .Range("B65536").End(xlUp).Row + 1
        For Lig = 5 To DerLig
            If .Cells(Lig, 1) <> "" Or Lig = DerLig Then
                If Txt = "" Then
                    Txt = .Cells(Lig, 1)
                    Ad = "B" & Lig
                Else
                    Ad = Ad & ":B" & Lig - 1
                    Combo1.AddItem Txt
                    Combo1.List(Combo1.ListCount - 1, 2) = Ad
                    Txt = .Cells(Lig, 1)
                    Ad = "B" & Lig
                End If
            End If
        Next Lig
    End With
    Combo1.ListIndex = 0
End Sub

J'ai employé la feuil1 et agencé colonne A et B voir image.
A+

31/07/2009, 10h24
fullmetalknet

je t'envoi en piece jointe comment j'ai fait sur ma feuille de donnée pour nommé mes sites et les batiments

et j'ai déja une userform peut-on affecter le code sur celle ci?
merci
31/07/2009, 10h33
ouskel'n'or

Hello l'homme des bois, à quoi servent les lignes

Citation:

.....If Txt = "" Then
..........Txt = .Cells(Lig, 1)

et celles après le Else ?
(je n'ai pas été plus loin dans la forêt ;) )
31/07/2009, 10h49
LeForestier

Citation:

Envoyé par ouskel'n'or

Hello l'homme des bois, à quoi servent les lignes
et celles après le Else ?
(je n'ai pas été plus loin dans la forêt ;) )

Test mon code et tu verras.. :langue:
Mais petite explication tout de même
Le Txt= "" c'est pour la 1ère initialisation.
après le else met la ligne sélectionnée plus haut dans colonne 0 et plage des bat dans colonne 1
C'est plus clair ?

Citation:

Envoyé par fullmetalknet

je t'envoi en piece jointe comment j'ai fait sur ma feuille de donnée pour nommé mes sites et les batiments

et j'ai déja une userform peut-on affecter le code sur celle ci?
merci

Bien sûr qu'il ira sut ton UF et réfléchi un peu comment adapter mon code pour qu'il fonctionne dans la configuration que tu montre.
Si tu n'en sort pas revient et ont t'aidera .
A+
31/07/2009, 11h20
ouskel'n'or

Citation:

Envoyé par Leboiseux

C'est plus clair ?

Ah ! Tu fais comme ça ! On n'a pas la même idée de la structure d'une base de données :mouarf:

fullmetalknet, cela te coûterait-il beaucoup de modifier la structure de ta feuille de calculs pour qu'elle ressemble à quelque chose de rapidement exploitable ?
Consisterait à placer tes sites en colonnes et les bâtiments en lignes
Autant de colonnes que de sites
Autant de lignes que de bâtiments par site
... ou le contraire
Cela premettrait, en sélectionnant un site, de connaître immédiatement la liste des bâtiments correspondant.

Qu'en penses-tu l'homme des bois ?
31/07/2009, 11h24
LeForestier

Rien à dire sur ta rematque :ccool: , mais je voulais laisser fullmetalknet fullminer :) un peu sur les possibilités qu'il avais avec sa configuration.
C'est vrai que j'aurais pu faire comme tu dis dans ma démo.. pas penser..:oops:

Citation:

Envoyé par LeForestier

Avec tout les renseignements que tu donne..:calim2:
Un nouveau UF, tu colle 2 combos que tu nomme Combo1 et Combo2
dans le module de l'UF tu colle le code ci-dessous

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
Option Explicit
 
Private Sub Combo1_Change()
Dim cel As Range
    Combo2.Clear
    For Each cel In Sheets("Feuil1").Range(Combo1.List(Combo1.ListIndex, 2))
        Combo2.AddItem cel
    Next cel
    Combo2.ListIndex = 0
End Sub
 
Private Sub UserForm_Initialize()
Dim Lig As Long
Dim Ad As String, Txt As String
Dim DerLig As Long
    Combo1.ColumnCount = 2
    Combo1.ColumnWidths = CStr(Combo1.Width - 5) & ";0"
    With Sheets("Feuil1")
        DerLig = .Range("B65536").End(xlUp).Row + 1
        For Lig = 5 To DerLig
            If .Cells(Lig, 1) <> "" Or Lig = DerLig Then
                If Txt = "" Then
                    Txt = .Cells(Lig, 1)
                    Ad = "B" & Lig
                Else
                    Ad = Ad & ":B" & Lig - 1
                    Combo1.AddItem Txt
                    Combo1.List(Combo1.ListCount - 1, 2) = Ad
                    Txt = .Cells(Lig, 1)
                    Ad = "B" & Lig
                End If
            End If
        Next Lig
    End With
    Combo1.ListIndex = 0
End Sub

J'ai employé la feuil1 et agencé colonne A et B voir image.
A+

J'ai essayer ton code mais je ne sais pas comment le faire marcher!!
mes combo sont vides!

31/07/2009, 13h12
LeForestier

Beh évidement que tes combo sont vide, si tu ne modifie pas la configuration de ta feuille ou les adresses données pour les combo ça marchera jamais.
Cherche un tout petit peu quand même. (réfléchi en fonction du modèle que je t'ai mis en image)
A+
04/08/2009, 09h00
fullmetalknet

Citation:

Envoyé par LeForestier

si tu ne modifie pas la configuration de ta feuille ou les adresses données pour les combo ça marchera jamais.
Cherche un tout petit peu quand même. (réfléchi en fonction du modèle que je t'ai mis en image)
A+

Salut

c'est ce que j'ai fait!

comme ca ne fonctionnait pas j'ai recréer une feuille excel et ca marche encore moins!!!:cry:

J'ai bien mes sites et mes batiments, es ce normal qu'il y a des grand espace entre les sites dans la combo? et quand je selectionne un sites il me met erreur non répertorié sur la combo2 sur la ligne "combo2.clear"!
je ne comprend pas pourquoi!

Désolé mais je suis débutant dans VBA!!!

merci
04/08/2009, 11h54
LeForestier

1 pièce(s) jointe(s)

Re,
Pour que les noms correspondent il faut les adapter.
Tu a probablement coller un combobox sur ton UF mais tu n'a pas changer sont nom, voir avec les propriétés du combo

Un exemple plus concret !!
A+
04/08/2009, 14h02
fullmetalknet

merci pour cette petite demo!!!

c'est exactement ce que je voulais faire! meme que ca marche je ne comprend tjs pas les codes VBA que tu m'a fourni!!!:lol:

A+

encore merci