Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment supprimer ou masquer des bordures de zones de groupe dans Excel?

Dans Excel, vous pouvez créer des boîtes de groupe pour grouper plusieurs boutons d'option pour faire une question à choix multiple, donc il y aura des boîtes de groupe autour des boutons d'option, et les lignes de boîte semblent malpropres parce que les lignes ne sont pas aussi droites que les cellules. Cet article, je vais vous présenter quelques astuces pour masquer ou supprimer les bordures ou les lignes des boîtes de groupe pour rendre la feuille de calcul plus clairement vu comme capture d'écran suivante montré:

doc masquer les bordures de la boîte de groupe 1

Supprimer ou masquer les bordures des zones de groupe avec un code

Supprimer ou masquer les bordures des zones de groupe avec le code VBA


flèche bleue droite bulle Supprimer ou masquer les bordures des zones de groupe avec un code


Pour masquer ou supprimer les lignes de bordure des boîtes de groupe, voici un script qui peut vous aider, faites comme ceci:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Puis appuyez Ctrl + G ouvrir le Immédiat fenêtre, dans le Immédiat fenêtre, tapez ce code: activesheet.groupboxes.visible = false, voir capture d'écran:

doc masquer les bordures de la boîte de groupe 2

3. Après avoir entré le code, puis appuyez sur Entrer clé, et maintenant, vous pouvez voir les frontières des boîtes de groupe sont cachés immédiatement.

Note: Pour afficher à nouveau les bordures, veuillez appliquer ce code: activesheet.groupboxes.visible = trueet appuyez sur Entrer clé.


flèche bleue droite bulle Supprimer ou masquer les bordures des zones de groupe avec le code VBA

Outre le code ci-dessus, voici un autre code VBA qui peut également vous aider, s'il vous plaît faites comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: supprime ou masque les bordures des zones de groupe:

Sub ToggleVisible()
Dim myGB As GroupBox
For Each myGB In ActiveSheet.GroupBoxes
myGB.Visible = False
Next myGB
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, toutes les bordures des boîtes de groupe dans la feuille de calcul active sont cachées à la fois, voir capture d'écran:

doc masquer les bordures de la boîte de groupe 1



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ManiE07CM · 10 months ago
    hello guys,
    i need to select multiple button to sum my scores. if is this possible pls suggest my a idea.?
  • To post as a guest, your comment is unpublished.
    Angus · 2 years ago
    Very nice piece of code, thanks. Helped to sort out client problem!

    Can toggle it:

    Sub ToggleVisible()
    Dim myGB As GroupBox
    For Each myGB In ActiveSheet.GroupBoxes
    myGB.Visible = IIf(myGB.Visible, False, True)
    Next myGB
    End Sub