X cases à cocher, 1 macro: action différente
Résolu
Cayl93
Messages postés
6
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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! :)
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
- Site x - Guide
- Sites X : Pornhub, YouPorn et Redtube sont de nouveau accessibles en France - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Photoscape x - Télécharger - Retouche d'image
- Direct x - Télécharger - Pilotes & Matériel
2 réponses
Bonjour,
Voir ceci pour les Checkbox
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-B
Voir ceci pour les Checkbox
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-B
Cayl93
Messages postés
6
Statut
Membre
Merci pour la réponse rapide, mais je ne comprend pas comment ça peut m'aider...
mais je ne comprend pas comment ça peut m'aider...
comme cela:
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