Sujet Précédent Sujet Suivant

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

Fermé
Knocky3 Messages postés 3 Date d'inscription mardi 3 mai 2016 Statut Membre Dernière intervention 3 mai 2016 - 3 mai 2016 à 15:51
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 5 mai 2016 à 10:07
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

Réponse 1 / 1
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
3 mai 2016 à 16:26
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 mardi 3 mai 2016 Statut Membre Dernière intervention 3 mai 2016
3 mai 2016 à 16:32
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
3 mai 2016 à 16:47
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 mardi 3 mai 2016 Statut Membre Dernière intervention 3 mai 2016
3 mai 2016 à 17:10
Merci pour a tousvotre aide, j'ai pu resoudre mon probleme.
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779 > Knocky3 Messages postés 3 Date d'inscription mardi 3 mai 2016 Statut Membre Dernière intervention 3 mai 2016
5 mai 2016 à 10:07
De rien, passe le post en résolu
0