Discussion :

[Defter]

Bonjour à tous,

j'ai actuellement un soucis avec l'utilisation de plusieurs combobox liée entre elle.
Je m'explique

J'ai fais clic droit sur la premiere "Visualiser code" et la j'entre en Private sub.

Je rentre donc mon code qui est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox2_Change()
If Range("B43").Value = "W44" And Range("B49").Value = "Serreur" Then
    ComboBox3.RowSource = "C55:C69"
 
 End If
 End Sub

En gros je veux qu'en fonction des valeures présente en "B43" et "B44" la plage de recherche de la combobox 3 change.

Cela est il possible ?


Merci pour votre aide,
Cordialement
Defter

[Daniel.C]

Bonjour,

Si, comme tu sembles l'indiquer, ta combobox est sur une feuille, la propriété à utiliser est "ListFillRange", et non pas "RowSource" qui est utilisée avec les combobox sur userform.

[Defter]

Bonjour Daniel.C

J'ai utilisé ta technique, et cette fois-ci il me demande une maccro, seulement il n'y en a pas comme je cherche à la créer justement.

Est-ce lié au faite que je sois dans "Private Sub" ?
J'ai aussi actualisé le "_Change" en "_QuandClic" car je souhaite que la Combobox3 s'actualise lors du choix de la 2. Est ce un problème aussi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox2_quandclic()
If Range("B43").Value = "W44" And Range("B49").Value = "Serreur" Then
    Me.ComboBox3.ListFillRange = "C55:C69"
 
 End If
 End Sub

Désolé c'est peut être des questions stupides mais je débute dans l'utilisation de combobox.


Cordialement,
Defter

J'arrive maintenant à obtenir des valeures dans la combobox3, je n'avais pas précisé vers quel feuille aller chercher les prérequis et les données ...

Le code à maintenant cette forme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox3_Clic()
    If Sheets("Data").Range("B43").Value = "W44" AndSheets("Data").Range("B49").Value = "Serreur" Then
        ComboBox3.ListFillRange = "Data!C55:C69"
 
    End If
End Sub

Existe t-il un moyen de clean une combobox ? C'est à dire qu'elle n'affiche rien comme si aucun prérequis n'avait été selectionné ?

[Daniel.C]

Tu utilises certainement les contrôles de formulaire. Tu devrais utiliser plutôt les contrôles ActiveX qui offrent davantage de fonctionnalité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ComboBox3.ListIndex = -1

[Defter]

Non je suis bien en ActiveX,

J'ai maintenant les données que je souhaite dans ma combobox,
Je cherche maintenant à influencer les valeures présentes dans celle-ci avec des paramètres présents dans d'autre cellules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox2_quandclic()
    If Sheets("Data").Range("B43").Value = "W44" And Sheets("Data").Range("B49").Value = "Serreur" Then
        ComboBox3.ListFillRange = "Poteau_Serreur"
        ComboBox3.ListRows = 6
 
    End If
    If Sheets("Data").Range("B43").Value = "W80" And Sheets("Data").Range("B49").Value = "VEC" Then
        ComboBox3.ListFillRange = "Poteau_VEC"
        ComboBox3.ListRows = 2
    End If
 
End Sub

Il me detecte bien la première condition c'est à dire "Poteau_serreur" mais lorsque je change les valeurs, il n'actualise pas au profit des valeurs de "Poteau_Vec".

Je pense que c'est une erreur de synthaxe au niveau des deux conditions "SI" mais la j'avoue être completement bloqué.

Merci pour tes conseils en tout cas.

[Daniel.C]

Tu ne peux pas écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox3.ListFillRange = "Poteau_Serreur"

Tu dois coder soit une plage de cellules (par exemple A1:A10) ou une plage nommée sans guillemets dans ListFillRange.