Discussion :

[Maxou 10]

Bonjour,

Je suis perdu sur un truc simple mais je ne comprend pas pourquoi je bloque.
J'aimerai que ma TextBoxParent affiche "Parents" si ma ComboBoxEleves trouve dans ma liste feuille 3 le même nom et que 4 cellule a droite est vrai.
Sinon je veux qu'elle affiche "RIEN".

J'arrive à afficher "parent" mais si je change ma ComboBoxEleves cela reste sur "parents" et ne reviens pas a "RIEN".

Voici mon code :

Code :

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

1
2
3
4
5
6
7
For plageElève = 4 To 27
                    If Me.ComboBoxEleves.Value = Worksheets("Feuil 3").Range("F" & plageElève).Offset(1, 4) Like True Then
                        TextBoxParent.Value = "PARENTS"
                    Else
                        TextBoxParent.Value = "RIEN"
                    End If
                Next plageElève

Merci encore pour votre aide

[Philippe Tulliez]

Bonjour,

J'arrive à afficher "parent" mais si je change ma ComboBoxEleves cela reste sur "parents" et ne reviens pas a "RIEN".

Est-ce que le code est appelé depuis une procédure événementielle ?
[EDIT]
Question supplémentaire : Le ComboBox est un ActiveX sur la feuille ou un objet du UserForm ?

[Maxou 10]

Le code est mis directement dans combobox avec l’événement change.

Tout est en objet dans une userform.

[Philippe Tulliez]

Bonjour,
Pouvons nous visualiser le code qui alimente le ComboBox ?
Une image de la table source ne serait pas un luxe

[Maxou 10]

Bonjour,
Pouvons nous visualiser le code qui alimente le ComboBox ?
Une image de la table source ne serait pas un luxe

Voici comment j'alimente ma combobox :

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
Private Sub UserForm_Activate()
    Dim plage As Integer, PlageTri As Integer
    Dim Eleves As String
 
Set ws = Sheets("Synthèse")
 
With Me.ComboBoxEleves
        For plage = 5 To 28
        TextS1 = ws.Cells(plage, 8)
            If TextS1 <> "" Then
                .AddItem ws.Range("H" & plage) & " " & ws.Range("I" & plage)
            End If
 
        TextS2 = ws.Cells(plage, 12)
            If TextS2 <> "" Then
                .AddItem ws.Range("L" & plage) & " " & ws.Range("M" & plage)
            End If
 
        TextS3 = ws.Cells(plage, 16)
            If TextS3 <> "" Then
                .AddItem ws.Range("P" & plage) & " " & ws.Range("Q" & plage)
            End If
        Next plage
    End With
 
    For plage = 0 To ComboBoxEleves.ListCount - 1
    For PlageTri = 0 To ComboBoxEleves.ListCount - 1
        If ComboBoxEleves.List(plage) < ComboBoxEleves.List(PlageTri) Then
            Eleves = ComboBoxEleves.List(plage)
            ComboBoxEleves.List(plage) = ComboBoxEleves.List(PlageTri)
            ComboBoxEleves.List(PlageTri) = Eleves
        End If
    Next PlageTri
    Next plage
End sub

[Nain porte koi]

si ma ComboBoxEleves trouve dans ma liste feuille 3 le même nom et que 4 cellule a droite est vrai.

Code :

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

If Me.ComboBoxEleves.Value = Worksheets("Feuil 3").Range("F" & plageElève).Offset(1, 4) Like True Then

Moi je tique que la formule, et en particulier sur le Like (je ne vois pas ce qu'il vient faire avec une valeur logique)
ça ne serait pas plutôt

Code :

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

If Me.ComboBoxEleves.Value = Worksheets("Feuil 3").Range("F" & plageElève) And Worksheets("Feuil 3").Range("F" & plageElève).Offset(0, 4) = True Then

A condition que Worksheets("Feuil 3").Range("F" & plageElève) contienne le nom
Attention aussi à l'offset (1,4) veut dire 1 ligne en dessous et 4 colonnes à droite

[Valtrase]

Bonjour à tous,
Bon en fait vous devez faire deux contrôles, la valeur de la zone de liste déroulante et la valeur de la cellule quatre colonnes à droite.
Comme l'a dis Nain porte koi vous devez modifier la valeur de l'Offset.
Attention lors de l'utilisation de l'opérateur LIKE il est sensible à la casse. donc pour éviter les problèmes qui pourraient en découler :

• Soit vous integrez la mention Option Compare Text en début de module
• Soit vous utilisez la fonction StrComp (Voir sur le code)

Code :

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

1
2
3
4
5
6
7
8
9
10
    For indexRow = 4 To 27                                ' // Utilisez plutôt des tableaux structurés et leurs propriété ListRows.count ou DataBodyRange
        With Worksheets("Feuil 3")
            '            If Me.ComboBoxEleves.value Like .Range("F" & plageElève).value And .Range("F" & plageElève).Offset(0, 4) = True Then
            If StrComp(Me.ComboBoxEleves.value, .Range("F" & indexRow).value, vbTextCompare) + 0 And .Range("F" & indexRow).Offset(1, 4) = True Then
                TextBoxParent.value = "PARENTS"             ' // Vous devriez plutôt utiliser une constante pour parents et rien.
            Else
                TextBoxParent.value = "RIEN"                ' // Vous devriez plutôt utiliser une constante pour parents et rien.
            End If
        End With
    Next indexRow

Et en plus général, VBA parle Anglais donc préférez les noms de variables sans accents, et avec des noms explicite (PlageEleve, serait plutôt un objet Range. Ici c'est un index de ligne)