Excel : VBA - Erreur 424

Résolu/Fermé
JBR - 6 déc. 2011 à 11:45
 JBR - 6 déc. 2011 à 13:34
Bonjour,

J'essai de faire fonctionner une macro qui en appelle une autre avec pour objectif de pouvoir appeler plusieurs dizaines de macro. Cela me permettra à terme de ne plus avoir l'erreur de macro trop longue.

Hors en essayant, j'ai une erreur 424 qui apparaît. Voici la macro :

Sub Worksheet_Change(ByVal Target As Range)
With Sheets("CBF")

Dim AuditPieuvre As Variant
AuditPieuvre = ("E32")
Call Auditorium(AuditPieuvre)

End With
End Sub
Sub Auditorium(ByVal Target As Variant)

If AuditPieuvre = "Bur/Pieuvre" Then
ActiveSheets.Rows("61:67").Hidden = True

ElseIf AuditPieuvre <> "Bur/Pieuvre" Then
ActiveSheets.Rows("61:67").Hidden = False

End If
End Sub


Quand l'erreur apparaît, c'est sur la ligne : ActiveSheets.Rows("61:67").Hidden = False

Auriez-vous une idée ?

Merci beaucoup.

A voir également:

1 réponse

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
6 déc. 2011 à 12:18
Bonjour,

C'est une solution

Sub Auditorium(ByVal Target As Variant)
If Range(Target) = "Bur/Pieuvre" Then
ActiveSheet.Rows("61:67").Hidden = True
ElseIf Range(Target) <> "Bur/Pieuvre" Then
ActiveSheet.Rows("61:67").Hidden = False
End If

Bonne suite
0
Merci beaucoup. Je viens d'essayer et maintenant il me renvoi l'erreur 424 mais sur la ligne :
ActiveSheets.Rows("61:67").Hidden = True

En tout cas, merci de cette idée à laquelle je n'avais pas pensée.
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
6 déc. 2011 à 13:26
RE
ActiveSheet.Rows pas de s a ActiveSheet

AuditPieuvre est une variable locale de la subroutine Worksheet_Change

Vous passez AuditPieuvre en parametre, ce qui se traduit par le parametre Target pour la subroutine Auditorium
0
En effet !!! C'est ce "s" qui me posait ce dernier problème ! Merci beaucoup. Cela fonctionne correctement maintenant.
0