XL 2019 Création d'un second bouton qui ne fonctionne pas

Titof06 · 2 Juillet 2025

Bonjour,

Je reviens vers vous car j'ai un souci sur la création d'un 2ème bouton pour une 2 ème macro.

Dans l'onglet "TARIFS", en dernière colonne j'affiche un tableau pour un futur choix de colonne vis-à-vis de ce fichier "TARIFS".

J'ai donc créé un bouton "Bouton OK", qui fonctionne parfaitement.

Mon problème est que je souhaite créée un 2ème bouton "Bouton pour ECO SEUL", mais avec la macro du premier bouton que j'ai voulu dupliquer, celle-ci ne prend pas en compte mon nouveau bouton mais reste sur le 1er.

C'est la Macro "Creation_bouton" dans le module "Colonnes_Creation_Bouton" qui ne fonctionne pas.

J'ai réduit mes lignes dans les onglets, afin qu'il ne soit pas trop lourd.

Si quelqu'un pourrait me dire où j'ai fait une bêtise.

Je vous remercie et vous souhaite une agréable journée,

Titof06

fanch55 · 2 Juillet 2025

Salut,
Macro corrigée :

VB:

Sub Creation_bouton() ' OK le 06/11/2024
'
Dim PosG As Integer
Dim PosH As Integer
Dim Hauteur As Integer
Dim Longueur As Integer
'
Application.StatusBar = "Mise En Place des Colonnes + Bouton OK..."
'   on affiche les Choix pour les Colonnes
    Call Col_Choi_Let
'
'   on affiche les Choix pour les Colonnes
    'Call Col_Verif_Let
    dc = Sheets("TARIFS").Cells(1, Application.Columns.Count).End(xlToLeft).Column
    col_bout3 = LetCol(dc + 3)
'    col_bout2 = LetCol(dc + 3)
'
'Position fixe d'un bouton
   'With ActiveSheet.Buttons
   '   .Add(10, 10, 10, 10).Select
   '   .OnAction = "NomdelaMacro"
   '   .Caption = "Bouton fixe"
   'End With
'
'   Position en fonction d'une cellule du "Bouton OK"
    With...

fanch55 · 2 Juillet 2025

Salut,
Macro corrigée :

VB:

Sub Creation_bouton() ' OK le 06/11/2024
'
Dim PosG As Integer
Dim PosH As Integer
Dim Hauteur As Integer
Dim Longueur As Integer
'
Application.StatusBar = "Mise En Place des Colonnes + Bouton OK..."
'   on affiche les Choix pour les Colonnes
    Call Col_Choi_Let
'
'   on affiche les Choix pour les Colonnes
    'Call Col_Verif_Let
    dc = Sheets("TARIFS").Cells(1, Application.Columns.Count).End(xlToLeft).Column
    col_bout3 = LetCol(dc + 3)
'    col_bout2 = LetCol(dc + 3)
'
'Position fixe d'un bouton
   'With ActiveSheet.Buttons
   '   .Add(10, 10, 10, 10).Select
   '   .OnAction = "NomdelaMacro"
   '   .Caption = "Bouton fixe"
   'End With
'
'   Position en fonction d'une cellule du "Bouton OK"
    With Range(col_bout3 & "5")
        PosG = .Left
        PosH = .Top
        Hauteur = 30 '.Height
        Longueur = 100 '.Width
    End With
    With ActiveSheet.Buttons.Add(PosG, PosH, Longueur, Hauteur)
        .OnAction = "Col_Verif_Let"
        .Caption = "Bouton OK"
        .Name = "Bouton pour OK"
        With .Font
            .Name = "Calibri"
            .FontStyle = "Bold"
            .Size = 14
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = 3 ' 1=Noir
        End With
   End With

'   ##########################################
'   PROBLÈME CI-DESSOUS
'   ##########################################
'   TEST En Cours le 01/07/2025...
'
'   Position en fonction d'une cellule du "Bouton pour ECO SEUL"
    With Range(col_bout3 & "9")
        PosG = .Left
        PosH = .Top
        Hauteur = 30 '.Height
        Longueur = 150 '.Width
    End With
    With ActiveSheet.Buttons.Add(PosG, PosH, Longueur, Hauteur)
        .OnAction = "Col_Verif_Let_ECO"
        .Caption = "Bouton Pour ECO SEUL"
        .Name = "Bouton pour ECO SEUL"
        With .Font
            .Name = "Calibri"
            .FontStyle = "Bold"
            .Size = 14
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = 3 ' 1=Noir | 3=Rouge
        End With
   End With
