Masquer des lignes en fontion d'un resultat sur une autre feuille

Bonjour à tous,

j'ai beau rechercher mon erreur je ne la trouve pas.

Je vous explique:

je veux masquer des lignes sur une feuille en fonction d'un resultat dans une cellule sur une autre feuille.

voila le code que j'ai fais

Sub Macro1()

'

' Macro1 Macro

'

If Sheets("Pricing Elec").Range("L44:O44").Value = "Solution client ajustée" Then

Sheets("Pricing Elec").Rows("12:15").EntireRow.Hidden = True

ElseIf Sheets(Worksheets(1)).Range("L44:O44").Value = "solution client" Then

Rows("12:15").EntireRow.Hidden = False

End If

End Sub

impossible j'ai l'erreur 13

si quelqu'un peut m'indiquer c'est parfait

Hello frantzh,

If Sheets("Pricing Elec").Range("L44:O44").Value = "Solution client ajustée" Then

C'est ça qui n'est pas bon faut que tu testes colonne par colonne.

Merci Bigdaddy154 pour ta réponse

mais quand tu dis "C'est ça qui n'est pas bon faut que tu testes colonne par colonne." je ne vois pas vraiment, je suis novice en VBA

si tu parle de range("L44:O44") il s'agit d'une celulle fusionnée où se trouve une liste déroulante.

mon but est de faire disparaitre dans une autre feuille des lignes si "solution client ajustée" apparait

Re frantzh,

Alors si c'est une cellule fusionnée pas besoin de toute la fusion indique juste L44 et ça devrait fonctionner.

Super,

maintenant quand je lance la macros et que la cellule est deja sur "solution client ajustée" les lignes disparaissent.

C'est déjà une étape de passée

mais j'aimerais pouvoir passer de "solution client ajustée" à "solution client" pour faire apparaitre et disparaitre en focntion de cela, ca là cela ne focntionne pas dans les 2 sens

Fait comme ceci frantzh,

Sub Macro1()
Dim test As String

test = Range("L44").Value

Select Case test
    Case Is = "Solution client ajustée"
        Sheets("Pricing Elec").Rows("12:15").EntireRow.Hidden = True
    Case Is = "solution client"
        Rows("12:15").EntireRow.Hidden = False
End Select
End Sub

merci effectivement j'ai rajouter un ou 2 détails car cela ne marchait pas

Sub Macro1()

Dim test As String

test = Sheets("pricing Elec").Range("L44").Value

Select Case test

Case Is = "Solution client ajustée"

Sheets("Pricing SaaS").Rows("12:15").EntireRow.Hidden = True

Case Is = "solution client"

Sheets("Pricing SaaS").Rows("12:15").EntireRow.Hidden = False

End Select

End Sub

elle disparaissent mais ne reviennent pas qaund je repasse en "solution client"

Pour moi ça fonctionne parfaitement si je devais avancer une idée je dirais que la où est écrits solution client y a pas un espace avant ou après par hasard.

c'est un miracle !!!!!!!!! ça fonctionne !!! mille merci il manquait une majuscule

est-il possible de lancer automatique la macro quand on ouvre le ficher et la laisser tourner en boucle.

Le but est de pouvoir switcher entre "solution client" et "solution client ajustée" pour faire apparaitre et disparaitre les lignes automatiquement

Va dans l'éditeur VBE double clic sur ta feuille Pricing Elec et ajoute ce code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("L44")) Is Nothing Then
        Call macro1
    End If
End Sub