Barre d'onglet avec photo

Bonjour

Créer une barre d'onglet je ne sais pas mais tu peux réaliser quelque chose en VBA :

1) tu crées un Userform dans lequel tu insères 4 contrôles images, pou chacun dans la propriété Picture tu choisis l'image à afficher
Tu mets la propriété Show modal de l'UF à False
Tu mets sa propriété StartUpPosition sur Manual, sa propriété Left à 0 et tu règles sa propriété Top poru qu'elle apparraisse enhaut de la feuille (environ 110, mais tout dépend ce que tu laisses afficher au dessus : barre d'outils, barre de formule ..)

2) Pour chaque contrôle image tu attribues à sa macro Private sub Image_Click un code selectionnant la feuille voulue (par exemple Feuil1.Select)

3) Dans This Worbook tu mets l'instruction :
Private Sub Workbook_Open()
Userform1.show
End Sub
afin que l'UF s'affiche à l'ouverture du classeur

Tu peux réduire ou augmenter le zoom l'UF restera identique

Cdlmnt

Bonjour,

L'idée de via n'est pas mal.
Moi je me suis embêté à jouer avec le zoom.
Seulement ce n'est pas détectable par vba. Les images s'ajustent sur recalcul de la feuille (F9 ou revalider une formule), ou bien en allant sur une autre feuille et en revenant dessus.
Les images doivent s'appeler "Image 1" à "Image 4". Sinon les renommer ou adapter le code.

A mettre dans ThisWorkBook :

Option Explicit

Dim varOk As Boolean
Dim memoZoom As Long, memoLeft(1 To 4) As Long, memoTop(1 To 4) As Long

Private Sub Workbook_Open()
    Dim Sh As Worksheet, i As Long
    Set Sh = ActiveSheet
    With Sheets("Feuil1")
        .Activate
        memoZoom = ActiveWindow.Zoom
        For i = 1 To 4
            memoLeft(i) = .Shapes("Image " & i).Left
            memoTop(i) = .Shapes("Image " & i).Top
        Next i
    End With
    Sh.Activate
    varOk = True
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Feuil1" Then majZoom
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    If Sh.Name = "Feuil1" Then majZoom
End Sub

Sub majZoom()
    Dim s As Shape, i As Long
    If ActiveWindow.Zoom <> memoZoom And varOk Then
        For i = 1 To 4
            ActiveSheet.Shapes("Image " & i).Select
            Selection.ShapeRange.ScaleWidth memoZoom / ActiveWindow.Zoom, msoFalse, msoScaleFromTopLeft
            Selection.ShapeRange.ScaleHeight memoZoom / ActiveWindow.Zoom, msoFalse, msoScaleFromTopLeft
            Selection.ShapeRange.Left = memoLeft(i) * memoZoom / ActiveWindow.Zoom
            memoLeft(i) = Selection.ShapeRange.Left
            Selection.ShapeRange.Top = memoTop(i) * memoZoom / ActiveWindow.Zoom
            memoTop(i) = Selection.ShapeRange.Top
        Next i
        memoZoom = ActiveWindow.Zoom
    End If
End Sub

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

eric

Je vois le code sur 1 seul ligne c'est normal ?

Bonjour,

Merci via55, j'ai réussis l'idée est pas mal. Savez vous s'il est possible de changer d'image lorsqu'on choisit l'onglet correspondant, histoire de savoir dans quel onglet on se trouve (changer la couleur du logo par exemple).

Merci

Bonjour Mika

oui c'est possible de charger une autre image avec l'instruction :
Image1.Picture = LoadPicture(chemin complet du fichier)
le chemin complet étant par exemple "C:\Mes documents\Mes images\logoABC.jpg"

L'instruction est à mettre dans Private sub Image_Click avant celle selectionnant la feuille mais il faut en même temps remettre en normal les autres images (puisque celle qui a été cliqué avant a été modifiée) donc en fait il faut mettre 4 instructions (si tu as 4 images)
Image1.Picture = LoadPicture(chemin complet du fichier de l'image 1 modifiée au clic)
Image2.Picture = LoadPicture(chemin complet du fichier de l'image 2 normale)
Image3.Picture = LoadPicture(chemin complet du fichier de l'image 3normale)
Image4.Picture = LoadPicture(chemin complet du fichier de l'image 4normale)

Cdlmnt

D'accord merci,

Il n'y aura pas de soucis si j'ouvre mon fichier sur un autre PC où il ne trouvera pas la photo ?