OVH Cloud OVH Cloud

Est-il possible de simplifier

3 réponses
Avatar
Poppy
Bonjour
Est-il possible de simplifier cette fonction ?

Private Sub OptionButton4_Click()
Tee_shirt_long.Visible = False
Tee_shirt_court.Visible = False
Tee_shirt_ceinture.Visible = False
OptionButton4.Visible = False
End Sub

Cordialement
Poppy

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

3 réponses

Avatar
anonymousA
Si ca peut te sembler plus simple

ActiveSheet.Shapes.Range(Array("Tee_shirt_long", "Tee_shirt_court",
"Tee_shirt_ceinture")).Visible = False

A+


Bonjour
Est-il possible de simplifier cette fonction ?

Private Sub OptionButton4_Click()
Tee_shirt_long.Visible = False
Tee_shirt_court.Visible = False
Tee_shirt_ceinture.Visible = False
OptionButton4.Visible = False
End Sub

Cordialement
Poppy

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!




Avatar
Pierre Fauconnier
Bonjour

Je pense que non, sauf si tu n'as pas donné tout le code et que tu as 36
contrôles Tee_Shirt_Quelquechose...

--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci


"Poppy" a écrit dans le message de news:

Bonjour
Est-il possible de simplifier cette fonction ?

Private Sub OptionButton4_Click()
Tee_shirt_long.Visible = False
Tee_shirt_court.Visible = False
Tee_shirt_ceinture.Visible = False
OptionButton4.Visible = False
End Sub

Cordialement
Poppy

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!




Avatar
Poppy
Oui, ça ne change pas grand chose.
Merci quand même de ton aide
Cordialement
Poppy

"anonymousA" a écrit dans le message de news:
45db03e2$0$5073$
Si ca peut te sembler plus simple

ActiveSheet.Shapes.Range(Array("Tee_shirt_long", "Tee_shirt_court",
"Tee_shirt_ceinture")).Visible = False

A+


Bonjour
Est-il possible de simplifier cette fonction ?

Private Sub OptionButton4_Click()
Tee_shirt_long.Visible = False
Tee_shirt_court.Visible = False
Tee_shirt_ceinture.Visible = False
OptionButton4.Visible = False
End Sub

Cordialement
Poppy

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!




--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
8 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!