Macro pour masquer une colonne selon le resultat d'une cellule
Knocky3
Messages postés
3
Statut
Membre
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
Bonjour a tous,
Voila je vous explique mon probleme, j'ai un excel sur lequel je doit entrer soit un 0 soit un 1 dans la cellule D3, si je met un 0 je voudrais masquer les cellules D12 a D74 et si je met un 1 dans la cellule D3 je voudrais alors que les cellules E12 a E74 soit masquer. Je cherche depuis ce matin en creant different macro mais je n'arrive pas a y parvenir, l'un d'entre vous pourrait-il m'aider s'il vous plait?
Desole pour les accents, je travail sur un QWERTY et je ne le maitrise pas encore.
Si vous souhaitez plus d'information sur mon probleme demandez moi.
Merci d'avance!
Voila je vous explique mon probleme, j'ai un excel sur lequel je doit entrer soit un 0 soit un 1 dans la cellule D3, si je met un 0 je voudrais masquer les cellules D12 a D74 et si je met un 1 dans la cellule D3 je voudrais alors que les cellules E12 a E74 soit masquer. Je cherche depuis ce matin en creant different macro mais je n'arrive pas a y parvenir, l'un d'entre vous pourrait-il m'aider s'il vous plait?
Desole pour les accents, je travail sur un QWERTY et je ne le maitrise pas encore.
Si vous souhaitez plus d'information sur mon probleme demandez moi.
Merci d'avance!
A voir également:
- Macro pour masquer une colonne selon le resultat d'une cellule
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Resultat foot - Télécharger - Vie quotidienne
- Masquer une conversation whatsapp - Guide
J'ai decaler le contenu des cellules D12 a D74 dans les cellules E12 a E74 et j'ai fait de meme pour le contenu des cellulees E12 a E74 vers les cellules F12 a F74.
A present aurais tu une solution a mon probleme?
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("D3")) Is Nothing Then Exit Sub If Range("D3").Formula = 0 Then Columns("E").Hidden = True Columns("F").Hidden = False ElseIf Range("D3").Formula = 1 Then Columns("E").Hidden = False Columns("F").Hidden = True Else Columns("E").Hidden = False Columns("F").Hidden = False End If End SubPatrice