Insérer UserForm entre barre de calcul et ligne 1

Comment faites-vous?
Décrivez toutes les étapes que vous faites, car cela ne le fait pas chez moi, j'avais prévu cette éventualité...

J'ai ouvert un autre fichier sans le vouloir et la barre et apparu automatiquement (il s'agit de la meme) . Quand j'appuie en bas à droite de l'écran pour revenir sur mon bureau, elle se trouve aussi sur mon bureau.

J'ai regardé un peu les codes pour analyser le fonctionnement avec l'userform et les modules (pas si évident), il est possible de remplacer les numéros 1, 2, 3, 4... par des images ?

Il reste à faire, si ce modèle te convient :
- le redimensionnement en fonction de l'affichage de ton classeur,
- le remplacement des n° par des images => ne causera aucun souci s'agissant de boutons de commande. Il faudra juste voir pour l'aspect "dynamique" de la chose...

Tu dis, si intéressé, on peut poursuivre...

Merci pijaku,

Je souhaite bien poursuivre, j'aimerais savoir les codes pour :
1) changer la couleur de fond de barre qui est actuellement mauve, par le bleu que j'avais mis en fond de la ligne1.
2) changer la hauteur de la barre (diminuer de moitié)
3) changer la longueur de la barre (longueur de la fenêtre par défault)
2) savoir comment intégrer mes images (tailles, positions...)
3) j'ai un double pour chaque image qui intègre une couleur de fond différente (pour les onglets séléctionné) un peu comme vous avez fait avec le fond blanc quand l'onglet 1 est séléctionné.

On peut faire étape par étape, que je comprenne bien à quoi correspondent les codes et en apprendre un peu plus.

Merci de votre disponibilité.

Ok.
On voit ça point par point dès demain matin.
Parce que là j'ai les yeux qui se croisent...
A demain donc

Oui.
Regarde ce tutoriel et dis moi ce que tu penserais de cette solution...

Pas si tu mets tout, fichier + images dans un fichier .zip. Fichier que tu décompresses sur chaque poste ou tu dois utiliser ton fichier.
Après ne te reste qu'à référencer le chemin d'accès par : ThisWorbook.Path & "/" & Image1.jpg

Si tu veux conserver de la transparence, tu ne pourras utiliser que le format gif. Excel n'acceptant pas le png...

Ah dommage ! car les FacesID sont vraiment très basic et "petit"

Je serais bien tenté d'essayer avec des images persos tout de même !

Malheureusement tu n'as que le gif pour gérer la transparence sous Excel...

J'ai commencé à faire un code mais toujours pas de barre :

Sub Ajout_BarreMenu()

CommandBars.Add(Name:="MaBarre", Position:=msoBarTop, MenuBar:=False, Temporary:=True).Visible = True


End Sub

Faut le mettre dans Thisworkbook ?

Dans un module ton code :

Sub Ajout_BarreMenu()
CommandBars.Add(Name:="MaBarre", Position:=msoBarTop, MenuBar:=False, Temporary:=True).Visible = True
End Sub 

Dans le Module ThisWorkbook :

Private Sub Workbook_Open()
Call Ajout_BarreMenu
End Sub

Tu enregistres, fermes et ouvres...

Oui. Tu viens d'ajouter un onglet à ton ruban.
Mais pas tout à fait vide...

Pourtant la barre ne devrait pas se trouver dans "Compléments" et être indépendante avec : Position:=msoBarTop

Non ?

C'était valable pour les versions d'Excel avant 2007. Depuis qu'il y a ce ruban, toutes les barres ajoutées (personnalisées en fait) sont ajoutées comme un onglet du ruban.
Je t'ai proposé cette solution car elle ne modifie rien de l'apparence d'Excel. Tu conserves les fonctionnalités.
Cependant, si tu désires repartir sur ce que l'on faisait avec un UserForm, dis le.
D'autant plus que j'ai un peu avancé sur le sujet.

Très bien,

Le UserForm je suis d'accord mais il faut qu'il s'applique UNIQUEMENT à ce fichier et qu'il ne s'incruste pas si j'ouvre un deuxieme fichier (qui n'a rien à voir) au même moment.

Je ne suis pas dispo cet après midi (travail oblige).
Je reprendrais ça demain et regarderai pour réserver ton Usf uniquement à ton fichier...

Juste au dessus : https://forums.commentcamarche.net/forum/affich-31006547-inserer-userform-entre-barre-de-calcul-et-ligne-1#36

C'est vrai, mon regard est passé au travers, sorry ..

Merci !

La barre suit bien la fenêtre meme si c'est un peu lent mais pas grave., c'est un très bon début.
Est 'il possible que cela ne concerne seulement CE fichier et pas tous les fichiers ouverts ?

Est 'il possible que cela ne concerne seulement CE fichier et pas tous les fichiers ouverts ?
Oui.
Pour cela, nous allons utiliser les événements

Workbook_Activate()

et

Workbook_Deactivate()

. Comme ceci :
Codes à ajouter dans le module ThisWorkbook :

Private Sub Workbook_Activate()
Application.WindowState = xlMaximized
Marge_Top = Abs(Application.Top)
Application.FormulaBarHeight = 5
If Usf_Ouvert = False Then UserForm1.Show 0: Usf_Ouvert = True
If BlnTimer = False Then Call Lance_Timer
End Sub

Private Sub Workbook_Deactivate()
Application.FormulaBarHeight = 1
If BlnTimer = True Then Call Arret_Timer
If Usf_Ouvert = True Then UserForm1.Hide: Usf_Ouvert = False
End Sub

TON FICHIER!!!!!!!!!!!!

Parfait on y arrive petit à petit !

J'ai vu que tu avais mis un fond bleu, c'est top !

Maitenant concernant lesonglets (1, 2 , 3)

Comment fait-on par exemple si je veux mettre les images qui se trouve sur la ligne 1 en guise d'onglet sur ma barre?

En réalité ce sont des logos que j'ai et non pas des chiffres donc c'est pour ca je dis "images".

Alors, tu es prêt?

Il va te falloir 2 images par onglet. Si tu veux de la transparence, tu dois utiliser le format .gif. Tu dois OBLIGATOIREMENT les nommer :
1.gif et 1_bis.gif
2.gif et 2_bis.gif
3.gif et 3_bis.gif
4.gif et 4_bis.gif
etc...
Ces fichiers image doivent être placés dans le même répertoire que le classeur.

Je t'ai donc préparé un zip :

https://www.cjoint.com/?DKhlUF5cOaI

Tu va pouvoir constater mon absence de talent artistique...

Ben heureusement!! Nous donnons des codes qui fonctionnent ici tu sais...

Mais je n'aime pas cette solution et je préfères t'avertir qu'elle est source de bugs éventuels...

D'accord ! Tu as des exemples des ces bugs ?

non.
En fait cette macro copie/colle via le presse papier. C'est toujours un peu aléatoire.
Ce bug est toutefois prévu dans le code...
Donc ça devrait le faire.

D'accord !! la position et la taille des images sont aléatoires ?

Ho oui.
Juste leur nom importe.