modification d'un onglet personnalisé

[jdawson]

Bonjour à tous

je suis sous excell 2010

j ai personnalisé le ruban en haut en ajoutant un onglet "macro_perso" dans lequel j ai placé 6 macros avec des icones pour chacune des macros

mon problème est que quand je visualise mon onglet macro_perso les 3 premier icones sont alignés de gauche à droite et les 3 autres sont les un en dessous des autres comme si la largeur de mon groupe personnalisé était trop petit .. comment je peux l agrandir on peut pas tirer sur le coté pour que tous mes icones s alignent de gauche à droite ce serait mieux d autant que j en ai d autre à ajouter

merci par avance

bonne journée

 

[Lone-wolf]

Bonsoir jdawson

Et le fichier, il est où pour voir où est le problème?? Si c'est un gros fichier, met au moins la macro. Nous on est pas devins.

 

[jdawson]

bonjour a toi

merci de me repondre et je ne vous prends pas pour un devin, il n y a pas de fichier
en fait sous excell j ai fait un clic droit en etant dans la partie superieur excell, personnaliser le ruban
j ai cree un nouvel onglet du style fichier, données, developpeur etc... un onglet que j ai appele macro perso
et après toujours en personalisant le ruban et donc mon nouvel onglet j ai cree un nouveau groupe
toujours en personnalisant j ai fait glisser des macros de la gauche dans la droite pour les metttre dans mon nouveau groupe
j ai donc un nouvel onglet dans lequel j ai un groupe macros et dans lequel j ai des macros avec chacune des icones

mon pb est la disposition des macros avec leur icones, les 3 premières sont en ligne et les 3 autres les unes en dessous des autres
en effet le groupe macro que j ai cree semble avoir des contours limite (je pense) il faudrait pouvoir le tirer vers la droite pour l agrandir
mais ca c est pas possible

voila pourquoi je dis que j ai pas de fichier, je pensais que vous avez fait plus souvent la manip de creer un nouvel onglet, un nouveau groupe etc..

tout cela je l ai fait directement à la souris et non par code

merci encore pour votre aide, j ai pas mon fichier de base excell si je puis dire avec moi, mais j ai pas de fichier reelement avec du code etc..
a bientot

 

[Lone-wolf]

Re

Dans ce cas si tu veux un ruban personnalisé, il faut le créé.

Option Explicit
Public u As Byte
Public CalcTaskID
Public CharmapTaskID
Public Const MyCommandBarName As String = "Carnet d'adresses ..."

Sub DeleteMyCommandBar()
' Efface la barre d'outils MyCommandBarName
    On Error Resume Next
    Application.CommandBars(MyCommandBarName).Delete
    On Error GoTo 0
End Sub

Sub CreateMyCommandBar()
' Création de la barre d'outils personnalisée MyCommandBarName
    Dim cb As CommandBar, cbb As CommandBarButton
    Application.ScreenUpdating = False
    DeleteMyCommandBar    ' au cas où celle-ci existe déjà
    Set cb = Application.CommandBars.Add(MyCommandBarName, msoBarFloating, False, True)
    AddMenuToCommandBar cb, True
End Sub

Private Sub AddMenuToCommandBar(cb As CommandBar, blnBeginGroup As Boolean)
    Dim cbb As CommandBarButton
    If cb Is Nothing Then Exit Sub
    With cb
        ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Rechercher"
            .OnAction = "Inscriptions"
            .TooltipText = "Rechercher un contact ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 25
        End With
        ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Messagerie"
            .OnAction = "Messages"  'La macro que tu va créer"
            .TooltipText = "Envoyer des messages avec pièces jointes ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 1978
            End With
            ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Tâches"
            .OnAction = "Taches"
            .TooltipText = "Effectuer des tâches avec Outlook ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 247
            End With
            ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Réunions"
            .OnAction = "Reunions"
            .TooltipText = "Organiser vos réunions ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 5434
            End With
                      ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Notes"
            .OnAction = "Notes"
            .TooltipText = "Créer une nouvelle note ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 259
            End With
            ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Journal"
            .OnAction = "Journal"
            .TooltipText = "Rechercher un contact ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 195
        End With
            ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Enregistrer"
            .OnAction = "Enregistrer"
            .TooltipText = "Enregistrer les contacts ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 3
            End With
        ' Rendre la barre visible
        .Visible = True
        ' Position dans le cas d'une barre flottante
        .Left = 300
        .Top = 100
    End With
    ' Initialiser les variables
    ' Set ca = Nothing
    Set cb = Nothing
    Set cbb = Nothing
    ' Set msocbbb = Nothing
    ' Set cbo = Nothing
End Sub

Public Function GetRowFound(vToFind As String, rFindIn As Range) As Long
  Dim rFound As Range
  Set rFound = rFindIn.Find(vToFind, LookIn:=xlValues)
  If rFound Is Nothing Then GetRowFound = 0 Else GetRowFound = rFound.Row
End Function

 

[jdawson]

Bonjour Lone-Wolf

merci pour ta réponse, et le code de création, complet d'après ce que je vois,

je vais voir de ce coté là, en fait j essaie d'améliorer le quotidien de mes collègues à l'aide de petites macros excell simples mais qui les arranges bien,
sous excell 2002 lol j avais bien crée de beaux boutons, mais sous excell 2010 certains ne se sont pas transposés automatiquement dans l onglet complément
du coup je me suis mis à vouloir créer mon onglet personnalisé avec mes petites macros et mes boutons mais sans chercher a complexifier l onglet vu que que ce sont d'autres personnes qui l utilise

je vais étudier ton code et voir ce que je peux faire

merci a toi

excell est un peu lourd a ce niveau la, il te permet à la souris de creer ton onglet, ton groupe et d y mettre tes macros mais pas "d'organiser" ton groupe comme tu le veux, du moins en largeur