Combobox condition avec un autre combobox

Le
sleg
BOnjour,

j'ai dans un userform 2 combobox .
mes listes :
- combobox1 un equipe
- combobox2 un profil

et j'aimerais lorsque je selectionne une equipe dans le combobox1 de
n'avoir en selection dans le combobox2 que ce qui concerne le choix du
combobox1.

equipe PRofil
Unix admin
Unix dba
Wintel toto
CA tata
Wintel admin
CA migration

merci de votre aide & bonne journée
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #23297371
Bonjour,
Avec les équipes en colonne A et les profile en colonne B, utilise les
macros suivantes :

Private Sub UserForm_Activate()
Dim c As Range, sh As Worksheet, Dico As Object
Set Dico = CreateObject("scripting.dictionary")
With Sheets("Feuil1")
For Each c In .Range([A2], .Cells(Rows.Count, 1).End(xlUp))
If Not Dico.exists(c.Value) Then
Dico.Add c.Value, c.Value
End If
Next c
Me.ComboBox1.Clear
For Each Item In Dico
Me.ComboBox1.AddItem Item
Next Item
End With
End Sub

Private Sub ComboBox1_Change()
Dim c As Range, sh As Worksheet
Set sh = Sheets("Feuil1")
With Me.ComboBox2
.Clear
For Each c In sh.Range([A2], sh.Cells(Rows.Count, 1).End(xlUp))
If c.Value = Me.ComboBox1.Value Then
Me.ComboBox2.AddItem c.Offset(, 1).Value
End If
Next c
End With
End Sub

Cordialement.
Daniel


BOnjour,

j'ai dans un userform 2 combobox .
mes listes :
- combobox1 un equipe
- combobox2 un profil

et j'aimerais lorsque je selectionne une equipe dans le combobox1 de
n'avoir en selection dans le combobox2 que ce qui concerne le choix du
combobox1.

equipe PRofil
Unix admin
Unix dba
Wintel toto
CA tata
Wintel admin
CA migration

merci de votre aide & bonne journée
sleg
Le #23297511
BOnjour,

grand merci j'ai un probleme sur la ligne
Next c
Me.ComboBox17
.clear

J'ai utilisation incorrecte de la propriété
.

une idée ?


On 20 avr, 09:51, DanielCo
Bonjour,
Avec les quipes en colonne A et les profile en colonne B, utilise les
macros suivantes :

Private Sub UserForm_Activate()
    Dim c As Range, sh As Worksheet, Dico As Object
    Set Dico = CreateObject("scripting.dictionary")
    With Sheets("Feuil1")
        For Each c In .Range([A2], .Cells(Rows.Count, 1).End(xlUp ))
            If Not Dico.exists(c.Value) Then
                Dico.Add c.Value, c.Value
            End If
        Next c
        Me.ComboBox1.Clear
        For Each Item In Dico
            Me.ComboBox1.AddItem Item
        Next Item
    End With
End Sub

Private Sub ComboBox1_Change()
    Dim c As Range, sh As Worksheet
    Set sh = Sheets("Feuil1")
    With Me.ComboBox2
        .Clear
        For Each c In sh.Range([A2], sh.Cells(Rows.Count, 1).End( xlUp))
            If c.Value = Me.ComboBox1.Value Then
                Me.ComboBox2.AddItem c.Offset(, 1).Value
            End If
        Next c
    End With
End Sub

Cordialement.
Daniel







> BOnjour,

> j'ai dans un userform 2 combobox .
> mes listes :
> - combobox1 un equipe
> - combobox2 un profil

> et j'aimerais lorsque je selectionne une equipe dans le combobox1 de
> n'avoir en selection dans le combobox2 que ce qui concerne le choix du
> combobox1.

> equipe                   PRofil
> Unix                      admin
> Unix                      dba
> Wintel                   toto
> CA                        tata
> Wintel                   admin
> CA                        migration

> merci de votre aide & bonne journ e
sleg
Le #23297501
voila le code apres adaptation :

Private Sub UserForm_Activate()
Dim c As Range, sh As Worksheet, Dico As Object
Set Dico = CreateObject("scripting.dictionary")
With Sheets("Liste")
For Each c In .Range([k2], .Cells(Rows.Count, 11).End(xlUp))
If Not Dico.exists(c.Value) Then
Dico.Add c.Value, c.Value
End If
Next c
Me.ComboBox17
.Clear
For Each Item In Dico
Me.ComboBox17.AddItem Item
Next Item
End With
End Sub
Private Sub ComboBox17_Change()
Dim c As Range, sh As Worksheet
Set sh = Sheets("Liste")
With Me.ComboBox15.Clear
For Each c In sh.Range([k2], sh.Cells(Rows.Count,
11).End(xlUp))
If c.Value = Me.ComboBox17.Value Then
Me.ComboBox15.AddItem c.Offset(, 1).Value
End If
Next c
End With
End Sub





On 20 avr, 09:51, DanielCo
Bonjour,
Avec les quipes en colonne A et les profile en colonne B, utilise les
macros suivantes :

Private Sub UserForm_Activate()
    Dim c As Range, sh As Worksheet, Dico As Object
    Set Dico = CreateObject("scripting.dictionary")
    With Sheets("Feuil1")
        For Each c In .Range([A2], .Cells(Rows.Count, 1).End(xlUp ))
            If Not Dico.exists(c.Value) Then
                Dico.Add c.Value, c.Value
            End If
        Next c
        Me.ComboBox1.Clear
        For Each Item In Dico
            Me.ComboBox1.AddItem Item
        Next Item
    End With
End Sub

Private Sub ComboBox1_Change()
    Dim c As Range, sh As Worksheet
    Set sh = Sheets("Feuil1")
    With Me.ComboBox2
        .Clear
        For Each c In sh.Range([A2], sh.Cells(Rows.Count, 1).End( xlUp))
            If c.Value = Me.ComboBox1.Value Then
                Me.ComboBox2.AddItem c.Offset(, 1).Value
            End If
        Next c
    End With
End Sub

Cordialement.
Daniel







> BOnjour,

> j'ai dans un userform 2 combobox .
> mes listes :
> - combobox1 un equipe
> - combobox2 un profil

> et j'aimerais lorsque je selectionne une equipe dans le combobox1 de
> n'avoir en selection dans le combobox2 que ce qui concerne le choix du
> combobox1.

> equipe                   PRofil
> Unix                      admin
> Unix                      dba
> Wintel                   toto
> CA                        tata
> Wintel                   admin
> CA                        migration

> merci de votre aide & bonne journ e
DanielCo
Le #23297491
Je n'ai pas écrit ce que cites, mais ça :
Me.ComboBox1.Clear
Daniel


BOnjour,

grand merci j'ai un probleme sur la ligne
Next c
Me.ComboBox17
.clear

J'ai utilisation incorrecte de la propriété
.

une idée ?
sleg
Le #23297581
désolé

ça fonctionne grand merci DanielCo

On 20 avr, 10:46, DanielCo
Je n'ai pas écrit ce que cites, mais ça :
Me.ComboBox1.Clear
Daniel







> BOnjour,

> grand merci j'ai un probleme sur la ligne
>   Next c
>         Me.ComboBox17
> .clear

> J'ai utilisation incorrecte de la propriété
> .

> une idée ?
Publicité
Poster une réponse
Anonyme