Utilisation des propriétés d'un objet avec une variable

Résolu
Signaler
Messages postés
99
Date d'inscription
mardi 6 avril 2004
Statut
Membre
Dernière intervention
4 décembre 2008
-
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
-
Bonjour, je voulais savoir s'il était possible de mettre le nom d'un control (bouton) dans une variable et d'utilisé ensuite les propriétés de ce control avec la variable.

Exemple:

Dim Temp as string
Temp = "Commande1"

Temp.Visible = False

Cette façon ne marche pas

Merci de votre aide

Antoine

6 réponses

Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
Option Explicit

Private Sub Command1_Click()
    Dim Obj As Object
    Set Obj = Me.Controls("Command1")
    MsgBox Obj.Visible
End Sub


@+

E.B.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
Non je ne pense pas.....

It@li@
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Une variable de type string n a pas de propriete Visible....

Essai de le mettre dans une Sub Par exemple:

Private sub VisibleChange(Obj as object, VisibleValue as Boolean)
Obj.Visible = VisibleValue
End Sub

J ai essayer et ca marche, apres je sais aps si c est exactement ce que tu voulais ;)

@+

-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------

:big)
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Oubli...

Cela ne marchera que si l objet passe en parametre a une propriete Visible...
-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------

:big)
Messages postés
1016
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
24 juin 2008

salut, essais ca :

Private Sub Command1_Click()
Dim mObj As Object

Set mObj = Command1

mObj.Visible = False
MsgBox mObj.Name & vbCrLf & "est rendu invisible"

End Sub

Bonne prog, poele_a_frire@hotmail.com
liquide
Messages postés
1016
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
24 juin 2008

jrivet, j'ai essayé et ca passe(enfin .. chez moi)

Private Sub VisibleChange(Obj As Object, VisibleValue As Boolean)
    Obj.Visible = VisibleValue
End Sub

Private Sub Command2_Click()
    VisibleChange Command2, False
End Sub

Bonne prog, poele_a_frire@hotmail.com
liquide