AUTOMATISATION MASQUAGE / AFFICHAGE LIGNES DANS EXCEL

Bonjour,

Je suis nouveau sur le forum que j'ai découvert récemment. Par consultation des messages laissés par chacun, j'ai déjà pu régler quelques problèmes qui pour moi étaient bien épineux avant de vous connaitre. Aussi, butant sur l'un d'entre eux, je me suis décidé à vous le soumettre.

Mon problème : je réalise actuellement une grille de chiffrage tarifaire qui comporte, dans une même feuille EXCEL :

- une première partie qui établi la liste et les prix inhérents de manière exhaustive de tous les équipements pouvant entrer dans la composition d'un produit donné. En sélectionnant par l'intermédiaire d'une liste déroulante chacun des équipements, liste placée sur chacune de leur ligne, je compose et je chiffre donc le produit proposé au client (produit dit "de base") et je défini les variantes ou options que nous allons lui proposer. Ce dernier choix provoque le chiffrage dans la seconde partie de ces variantes ou options.

- une seconde partie qui affichera donc les options et variantes retenues ainsi que le détails de leur chiffrage.

Pour ce faire, la liste déroulante indiquée ci-dessus permet un choix entre 3 valeurs :
- la valeur est à "1" : l'équipement est intégré au chiffrage de base
- la valeur est à "OPL" : l'équipement est intégré dans une variante qui elle peut être composée de plusieurs équipements; le chiffrage correspondant est provoqué par la saisie de cette valeur.
- la valeur est à "OPS" : l'équipement est proposé en option séparément. Le chiffrage correspondant est provoqué par la saisie de cette valeur.

Pour imager mon projet :
valeur 1 :je propose une cuisine complète selon un plan de base,
valeur : "OPL" : j'ajoute un meuble supplémentaire complet comprenant un caisson + des portes + des ferrures
valeur "OPS" : je remplace les façades des meubles blanches dans le prix de base par des façades "vieux chêne" en option,

J'ai donc prévu dans la seconde partie autant de zone que d'options ou variantes possibles.
Jusque là tout fonctionne mais je souhaite maintenant , afin de réduire la taille de l'impression de ce document, car naturellement nous n'utilisons que quelques options ou variantes chez un client, masquer les options et variantes non proposées donc inutiles

Pour ce faire, j'ai déterminé des groupes d'options (c'est à dire dans mon exemple les différents types de portes que je peux proposer), puis pour chacun de ces groupes, codifié l'état du groupe dans une colonne séparée ("o" : pas de variante de porte proposée ou équipement livré sans porte, "1" : une seule variante de porte proposée; "2" : 2 variantes de portes proposées ......) Ce codage se fait à partir des fonctions SI, appuyé sur la valeur retenue pour chacun des équipements concernés.

Dans l'exemple qui suit, pour un groupe donné, le groupe se compose de 3 équipements proposables et j'ai donc 2 variantes possibles. Le code du groupe se trouve dans la cellule AA36. La variante N°1 se trouve sur les lignes 271 à 278 et la N° 2 sur les lignes 279 à 285. J'ai inclus dans ma feuille la macro suivante :


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AA$36" Then Macro1
End Sub

Sub Macro1()
''Masque les lignes 271 à 285 si la case AA36 est égal à zéro
If Range("aa36") = "0" Then
Rows("271:285").Select
Selection.EntireRow.Hidden = True
End If

''Masque les lignes 279 à 285 si la case AA36 est égal à un
If Range("aa36") = "1" Then
Rows("279:285").Select
Selection.EntireRow.Hidden = True
End If

'Affiche les lignes 271 à 285 si la case AA36 est égal à deux
If Range("aa36") = "2" Then
Rows("271:285").Select
Selection.EntireRow.Hidden = False
End If

' Macro1 Macro
' Macro enregistrée le 04/03/2013 par JM REVEL

End Sub

La macro1 fonctionne bien mais je ne parvient pas, par l'instruction Private Sub Worksheet_Change(ByVal Target As Range), à automatiser le mascage/affichage des lignes par simple choix de la valeur dans la liste déroulante de départ. Je fais sans doute une erreur mais laquelle ?

Pourriez-vous m'aider?
Je suis comme vous vous en doutez surement, débutant dans ce langage VBA mais tente malgré le manque de temps de me passionnner pour lui car manifestement il sera bien souvent LA solution à mes problèmes.

D'avance merci à tous