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
A voir également:
- Excel - aide pour ma macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
2 réponses
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.
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.
