Excel - aide pour ma macro
Tine
-
Ankhsuamon Messages postés 50 Statut Membre -
Ankhsuamon Messages postés 50 Statut Membre -
Bonjour,
Quand je lance ma macro qui doit cacher des lignes entières sur la feuille "Projets", il ya l'erreur suivante : "Run time rror 424 Object required" (objet requis en francais). Savez vous pourquoi????
Sub Action(NomBouton As String, Plage As String)
Dim bout As ToggleButton
With ActiveSheet.OLEObjects(NomBouton).Object
If .Value Then .Caption = "+" Else .Caption = "-"
Projets.Range(Plage).EntireRow.Hidden = .Value
End With
End Sub
Private Sub ToggleButton1_Click()
Action "ToggleButton1", "A3:A9"
End Sub
Tine
Quand je lance ma macro qui doit cacher des lignes entières sur la feuille "Projets", il ya l'erreur suivante : "Run time rror 424 Object required" (objet requis en francais). Savez vous pourquoi????
Sub Action(NomBouton As String, Plage As String)
Dim bout As ToggleButton
With ActiveSheet.OLEObjects(NomBouton).Object
If .Value Then .Caption = "+" Else .Caption = "-"
Projets.Range(Plage).EntireRow.Hidden = .Value
End With
End Sub
Private Sub ToggleButton1_Click()
Action "ToggleButton1", "A3:A9"
End Sub
Tine
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
Apparemment l'erruer viendrai de "Projets", mais pourtant le nom de la feuille est bine exacte...
-
Hello,
En fonction de ce que j'ai compris ton code doit bloquer sur la synthaxe :
Projets.Range(Plage).EntireRow.Hidden = .Value
Projets est le nom de la feuille, donc tu dois lui preciser sinon Projets est considere comme objet. Donc
Sheets("Projets").Range(Plage).EntireRow.Hidden = .Value
me semble plus correct.
