Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Simplification code ?

Simplification code ?

3 réponses
Avatar
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!
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LSteph
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!




Avatar
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" a écrit dans le message de news:

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!




Avatar
Guy72
Bonjour
Ok, merci de votre aide.
Cordialement
Guy72

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

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" a écrit dans le message de news:

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!