Création d'un "Bandeau" figé

**rickgoz** · 26/10/2008, 02h54

Bonsoir,

Voilà j'ai une petite question, je ne sais pas si celà est possible si ça existe mais je voulais savoir s'il était possible de créer une sorte de bandeau au dessus de la ligne 1, qui ne compterai pas comme une ligne. Une sorte d'espace "gris".

Pourquoi? Car en faite j'ai une série de Macro à utilisé sous forme de bouton, et j'aimerai bien pouvoir mettre plusieurs boutons dans cette zone. Ainsi les boutons ne serai pas affectés par la suppréssion ou l'ajout de colonne...

Voilà si quelqu'un a une idée je suis preneur

Merci

Invité · 26/10/2008, 05h34

Bonjour

Tu peux te créer une barre d'outils pour mettre tes boutons, celle-ci se positionnera juste au dessus de ta feuille.

Pour cela, je te conseille la lecture de cet article : http://fring.developpez.com/vba/excel/barremenu/

Philippe

**ouisansdoute** · 26/10/2008, 08h20

Une autre solution.

On peut aussi réserver la première ligne du tableau, l'agrandir puis la figer.
Pour la figer il faut se positionner en A2 puis manu Fenêtre / figer les volets. Tu peux alors placer tes boutons dans cette zone.

**rickgoz** · 26/10/2008, 12h34

Ouais ma la figer entrain la libération d'autre volet...
Je vais essayer la première technique merci!

**rickgoz** · 27/10/2008, 13h23

Bonjour,

Voilà j'ai réussi à créer la barre ainsi que des boutons renvoyant des macros.
Seul petit problème, si j'envoie le fichier par mail, la personne voit apparaitre la barre en question. Mais lorsqu'elle clique sur un des boutons, message d'erreur: IMPOSSIBLE DE TROUVER LA MACRO C:/..................NomDeLaMacro

Je vous donne à titre d'information le code de ma barre et les boutons que j'y ajoute:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub Creation_Cbar() 'FONCTION CREATRICE DE LA BARRE
 
Dim Cbar As CommandBar
Set Cbar = CommandBars.Add(Name:="Barre ", Position:=msoBarTop, Temporary:=False)
With Cbar
.Visible = True
.Protection = msoBarNoMove + msoBarNoCustomize
 
End With
End Sub
 
Sub affichePL() 'FONCTION AJOUTANT UN BOUTON A LA BARRE CREEE
Dim Ctrl1 As CommandBarButton '<-- déclaration de variable pour un contrôle de type bouton de commande
 
With CommandBars("Barre ").Controls.Add(msoControlButton) '<-- création du bouton
.Style = msoButtonIconAndCaption '<-- bouton avec icône + texte
.Caption = "Afficher Tout" '<-- texte du bouton
.OnAction = "Affich_tout"
End With
 
End Sub
 
 
Sub Fiche() 'FONCTION AJOUTANT UN BOUTON A LA BARRE CREEE
Dim Ctrl1 As CommandBarButton '<-- déclaration de variable pour un contrôle de type bouton de commande
 
With CommandBars("Barre ").Controls.Add(msoControlButton) '<-- création du bouton
.Style = msoButtonIconAndCaption '<-- bouton avec icône + texte
.Caption = "Fiche" '<-- texte du bouton
.OnAction = "Affich_UF"
End With
 
End Sub
 
 
Sub Action1() 'FONCTION AJOUTANT UN BOUTON A LA BARRE CREEE
Dim Ctrl1 As CommandBarButton '<-- déclaration de variable pour un contrôle de type bouton de commande
 
With CommandBars("Barre").Controls.Add(msoControlButton) '<-- création du bouton
.Style = msoButtonIconAndCaption '<-- bouton avec icône + texte
.Caption = "1erAction Aujourd'hui" '<-- texte du bouton
.OnAction = "PremAction"
End With
 
End Sub
 
Sub Action2() 'FONCTION AJOUTANT UN BOUTON A LA BARRE CREEE
Dim Ctrl1 As CommandBarButton '<-- déclaration de variable pour un contrôle de type bouton de commande
 
With CommandBars("Barre ").Controls.Add(msoControlButton) '<-- création du bouton
.Style = msoButtonIconAndCaption '<-- bouton avec icône + texte
.Caption = "2ème Action Aujourd'hui" '<-- texte du bouton
.OnAction = "DeuAction"
End With
 
End Sub