Discussion :

[stephadm]

Bonsoir le forum,

Je souhaite utilisé deux combobox CBox "Categorie" et "Civilite" (colonne J pour catégorie et colonne K pour civilité) en cascade sachant que l'userform se déclenche en cliquant sur bouton de la feuille1 et que les données se trouves sur feuille3 " Listes"
Voici le 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
Private Sub Categorie_Change()
 
Application.ScreenUpdating = False                                                  
 
Dim i As Integer
 
Me.Civilite.Clear
With ThisWorkbook.Sheets("Listes")
    For i = 2 To .Range("J65536").End(xlUp).Row
        If .Range("J" & i) = Categorie.Value Then Me.Civilite.AddItem .Range("K" & i)
    Next
End With
 
Application.ScreenUpdating = True

et

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
Private Sub UserForm_Initialize()
 
Application.ScreenUpdating = False
 
'Déclarations
Dim i As Integer
 
'Run
For i = 2 To Sheets("Listes").Range("J65536").End(xlUp).Row
  Categorie = Sheets("Listes").Range("J" & i)
  If Categorie.ListIndex = -1 Then Categorie.AddItem Sheets("Liste").Range("J" & i)
Next i
Categorie = ""
 
Application.ScreenUpdating = True

marche avec bouton sur la même feuille Listes mais pas dans ma situation, erreur d'execution 9 : L'indice n'appartient pas à la sélection.

Que se passe t-il ?

Je n'ai pas trouvé la solution sur cette page ici http://excel.developpez.com/faq/inde...omboboxCascade.

Merci d'avance, pour l'aide que vous m'apporter,

Stéphanie

[mercatog]

Ligne 11, 2ème code, nom de feuille sans s (Liste ou Listes)?

Utilise plutôt (comme pour le code 1)

Code :

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

1
2
3
with thisworkbook.worksheets("Listes")
'....
end with

[stephadm]

Bonjour le forum,

Merci Mercatog, ça fonctionne bien, il faut vraiment être vigilant.

J'ai une autre question pour finir mon raisonnement initial : Comment-faire quand je sélectionne, Particulier du combobox Categorie, Particulier s'affiche dans une combobox CategorieTarif que je peux modifier quand meme car je veux qu'il soit lié à la colonne I?

exemple :

Colonne I (CategorieTarif) Colonne J (Categorie) Colonne K (Civilite)
Administration                  Administration -
Association                       Association -
Particulier                         Particulier                 Mlle
Particulier                         Particulier                 Mme               
Particulier                         Particulier                 M.
Professionnel                    Entreprise                 EARL
Professionnel                    Entreprise                 EI
etc.
Professionnel                    Société                     SA
Professionnel                    Société                     SARL

etc.

J'espère que j'ai été clair sinon je transmet un aperçu écran.

En vous remerciant,

Stéphanie

[stephadm]

Bonsoir le forum,

J'ai répondu à ma question mais y-a-t-il moyen de simplifier ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    If Categorie.Value = "Particulier" Then
        Categorie_client = Categorie.Value
    ElseIf Categorie.Value = "Association" Then
        Categorie_client = Categorie.Value
    ElseIf Categorie.Value = "Entreprise" Then
        Categorie_client = "Professionnel"
    ElseIf Categorie.Value = "Société" Then
        Categorie_client = "Professionnel"
    ElseIf Categorie.Value = "Administration" Then
         Categorie_client = "Professionnel"
    ElseIf Categorie.Value = "Autre" Then
        Categorie_client = ""
End If

Merci

Stéphanie

[Qwazerty]

Salut

Juste regrouper utiliser des Or à 2 endroits

Code :

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

1
2
3
4
5
6
7
    If (Categorie.Value = "Particulier") Or (Categorie.Value = "Association") Then
        Categorie_client = Categorie.Value
    ElseIf (Categorie.Value = "Société") Or (Categorie.Value = "Administration") Or (Categorie.Value = "Entreprise") Then
        Categorie_client = "Professionnel"
    ElseIf Categorie.Value = "Autre" Then
        Categorie_client = ""
    End If

++
Qwaz

[stephadm]

Bonjour le forum et Qwazerty,

Merci Qwazerty, c'est exactement ce que je voulais.

Stéphanie

[MarcelG]

Bonjour Stéphanie, Qwazerty, Le Forum,

Si je peux me permettre,

On peut aussi appliquer la méthode

Code :

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

Select Case

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub ESSAI2()
Select Case Categorie.Value
        Case "Particulier", "Association"
                Categorie_client = Categorie.Value
        Case "Société", "Administration", "Entreprise"
                Categorie_client = "Professionnel"
        Case "Autre"
                Categorie_client = ""
End Select
End Sub

Bonne semaine à tous.

[Qwazerty]

Salut
En effet ça allège un peu plus l’écriture

++
Qwaz