Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA : comment rendre des boutons d'options (Contrôles) invisibles ?

VBA : comment rendre des boutons d'options (Contrôles) invisibles ?

2 réponses
Avatar
Domi
Bonjour à tous,

J'ai fais ce petit bout de code qui me permet de rendre "inactifs" ou
"actifs" des boutons d'option en fonction de l'etat d'une case à cocher...
(ConnectSepCalc1). Cela marche bien mais je prefererais rendre ces même
boutons d'option invisibles plutot qu'inactifs...
Est faisable ?
Dans les propriétés des boutons d'option il y a bien le mot "visible" mais
je ne sais pas à quoi ça sert et si cela est exploitable...

If [ConnectSepCalc1].Value = True Then
Sheets("SAISIE").ConnectDroits.Enabled = True
Sheets("SAISIE").ConnectEquerres.Enabled = True
Else
Sheets("SAISIE").ConnectDroits.Enabled = False
Sheets("SAISIE").ConnectEquerres.Enabled = False
End If

Merci
Domi
Signaler un problème avec ce contenu

2 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
Domi
Quelle truffe je fais !
J'ai donné la réponse dans la question...
Si je met visible à la place d'enable ça donne exactement ce que je
voulais...
Désolé pour le dérangement.
Domi

"Domi" a écrit dans le message de
news:%
Bonjour à tous,

J'ai fais ce petit bout de code qui me permet de rendre "inactifs" ou
"actifs" des boutons d'option en fonction de l'etat d'une case à cocher...
(ConnectSepCalc1). Cela marche bien mais je prefererais rendre ces même
boutons d'option invisibles plutot qu'inactifs...
Est faisable ?
Dans les propriétés des boutons d'option il y a bien le mot "visible" mais
je ne sais pas à quoi ça sert et si cela est exploitable...

If [ConnectSepCalc1].Value = True Then
Sheets("SAISIE").ConnectDroits.Enabled = True
Sheets("SAISIE").ConnectEquerres.Enabled = True
Else
Sheets("SAISIE").ConnectDroits.Enabled = False
Sheets("SAISIE").ConnectEquerres.Enabled = False
End If

Merci
Domi





Avatar
Nicolas B.
Salut Domi,

La propriété Visible convient à ton problème.

Pour exploiter cette propriété à la place de Enabled, ton code devrait
avoir cette allure :

If [ConnectSepCalc1].Value = True Then
Sheets("SAISIE").ConnectDroits.Visible = True
Sheets("SAISIE").ConnectEquerres.Visible = True
Else
Sheets("SAISIE").ConnectDroits.Visible = False
Sheets("SAISIE").ConnectEquerres.Visible = False
End If


A+
Nicolas B.


Domi wrote:
Bonjour à tous,

J'ai fais ce petit bout de code qui me permet de rendre "inactifs" ou
"actifs" des boutons d'option en fonction de l'etat d'une case à cocher...
(ConnectSepCalc1). Cela marche bien mais je prefererais rendre ces même
boutons d'option invisibles plutot qu'inactifs...
Est faisable ?
Dans les propriétés des boutons d'option il y a bien le mot "visible" mais
je ne sais pas à quoi ça sert et si cela est exploitable...

If [ConnectSepCalc1].Value = True Then
Sheets("SAISIE").ConnectDroits.Enabled = True
Sheets("SAISIE").ConnectEquerres.Enabled = True
Else
Sheets("SAISIE").ConnectDroits.Enabled = False
Sheets("SAISIE").ConnectEquerres.Enabled = False
End If

Merci
Domi