barre d'outils personnalisée

[Max]

Bonjour à tous!!

Merci encore pour tous ces tuyaux et les aides que vous pouvez apporter aux novices de VBA comme moi.

J'ai une question sur un exo 'scolaire' sur VBA.

Je dois créer une barre d'outils personnalisée composée des contrôles suivants :
- contrôle prédéfini pattern
- contrôle prédéfini pivottable et pivotchart
- controle personnalisé qui sélectionne toutes les cellules dont le contenu est une formule
- un contrôle de type popup qui comprend deux contrôles personalisés (un contrôle qui fait la somme de toutes les cellules de la plage à laquelle appartient la cellule active, un autre qui affiche une inputbox pour avoir un choix de couleur)

voilà ce que j'ai fait...
je bloque sur trois points :
- les ID des contrôles pivottable et pivotchart
- la procédure sub pour faire la somme des cellules de la plage à laquelle appartient la cellule active
- la formule specialcells pour les cellules dont le contenu est une formule

en gros, j'ai mis les problèmes avec un '

merci !

 

[max]

voilà la pièce jointe ...

 

[max]

piece jointe [file name=Classeur1_20060308193451.zip size=9865]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060308193451.zip[/file]

 

[Luki]

Bonsoir Max,

je te propose pour commencer par jeter un coup d'oeil sur ce lien:
Ce lien n'existe plus

Il concerne justemet les FaceID, tu y touveras une macro pour les récuperer.

Pour le reste, je jette un oeil sur ton fichier.

A+

 

[Luki]

Re Max,

Jai besoin de précisions:

Que cherches tu , l'ID des contrôles prédéfinis ou leur FaceID (cest à dire l'image du bouton) car tu peux affecter nimporte quel faceID sur un bouton.

Dans ta macro, je vois que tu affectes FaceID, est-ce bien ce que tu veux?

 

[Luki]

Re,

Pour récupérer l'ID d'un contrôle prédéfini, tu peux faires ansi:
- Créer une barre personnalisée nommée 'Nouvelle barre'
-Y ajouter les controles que tu désires
-Exécuter le code que je te propose ci-dessous.

Sub RecupControlID()

Dim MyBar As CommandBar
Dim Ctl As CommandBarControl
    Set MyBar = Application.CommandBars('nouvelle Barre')
    For Each Ctl In MyBar.Controls
        MsgBox Ctl.ID
    Next Ctl
End Sub

Voilà, c'est tout pour ce soir, je rentre à la maison. Vois si ça convient.

A+

 

[max]

merci luki pour tes réponses

apres reflexion,je cherche en fait les id. j'ai déjà un fichier avec la liste des id prédéfinis, docn normaleemnt il n'y a pas de pbm mais ça ne marche pas ds mon code
tu vois une erreur à ce niveau-là sur mon fichier?

merci
max