Discussion :

[fullmetalknet]

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

[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...

[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

[LeForestier]

Avec tout les renseignements que tu donne..
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 :

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
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+

[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

[ouskel'n'or]

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

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

et celles après le Else ?
(je n'ai pas été plus loin dans la forêt )

[fullmetalknet]

Avec tout les renseignements que tu donne..
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 :

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
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!

[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+