XL pour MAC Masquer / Afficher des lignes

[Badaboumboum]

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]

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]

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]

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]

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

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]

Bonjour à tous,

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

 

[Badaboumboum]

Bonjour,

Ca fonctionne à merveille.

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

Bonne journée.

 

[job75]

Bonjour à tous,

@sylvanu ceci est quand même plus simple :

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]

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.