Problème Macro .EntireRow.Hidden

[GuillaumA]

Bonjour à tous,

J'ai un soucis....
J'avais une macro qui marchait très bien:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1
If Target.Address = "$C$13" Then Range("15:15,17:17,19:20").EntireRow.Hidden = Target > 0
If Target.Address = "$C$27" Then Rows("29:29").Hidden = Target > 0
If Target.Address = "$C$42" Then Rows("43:43").Hidden = Target > 0
If Target.Address = "$C$79" Then Range("80:80,83:83,89:89").EntireRow.Hidden = Target > 0

End Sub

Seulement voila, elle ne marche plus. Je ne comprend pas pourquoi.... Quelqu'un aurait-il la solution?

Merci!

Cordialement,
Guillaume A.

 

[GuillaumA]

Re : Problème Macro .EntireRow.Hidden

Voila exactement ce que j'ai:

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Count > 1 Then Exit Sub 'un peu de texte d'explication ici
If Target.Address = "$C$13" Then Range("15:15,17:17,19:20").EntireRow.Hidden = Target > 0
If Target.Address = "$C$27" Then Rows("29:29").Hidden = Target > 0
If Target.Address = "$C$42" Then Rows("43:43").Hidden = Target > 0
If Target.Address = "$C$79" Then Range("80:80,83:83,89:89").EntireRow.Hidden = Target > 0

Call Feuil13.Masquer2 'un peu de texte d'explication ici

End Sub

Vous remarquerez qu'il n'y a un appel à une autre macro. Cependant je doute que le bug viens d'ici étant donné que c'est comme ça depuis le début.

 

[GuillaumA]

Re : Problème Macro .EntireRow.Hidden

Les gens....

Ça remarche tout seul.... Après avoir fait une nouvelle sauvegarde sous un autre nom....
Et pourtant j'avais déja testé d'ouvrir d'ancienne version et le bug c'était mis sur toutes...

Vive Microsoft!