Dimensionnement exacte bouton commande

Bonjour

Jai une page excel : menu

Sur cette page menu jai des boutons (pas les bouton pour les macros mais les

Autres).

Ces boutons me permettre de me diriger sur d'autres feuilles.

Et je n'arrive pas du tout à uniformiser les boutons. Dès que je déplace la taille change et j'ai modifié les format etc cherché ou je pouvais mais rien n'y fait .

Savez vous comment je peux faire quelque chose de pro afin d'avoir une page menu et des beaux boutons qui me renvoi à des pages précises svp?

Merci beaucoup pour votre aide...

Bonjour*

Joins ton fichier (anonymisé si nécessaire) et on verra ce qu'on peut faire...

Bye !

Bonjour,

Un exemple pour un CommandButton avec un début de code associé.

A étudier.

Cdlt.

Option Explicit

'Option Private Module
'https://msdn.microsoft.com/fr-fr/library/office/ff195728.aspx
Public Sub CreateCommandButton()
Dim cmd As OLEObject
Dim Acell As Range
Dim Message As String, Title As String, strText As String, strText2 As String
Dim Code As String
Dim NextLine As Long

    Message = "Donnez un nom au bouton."
    Title = "Nom bouton ?"
    strText = InputBox(Message, Title)

    If strText = "" Then Exit Sub

    Application.ScreenUpdating = False

    Set Acell = ActiveCell
    strText2 = WorksheetFunction.Proper(Replace(Replace(strText, " ", "_"), "-", "_"))

    Set cmd = ActiveSheet.OLEObjects.Add _
              (ClassType:="Forms.CommandButton.1", _
               Link:=False, _
               DisplayAsIcon:=False, _
               Left:=Acell.Left, _
               Top:=Acell.Top, _
               Width:=100, _
               Height:=35)
    With cmd
        .Name = "cmd" & strText2
        .PrintObject = False
        With .Object
            .AutoSize = True
            .BackColor = RGB(54, 96, 146)
            .Caption = strText
            .Font.Bold = True
            .ForeColor = RGB(255, 255, 255)
            .TakeFocusOnClick = False
        End With
    End With

    Code = "Private Sub " & cmd.Name & "_Click()" & vbCrLf
    Code = Code & "'" & vbCrLf
    Code = Code & "End Sub"

    On Error Resume Next
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
        NextLine = .CountOfLines + 1
        .insertlines NextLine, Code
    End With

    If err.Number <> 0 Then
        MsgBox "Erreur : " & err.Number & vbLf & err.Description
        err.Clear
    End If

    Set cmd = Nothing
    Set Acell = Nothing

End Sub

Bonsoir GMB

J'ai joins mon fichier..

Salut Jean Eric

C'est quoi ce code de fou lol

Je dois l'insérer dans le code d'un bouton de commande?

Bonsoir

Je ne sais pas si c'est le résultat que tu voulais, mais tes boutons conservent désormais leur placement.

Salut Stef

Tu as fait quoi exactement stp?

j'ai simplement effectué un clic droit sur le bouton en mode création.

Format de contrôle puis propriétés et j'ai coché l'option "ne pas déplacer ou dimension avec les cellules"

Et cette opération, je l'ai faite pour chaque bouton.

Voilà, je n'ai pas fait grand chose

Je crois que j'avais deja essayé. Je re test demain voir si j'arrive à tous les mettre pareils ou faire quelque chose de plus pro car là je trouve pas cela tiptop...

Merci de ton intéressement

Salut à tous !

Salut

Essaie de jouer sur les alignements en sélectionnant tes boutons si tu recherches un présentation au top !!!

Désolée, je ne vois pas ce qu'il serait possible de faire d'autres.

Ok stef merci bonne soiree