Microsoft 365 Masquer ligne-macro

[DJARNAUD]

Bonjour à tous,

j'ai créé la macro ci-dessous, elle fonctionnait trés bien mais à présent j'ai le message d'erreur suivant:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0

Rows("17:18").EntireRow.Hidden = False
If Range("C12").Value = "PLT" Then Worksheets("Projection").Rows("17:18").EntireRow.Hidden = True
If Range("C12").Value = "CBI" Then Worksheets("Projection").Rows("17:18").EntireRow.Hidden = False

Application.ScreenUpdating = -1
End Sub

"Impossible de définir la propriété Hidden de la classe Range.

Pourriez vous m'aider?

Merci

 

[Jacky67]

Bonjour à tous,

j'ai créé la macro ci-dessous, elle fonctionnait trés bien mais à présent j'ai le message d'erreur suivant:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0

Rows("17:18").EntireRow.Hidden = False
If Range("C12").Value = "PLT" Then Worksheets("Projection").Rows("17:18").EntireRow.Hidden = True
If Range("C12").Value = "CBI" Then Worksheets("Projection").Rows("17:18").EntireRow.Hidden = False

Application.ScreenUpdating = -1
End Sub

"Impossible de définir la propriété Hidden de la classe Range.

Pourriez vous m'aider?

Merci

Bonjour,
Est-ce que C12 est dans la feuille "Projection" ?

 

[DJARNAUD]

Bonjour,

Non, C12 se trouve dans une autre feuille que la feuille "projection".

 

[Jacky67]

Re..
Tester ceci

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False: Application.EnableEvents = False
    With Worksheets("Projection")
        .Rows("17:18").Hidden = False
        If UCase(Range("C12").Value) = "PLT" Then .Rows("17:18").Hidden = True
    End With
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub

Si cela ne devait pas fonctionner, mettre le classeur en ligne

 

[DJARNAUD]

ça a refonctionné tout seul, donc je garde votre macro sous le coude au cas ou merci beaucoup!

 

[DJARNAUD]

Je viens d'essayer, mais la nouvelle macro que vous me proposez ne fonctionne pas non plus. J'ai un message d'erreur.

merci

 

[Jacky67]

Je viens d'essayer, mais la nouvelle macro que vous me proposez ne fonctionne pas non plus. J'ai un message d'erreur.

merci

Re..
Encore faudrait-il savoir, quel message d'erreur ?
Comme déjà écrit plus haut dans ce fil...
//*mettre le classeur en ligne*//

 

[Staple1600]

Bonsoir le fil, DJARNAUD, Jacky67

Si j'ai bien compris, est-ce le bout de code ci-dessous fait ce qu'il est censé faire?

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Rows("17:18").EntireRow.Hidden = Switch([C12] = "PLT", True, [C12] = "CBI", False)
End Sub

 

[Jacky67]

Bonsoir le fil, DJARNAUD, Jacky67

Si j'ai bien compris, est-ce le bout de code ci-dessous fait ce qu'il est censé faire?

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Rows("17:18").EntireRow.Hidden = Switch([C12] = "PLT", True, [C12] = "CBI", False)
End Sub

Hello JM
Switch, j'avoue que je n'utilise pas beaucoup, à tort certainement
Néanmoins, "Me.Rows("17:18")" est sur une autre feuille que [c12], alors
Shetts("Projection").Rows("17:18")……...

 

[Staple1600]

Bonsoir le fil,

Jacky67
J'avais compris que les lignes à masquées et C2 étaient sur la même feuille.
C'est comme cela que j'ai testé
Et comme j'avais un doute, j'ai commencé mon précédent message par une petite question

 

[DJARNAUD]

Bonjour à tous,

Le message d'erreur n'apparait pas toujours, par conséquent je n'ai pas pu le "saisir" pour le moment.
Ci-joint mon tableau.

D'avance merci pour votre aide

 

[Staple1600]

Bonsoir le fil

DJARNAUD
Pourquoi n'y a-t-il aucune procédure Private Sub Worksheet_Change(ByVal Target As Range)
Ni aucune feuille nommée Projection?


Si le code est disposé au bon endroit (donc dans le code de la feuille idoine)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Me.Rows("17:18").EntireRow.Hidden = Switch([C12] = "PLT", True, [C12] = "CBI", False)
End Sub

Il se passe des choses sur la feuille quand on change la valeur de la cellule C12
(avec la liste déroulante)