Problème avec propriété visible d'un objet sur userform.

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:

---

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!

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() nomLabel = "label1" Me.Controls(nomLabel).Visible = True End Sub

---

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

Code:

---

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:

---

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é

Bonsoir

voir (Label ou autres) :

Code:

---

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

---

Un tout grand merci, vos codes fonctionnent impeccablement.

Je peux enfin terminer mon projet!

Bonne continuation a tous et toutes!