Discussion :

[stranger21]

Bonjour,

J'essaie de faire apparaître et et disparaître des Labels dans userform quant on clic sur un bouton (les noms des labels sont donnes via des variables ex : nomLabel = "label1"), mais le code me retourne "Membre de méthode ou de données introuvable".

Malgré de nombreuses tentatives je ne suis pas parvenu a y arriver, et la je sèche un peu et je ne sais pas si c'est ma syntaxe ou ma logique qui ne va pas. (J'en viens meme a me demander si c est pas ma machine qui deconne)

Pourriez vous s'il vous plait aiguiller ma recherche?

voici mon code simplifie :

*dans mon userform qui contient un label nome "label1"*

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
nomLabel = "label1"
Me.OLEObjects(nomLabel).Object.Visible = True
End Sub

Je suis ouvert a toute suggestion, merci d'avance pour votre aide!

[mercatog]

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
nomLabel = "label1"
Me.Controls(nomLabel).Visible = True
End Sub

[patricktoulon]

l'utilisation de la collection OLEobjects est prevue pour les activX dans un sheets pas dans un userform

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
Dim nomlabel As String
nomlabel = "Label1"
Me.Controls(nomlabel).Visible = True
End Sub

'OU!!!en mode object

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
Dim Monlabel As MSForms.Label 
Set Monlabel = Label1
Monlabel.Visible = True
End Sub

désolé Mercatog on c'est croisé

[OrDonc]

Bonsoir

voir (Label ou autres) :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
  Dim n As Integer
  On Error Resume Next        'numéro(s) inexistant(s)
  For n = 1 To 100
    With Me("Label" & n)
      .Visible = Not .Visible 'j'te vois, j'te vois pas
    End With
  Next
End Sub

[stranger21]

Un tout grand merci, vos codes fonctionnent impeccablement.

Je peux enfin terminer mon projet!

Bonne continuation a tous et toutes!