XL pour MAC Masquer / Afficher des lignes

Badaboumboum · 9 Mars 2020

Bonjour à vous tous,

J'ai parcouru ce forum pour trouver une solution à mon problème. En vain.
J'ai testé pas mal de choses mais sans succès. A mon avis, en raison des adaptations nécessaires à mon besoin ou alors suite à des erreurs de manipulation.

Je me lance donc pour vous exposer mon problème en espérant que vous pourriez m'aider.

Je souhaite que si la valeur de la cellule J7 (obtenue par utilisation d'une liste déroulante en I7) est 0 alors, les lignes 8 à 13 soient masquées.
Si J7 redevient (ou reste) égale à 1 alors les lignes 8 à 13 redeviennent (ou restent) visibles.

Je suis persuadé que ce n'est pas insurmontable mais je bloque et tout ce que j'ai essayé ne fonctionne pas.
J'en suis même à me demander si ce n'est pas la manière dont je rentre le code ou paramètre mes macros qui disfonctionne.

En espérant que vous puissiez m'aider, je vous souhaite une bonne journée.

sylvanu · 10 Mars 2020

Re,
Un exemple en PJ. La macro reste très simple et classique:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("I7")) Is Nothing Then
        If Target.Value = "oui" Then
             Rows("8:13").Hidden = True
        Else:
            Rows("8:13").Hidden = False
        End If
    End If
End Sub

A vous de l'adapter en fonction de vos besoins.

sylvanu · 9 Mars 2020

Bonjour Badaboumboum,
Votre fichier ne contient aucune macro.
Par contre vous avez deux modules qui portent des noms bizarres mais qui sont vides :

Je ne sais pas d'où vient cette accentuation.

Badaboumboum · 10 Mars 2020

Bonjour sylvanu,

J'ai effacé systématiquement mes "tests" de macro avant d'en retenter de nouveaux. C'est pourquoi ce fichier en est dépourvu.
Par contre, le ménage n'a pas été fait correctement vu qu'il reste des modules.
En revanche, je n'ai pas de problème d'accentuation chez moi.

sylvanu · 10 Mars 2020

Bonjour,
je m'attendais à avoir votre code :

J'en suis même à me demander si ce n'est pas la manière dont je rentre le code ou paramètre mes macros qui disfonctionne.

Je vais regarder.

sylvanu · 10 Mars 2020

Re,
Un exemple en PJ. La macro reste très simple et classique:

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("I7")) Is Nothing Then
        If Target.Value = "oui" Then
             Rows("8:13").Hidden = True
        Else:
            Rows("8:13").Hidden = False
        End If
    End If
End Sub

A vous de l'adapter en fonction de vos besoins.

eriiic · 10 Mars 2020

Bonjour à tous,

les accents sont dû à un passage du fichier sur un Mac.
eric

Badaboumboum · 11 Mars 2020

Bonjour,

Ca fonctionne à merveille.

Merci à vous d'avoir pris le temps de regarder.

Bonne journée.

job75 · 11 Mars 2020

Bonjour à tous,

@sylvanu ceci est quand même plus simple :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I7")) Is Nothing Then Rows("8:13").Hidden = Target = "oui"
End Sub

A+

sylvanu · 11 Mars 2020

Bonjour tout le monde,
@job75 : Sans doute, c'est plus simple.
Cependant comme le dit Badaboumboum :

Je suis persuadé que ce n'est pas insurmontable mais je bloque et tout ce que j'ai essayé ne fonctionne pas.

J'ai trouvé qu'une simple structure en IF THEN ELSE était plus explicite, et plus maintenable s'il désirait l'enrichir ou la modifier.

XL pour MAC Masquer / Afficher des lignes

Badaboumboum

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Badaboumboum

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

eriiic

XLDnaute Barbatruc

Badaboumboum

XLDnaute Nouveau

job75

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Discussions similaires