X cases à cocher, 1 macro: action différente

Résolu/Fermé

Cayl93 Messages postés 6 Date d'inscription lundi 28 novembre 2016 Statut Membre Dernière intervention 11 janvier 2017 - 11 janv. 2017 à 17:11
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 11 janv. 2017 à 22:42

Bonjour le forum!
Je cherche à affecter une macro à plusieurs cases à cocher et que lorsque la case à cocher est cochée, qu'une ligne soit masquée. La ligne à cacher est la même ligne sur laquelle se trouve la case à cocher, mais sur un autre onglet. Voici ce que j'ai pensé faire (et évidemment ne fonctionnant pas):

Sub MasquerLigne()

Dim MaCase As Checkbox
MaCase = ActiveCheckbox

If MaCase= True Then
Sheets("Sheet2").Rows(MaCase.Row).EntireRow.Hidden = True
ElseIf MaCase = False Then
Sheets("Sheet2").Rows(MaCase.Row).EntireRow.Hidden = False
End If

End Sub

Voilà mon problème! :)

A voir également:

X cases à cocher, 1 macro: action différente
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Direct x runtime - Télécharger - Pilotes & Matériel
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
11 janv. 2017 à 17:42

Bonjour,

Voir ceci pour les Checkbox

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-B

Cayl93 Messages postés 6 Date d'inscription lundi 28 novembre 2016 Statut Membre Dernière intervention 11 janvier 2017
11 janv. 2017 à 20:09

Merci pour la réponse rapide, mais je ne comprend pas comment ça peut m'aider...

Réponse 2 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
11 janv. 2017 à 22:42

mais je ne comprend pas comment ça peut m'aider...

comme cela:

Option Explicit
Private Sub CheckBox1_Change()
Select Case CheckBox1.Value
        Case True: Sheets("Feuil2").Rows(5).EntireRow.Hidden = True
        Case False: Sheets("Feuil2").Rows(5).EntireRow.Hidden = False
        Case Else: CheckBox1.Caption = "Null"
    End Select
End Sub

Discussions similaires

Dimensions L x l x H : comment lire ces infos ?

code couleur associé a une image

Excel, agrandir les cases a cocher

Vérité ou mensonge sur américan history x 2

Avis sur Pro Foot X

Discussions similaires

Newsletters