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.

 

[Pierrot93]

Re : Problème Macro .EntireRow.Hidden

onjour Guillaume,

cela veut dire quoi elle ne marche plus ? pas de déclenchement, message d'erreur ou pas résultat attendu...

bon après midi
@+

 

[Efgé]

Re : Problème Macro .EntireRow.Hidden

Bonjour GuillaumA, Pierrot,
Il me semble qu'il manque quelque chose comme:

If Target.Count > 1 [COLOR=red][B]Then Exit Sub[/B][/COLOR]

Cordialement

 

[Pierrot93]

Re : Problème Macro .EntireRow.Hidden

Re

A noter, cette ligne est incomplète...

If Target.Count > 1

il faudrait écrire :

If Target.Count > 1 Then Exit Sub

Edition ; bonjour fg

 

[GuillaumA]

Re : Problème Macro .EntireRow.Hidden

Bonjour Pierrot,


Cela m'affiche une erreur:

Erreur d'exécution '1004':
La méthode 'Range' de l'objet '_Worksheet' a échoué

Et cela me surligne en jaune:

Range("15:15,17:17,19:20").EntireRow.Hidden = Target > 0

 

[Dull]

Re : Problème Macro .EntireRow.Hidden

Salut GuillaumA le Forum

If Target.Count > 1

appel un Then et un End If

A voir...🙄

Edition: Salut Pierrot🙂, FG🙂 Z'etestroprapides

Bonne Journée

 

[Pierrot93]

Re : Problème Macro .EntireRow.Hidden

Re, bonjour Dull🙂

cette ligne fonctionne chez moi sous 2003

If Target.Address = "$C$13" Then Range("15:15,17:17,19:20").EntireRow.Hidden = Target > 0

pas de cellules fusionnées bien sur....

 

[Efgé]

Re : Problème Macro .EntireRow.Hidden

Re, Bonjour Dull 🙂,
Je confirme le post de pierrot, ce code fonctionne sous 2003, Windows XP:

[COLOR=blue]Private Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If[/COLOR] Target.Count > 1 [COLOR=blue]Then Exit Sub[/COLOR]
[COLOR=blue]If[/COLOR] Target.Address = "$C$13" [COLOR=blue]Then[/COLOR] Range("15:15,17:17,19:20").EntireRow.Hidden = Target > 0
[COLOR=blue]If[/COLOR] Target.Address = "$C$27" [COLOR=blue]Then[/COLOR] Rows("29:29").Hidden = Target > 0
[COLOR=blue]If[/COLOR] Target.Address = "$C$42" [COLOR=blue]Then[/COLOR] Rows("43:43").Hidden = Target > 0
[COLOR=blue]If[/COLOR] Target.Address = "$C$79" [COLOR=blue]Then[/COLOR] Range("80:80,83:83,89:89").EntireRow.Hidden = Target > 0
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[GuillaumA]

Re : Problème Macro .EntireRow.Hidden

Et bien... Cela marchai chez moi aussi (2003)..
Cellules simples, pas fusionnées... Et puis du jour au lendemain, cela ne marche plus... Le debuger se lance en m'affichant l'erreur montrée précédemment...

Je ne comprend pas...

 

[Pierrot93]

Re : Problème Macro .EntireRow.Hidden

Re,

le code est bien évidement exécuté sur la feuille dans laquelle est placée la procédure événementielle...

 

[Dull]

Re : Problème Macro .EntireRow.Hidden

Re le Fil

Pour Confirmer les dires de mes camarades 🙂🙂 pour Excel 2007 et 2010 Heu...mêmepunition 😀 cela fonctionne aussi.

Edit: Arf... Pierrot 😀 tu as toujours le mot pour rire mais c'est tellement vrai ...Bien Sur... Code complet à placer dans le Module de la Feuille

Bonne Journée

 

[Efgé]

Re : Problème Macro .EntireRow.Hidden

Re
Juste pour info personnelle,
Ce code fonctionne t il chez toi ?

[COLOR=blue]Private Sub[/COLOR] Worksheet_Change([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]If[/COLOR] Target.Count > 1 [COLOR=blue]Then Exit Sub[/COLOR]
Range("15:15,17:17,19:20").EntireRow.Hidden = Target.Address = "$C$13"
Rows("29:29").Hidden = Target.Address = "$C$27"
Rows("43:43").Hidden = Target.Address = "$C$42"
Range("80:80,83:83,89:89").EntireRow.Hidden = Target.Address = "$C$79"
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[GuillaumA]

Re : Problème Macro .EntireRow.Hidden

Non...............

Et oui le code se situe bien sur la bonne feuille lol

 

[GuillaumA]

Re : Problème Macro .EntireRow.Hidden

J'ai refais des tests.
Le code marche pour

If Target.Address = "$C$27" Then Rows("29:29").Hidden = Target > 0
If Target.Address = "$C$42" Then Rows("43:43").Hidden = Target > 0

Et non pour:

If Target.Address = "$C$13" Then Range("15:15,17:17,19:20").EntireRow.Hidden = Target > 0

If Target.Address = "$C$79" Then Range("80:80,83:83,89:89").EntireRow.Hidden = Target > 0

Je suppose que l'erreur viens de la formule Range comme ci montré en rouge.
Cela marchais avant et ce depuis 1mois et demi (Excel 2003)
Quelqu'un a une solution de secours à ce problème incompréhensible ?

Kesako lol...

 

[Dull]

Re : Problème Macro .EntireRow.Hidden

Re le Fil

Atouthasard...maisvraiment...àtouthasard

n'aurais-tu pas, aussi, une procédure

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR=Green]'Ton Code[/COLOR]
End Sub

c'est une possibilité de Bug

Bonne Journée