'
'   ##########################################
'   PROBLÈME CI-DESSUS
'   ##########################################


'
Application.ScreenUpdating = False
'
Range(LetCol(dc) & "2").Select
'
End Sub
'##########################################################
Function LetCol(NoCol) ' OK le 07/11/2024
    LetCol = Split(Cells(1, NoCol).Address, "$")(1)
End Function
'##########################################################

Titof06 · 3 Juillet 2025

fanch55 à dit:

Salut,
Macro corrigée :

VB:

Sub Creation_bouton() ' OK le 06/11/2024
'
Dim PosG As Integer
Dim PosH As Integer
Dim Hauteur As Integer
Dim Longueur As Integer
'
Application.StatusBar = "Mise En Place des Colonnes + Bouton OK..."
'   on affiche les Choix pour les Colonnes
    Call Col_Choi_Let
'
'   on affiche les Choix pour les Colonnes
    'Call Col_Verif_Let
    dc = Sheets("TARIFS").Cells(1, Application.Columns.Count).End(xlToLeft).Column
    col_bout3 = LetCol(dc + 3)
'    col_bout2 = LetCol(dc + 3)
'
'Position fixe d'un bouton
   'With ActiveSheet.Buttons
   '   .Add(10, 10, 10, 10).Select
   '   .OnAction = "NomdelaMacro"
   '   .Caption = "Bouton fixe"
   'End With
'
'   Position en fonction d'une cellule du "Bouton OK"
    With Range(col_bout3 & "5")
        PosG = .Left
        PosH = .Top
        Hauteur = 30 '.Height
        Longueur = 100 '.Width
    End With
    With ActiveSheet.Buttons.Add(PosG, PosH, Longueur, Hauteur)
        .OnAction = "Col_Verif_Let"
        .Caption = "Bouton OK"
        .Name = "Bouton pour OK"
        With .Font
            .Name = "Calibri"
            .FontStyle = "Bold"
            .Size = 14
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = 3 ' 1=Noir
        End With
   End With

'   ##########################################
'   PROBLÈME CI-DESSOUS
'   ##########################################
'   TEST En Cours le 01/07/2025...
'
'   Position en fonction d'une cellule du "Bouton pour ECO SEUL"
    With Range(col_bout3 & "9")
        PosG = .Left
        PosH = .Top
        Hauteur = 30 '.Height
        Longueur = 150 '.Width
    End With
    With ActiveSheet.Buttons.Add(PosG, PosH, Longueur, Hauteur)
        .OnAction = "Col_Verif_Let_ECO"
        .Caption = "Bouton Pour ECO SEUL"
        .Name = "Bouton pour ECO SEUL"
        With .Font
            .Name = "Calibri"
            .FontStyle = "Bold"
            .Size = 14
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = 3 ' 1=Noir | 3=Rouge
        End With
   End With
'
'   ##########################################
'   PROBLÈME CI-DESSUS
'   ##########################################


'
Application.ScreenUpdating = False
'
Range(LetCol(dc) & "2").Select
'
End Sub
'##########################################################
Function LetCol(NoCol) ' OK le 07/11/2024
    LetCol = Split(Cells(1, NoCol).Address, "$")(1)
End Function
'##########################################################

Bonjour fanch55,

Je vous remercie pour cette solution qui fonctionne parfaitement.

Je vous souhaite une agréable journée,

Titof06

XL 2019 Création d'un second bouton qui ne fonctionne pas

Titof06

XLDnaute Occasionnel

Pièces jointes

fanch55

fanch55

XLDnaute Barbatruc

Titof06

XLDnaute Occasionnel

Discussions similaires

XL 2019 Création d'un second bouton qui ne fonctionne pas

Titof06

XLDnaute Occasionnel

Pièces jointes

fanch55

XLDnaute Barbatruc

Titof06

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency