Macro pour masquer une colonne selon le resultat d'une cellule

Knocky3 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
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!
A voir également:

1 réponse

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Il n'est pas possible de masquer des cellules mais uniquement des colonnes et/ou des lignes !
0
Knocky3 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour ta reponse Patrice,

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?
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Re,

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 Sub

Patrice
0
Knocky3 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour a tousvotre aide, j'ai pu resoudre mon probleme.
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780 > Knocky3 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
De rien, passe le post en résolu
0