Masquer et démasquer des lignes

Bonjour à tous,.

Je souhaiterai masquer ou démasquer des lignes sur le Feuillet Calendrier de procédure.

Notamment :

Si I5 = Non, masquer lignes 6 et 7.

Si I5 = Oui, démasquer lignes 6 et 7

Si I8 = Non, masquer lignes 9 et 10.

Si I8 = Oui, démasquer lignes 9 et 10.

Un code VBA me semble indispensable mais je suis une truffe en la matière.

Merci par avance.

Bonne journée,

Bonjour,

il y a sans doute la réponse sur ce topic, quelques codes à tester ;

https://forum.excel-pratique.com/excel/code-vba-pour-cacher-des-lignes-19922

Ceci m'a l'air bon ;

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("I5").Value = "non" Then
    Rows("6:7").Hidden = True
Else
    Rows("6:7").Hidden = False
End If
If Range("I8").Value = "non" Then
    Rows("9:10").Hidden = True
Else
    Rows("9:10").Hidden = False
End If
End Sub

bonjour le fil,

@Doux Rêveur,

votre macro, un peu plus courte (plus lisible?)

Private Sub Worksheet_Change(ByVal Target As Range)
     Rows("6:7").Hidden = (StrComp(Range("I5").Value, "non", 1) = 0)
     Rows("9:10").Hidden = (StrComp(Range("I8").Value, "non", 1) = 0)
End Sub

Merci à vous deux.

Je suis une truffe, pour rappel !!! :)

Comment dois-je faire pour l'insérer en VBA?

J'ai essayé de passer par Développeur, Visual Basic, collé vos codes, et enregistré.

Quand je teste, ça me donne Erreur de compilation End Sub attendu...

Merci pour votre aide.

Il faut bien double-cliquer sur la feuille pour laquelle ce code est fait dans la liste à gauche dans la fenêtre VBA, donc "Feuil1" s'il n'y a qu'une feuille. Puis coller le code et sauver.

La version de BsAlv est mieux que la mienne, plus courte, même si le résultat est le même.

CA Y EST !!!!

Ouh pinaise, ce fut rude...

Merci à vous deux.

je classe en résolu.