Excel : VBA - Erreur 424

Résolu
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.

1 réponse

  1. 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
    1. 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.
    2. 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
    3. En effet !!! C'est ce "s" qui me posait ce dernier problème ! Merci beaucoup. Cela fonctionne correctement maintenant.