Discussion :

[Boonichou]

Re Bonjour!
Encore un petit problème...désolé pour tout le boulot que je vous donne, et encore merci pour votre aide!

Voilà mes problèmes:

1) Quand on crée une barre d'outil, Comment faire pour que celle-ci soit placée avec les autres barres d'outils, en haut de l'écran? Car quand je crée une barre d'outil, celle ci est crée en plein milieu de l'écran, donc pas tip top!

2) J'ai créé des boutons avec ma barre d'outils, mais quand je veux changer l'image de ces boutons, je dois assigner un nombre, et je ne connais pas la correspondance image/nombre...Quelqu'un peut-il me dépanner?

Merci encore!

Voilà mon code pour que vous y voyiez plus clair!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim MaBarre As CommandBar
Dim NouvBtn As CommandBarButton
Dim NouvBtn2 As CommandBarButton
Dim NouvBtn3 As CommandBarButton
 
     Set MaBarre = CommandBars.Add("CNE")
     Set NouvBtn = MaBarre.Controls.Add
     Set NouvBtn2 = MaBarre.Controls.Add
     Set NouvBtn3 = MaBarre.Controls.Add
     With NouvBtn
          .Caption = "Copier"
          .FaceId = 59
          .OnAction = "Copier"
          .State = msoButtonUp
          .Style = msoButtonIconAndCaptionBelow
          .TooltipText = "Copier les cellules"
     End With
     With NouvBtn2
          .Caption = "Dimensionner"
          .FaceId = 60
          .OnAction = "Dimensionner"
          .State = msoButtonUp
          .Style = msoButtonIconAndCaptionBelow
          .TooltipText = "Dimensionner graphe"
     End With
     With NouvBtn3
          .Caption = "Traitement"
          .FaceId = 61
          .OnAction = "Traitement"
          .State = msoButtonUp
          .Style = msoButtonIconAndCaptionBelow
          .TooltipText = "Traiter les données"
     End With
     MaBarre.Visible = True

[LeForestier]

Bonsoir,
Pour que ta nouvelle barre soit en haut, suffit de cliquer dessus et de la faire glisser vers le haut.
Mais si par code .Position:=msoBarTop

Pour ton code qui fait la barre et les boutons, pourquoi le faire par code ?
Je ne crois pas me tromper en disant que la barre une fois créée serra définitive (ne se supprime pas quand tu quitte l'appli) donc ta macro ne servira qu'une fois.
Juste la mettre visible à l'ouverture du classeur.
Et la créer dans Excel, avec les boutons et tout..

Pour ta question FaceID, c'est le N° d'ordre de l'un des bouton prédéfini dans Excel.
A+

[Boonichou]

Si j'ai besoin de réaliser cette barre avec une macro, c'est pour que plusieurs personnes l'utilisent sur différents ordis.

Merci pour la position, c'est exactement ce que je cherchais, mais y a t-il un moyen pour qu'elle ne soit pas mise en dessous des autres barres d'outils?

Pour le face ID, j'avais capté que les numéros correspondaient aux images, mais je voudrais savoir s'il y a un tableau avec la correspondance image/bouton, parce que je me sens pas de tous les faire un par un (mais bon, c'est juste un détail)!!

[ouskel'n'or]

Pour le N° des boutons, regarde là, tu as un utilitaire qui te fabrique les icônes disponibles et le passage de la souris sur les boutons de donne son index.
Amuse-toi bien

[Boonichou]

Merci pour ce petit utilitaire fort pratique!!!!!

Et sinon, quelqu'un aurait une solution pour positionner ma barre d'outil de telle sorte qu'elle ne soit pas en dessous des autres barres?

[zazaraignée]

Aucune idée! Même l'enregistreur de macros ne détecte pas le déplacement de la barre d'outils vers un point d'ancrage.

[LeForestier]

Si j'ai besoin de réaliser cette barre avec une macro, c'est pour que plusieurs personnes l'utilisent sur différents ordis.

Toujours pas de problème, tu peu "lier" la barre d'outils à ton classeurs, lorsque tu le copie ailleurs la barre d'outils suit.

Merci pour la position, c'est exactement ce que je cherchais, mais y a t-il un moyen pour qu'elle ne soit pas mise en dessous des autres barres d'outils? .

Bahhh, je crois me souvenir qu'il y a moyen de la positionner avec les propriétés left et top (sans garantie), il y a aussi moyen de la positionner gauche/droite sur une nouvelles "frame" attachée, mais il faudrait rechercher la totalité des constantes.

A+

EDIT : Il y a aussi moyen d'attribuer des images par le biais du ClipBorad, mais là je ne me souvient plus vraiment de la procédure, peut-être dans l'aide.
du moins en code, sinon il y à une possibilité dans la "fabrication" des boutons dans l'environnement Excel

[ouskel'n'or]

Avec le clipboard, tu dois copier l'image auparavant. Si l'image est dans le classeur, on sélectionne, on copie, on colle sur le bouton.
Là, je parts pour 15 jours mini, pas le tps pour le code mais pour coller, tu peux l'avoir en enregistrant la macro après copie de l'image. Attention à la taille de l'image. Tu l'as en pixels dans "Modifier l'image"
Encore une chose, pour utiliser le Clibboard, tu dois déclarer "tout ça" en tête de ton module pour ouvrir, fermer et le vider.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long

Pour le reste, zazaraignée ou SilkyRoad prendront bien la relève.
Bon mois d'août à tous.