Excel - aide pour ma macro

Fermé

Tine - 29 oct. 2008 à 19:58
Ankhsuamon Messages postés 47 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 17 août 2009 - 29 oct. 2008 à 20:50

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

A voir également:

Excel - aide pour ma macro
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

2 réponses

Réponse 1 / 2

Tine
29 oct. 2008 à 20:09

Apparemment l'erruer viendrai de "Projets", mais pourtant le nom de la feuille est bine exacte...

Réponse 2 / 2

Ankhsuamon Messages postés 47 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 17 août 2009 2
29 oct. 2008 à 20:50

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.

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters