Simplification code ?

Le
Guy72
Bonjour
Est-il possible de simplifier ce code ?

Private Sub OptionButton1_Click()
Crocus.Visible = False
Jonquille.Visible = False
Rose.Visible = False
Pensée.Visible = False
etc..
Range("F6") = "Ok"
Range("F8") = "Ok"
Range("F10") = "Ok"
Range("F12") = "Ok"
etc
End Sub

Cordialement
Poppy

--
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
9 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!
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #4358431
Bonjour,

pas vraiment!

Cordialement.

lSteph

Bonjour
Est-il possible de simplifier ce code ?

Private Sub OptionButton1_Click()
Crocus.Visible = False
Jonquille.Visible = False
Rose.Visible = False
Pensée.Visible = False
etc..............
Range("F6") = "Ok"
Range("F8") = "Ok"
Range("F10") = "Ok"
Range("F12") = "Ok"
etc...............
End Sub

Cordialement
Poppy

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
9 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!




Jacky
Le #4358411
Bonjour,

Pour la deuxième partie, ceci peut-être, si c'est toujours par 2
"------------A adapter------
For i = 6 To 100 Step 2
Range("f" & i) = "OK"
Next
'------------
Salutations
JJ

"Guy72"
Bonjour
Est-il possible de simplifier ce code ?

Private Sub OptionButton1_Click()
Crocus.Visible = False
Jonquille.Visible = False
Rose.Visible = False
Pensée.Visible = False
etc..............
Range("F6") = "Ok"
Range("F8") = "Ok"
Range("F10") = "Ok"
Range("F12") = "Ok"
etc...............
End Sub

Cordialement
Poppy

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
9 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!




Guy72
Le #4358241
Bonjour
Ok, merci de votre aide.
Cordialement
Guy72

"Jacky"
Bonjour,

Pour la deuxième partie, ceci peut-être, si c'est toujours par 2
"------------A adapter------
For i = 6 To 100 Step 2
Range("f" & i) = "OK"
Next
'------------
Salutations
JJ

"Guy72"
Bonjour
Est-il possible de simplifier ce code ?

Private Sub OptionButton1_Click()
Crocus.Visible = False
Jonquille.Visible = False
Rose.Visible = False
Pensée.Visible = False
etc..............
Range("F6") = "Ok"
Range("F8") = "Ok"
Range("F10") = "Ok"
Range("F12") = "Ok"
etc...............
End Sub

Cordialement
Poppy

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
9 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.
9 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!


Publicité
Poster une réponse
Anonyme