Discussion :

[anarchiste-mouton]

Bonjour,

J'ai un formulaire qui contient 10 labels nommés de "Label100" à "Label109"

J'aimerais les rendre visible en fonction de la valeur d'une cellule qui leur est propre.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim maCell As Range, i As Byte, monLabel As Object
 
 i = 0
 
 For Each maCell In Worksheets("Feuil2").Range("G2:G11")
        monLabel = "Label10" & i
        If maCell.Value = "todo" Then monLabel.Visible = True
        i = i + 1
 Next

Je comprends que ça cloche à la ligne 7 mais je ne sais pas quelle syntaxe utiliser pour corriger ça, auriez-vous une piste?

[MarcelG]

Salut,

Pour désigner un contrôle, tu peux concaténer le nom en utilisant la méthode "Controls"
Pour utiliser 2 valeurs booléennes, il n'est pas nécessaires d'employer la méthode "If"

Code :

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

Worksheets("lafeuille").Visible = (Worksheets("Données").[A5] = 1)

Tu peux adapter cette méthode à tes contrôles.

Sur les formulaires, 2tutoriels de référence
Les Userforms
Les contrôles dans les Userforms/

[anarchiste-mouton]

Merci MarcelG,

je prends note de ton raccourci pour éviter le if, donc voici ce que j'obtiens avec la propriété .Controls()

Code :

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

1
2
3
4
5
6
7
8
 
Dim maCell As Range, i As Byte
    i = 0
    For Each maCell In Worksheets("Feuil2").Range("G2:G11")
        'If maCell.Value = "todo" Then Me.Controls("Label10" & i).Visible = True         = à la ligne du dessous
        Me.Controls("Label10" & i).Visible = (maCell = "todo")
        i = i + 1
    Next

Bonne fin de journée et encore merci !

[Invité]

Bonjour,

A tester :

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
 
Sub Test()
 
Dim ShLabel As Worksheet
Dim AireLabels As Range
Dim I As Byte, J As Integer
 
    Set ShLabel = Sheets("Feuil2")
 
    With ShLabel
         For J = 1 To 10
             For I = 1 To .Shapes.Count
                 If .Shapes(I).Name = "Label1" & J Then .Shapes(I).Visible = False
             Next I
          Next J
 
          Set AireLabels = .Range("G2:G11")
          With AireLabels
                 For I = 1 To .Count
                     If AireLabels(I) = "todo" Then
                        ShLabel.Shapes("Label1" & I).Visible = True
                     End If
                 Next I
          End With
 
    End With
 
    Set AireLabels = Nothing
    Set ShLabel = Nothing
 
End Sub

[MarcelG]

Salut Eric,

Ravi de te retrouver (je dois d'ailleurs te revenir pour une discussion que j'ai ouverte. Don't Act)

Que penses tu de

Code :

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

ShLabel.Shapes("Label1" & I).Visible = (AireLabels(I) = "todo")

[Invité]

Bonjour Marcel,

Comme tu as pu le deviner, mon code concerne des contrôles ActiveX directement implantés sur la feuille et non dans un userform. Ta ligne de code donne ce message :

Pièce jointe 424692

Pour mémoire :

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
 
Sub Test()
 
Dim ShLabel As Worksheet
Dim AireLabels As Range
Dim I As Byte, J As Integer
 
    Set ShLabel = Sheets("Feuil2")
 
    With ShLabel
         For J = 1 To 10
             For I = 1 To .Shapes.Count
                 If .Shapes(I).Name = "Label1" & J Then .Shapes(I).Visible = False
             Next I
          Next J
 
          Set AireLabels = .Range("G2:G11")
          With AireLabels
                 For I = 1 To .Count
                     Debug.Print AireLabels(I) = "todo"
                     ShLabel.Shapes("Label1" & I).Visible = (AireLabels(I) = "todo")
                    '  If AireLabels(I) = "todo" Then
                    '     ShLabel.Shapes("Label1" & I).Visible = True
                    '  End If
                 Next I
          End With
 
    End With
 
    Set AireLabels = Nothing
    Set ShLabel = Nothing
 
End Sub

[MarcelG]

Bonjour Eric,

Au temps pour moi.

A plus tard.