[XL-2016] Problème avec If et ELseIf

Problème avec If et ELseIf

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:

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

Bonjour,

Citation:

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 ?

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

Tout est en objet dans une userform.

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

Citation:

Envoyé par Philippe Tulliez

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:

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

Citation:

Envoyé par Maxou 10

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

Code:

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:

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

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:

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)