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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Titof06
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Titof06

Titof06

XLDnaute Occasionnel
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
 

Pièces jointes

Dernière édition:
Solution
fanch55
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...
Trier par date Trier par votes
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
'##########################################################
 
Vote positif 0 Vote négatif
Solution
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
'##########################################################
Cliquez pour agrandir...
Bonjour fanch55,

Je vous remercie pour cette solution qui fonctionne parfaitement.

Je vous souhaite une agréable journée,

Titof06
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Question Question
XL 2019 Appel d'un second form
Réponses
2
Affichages
71
Dudu2
Dudu2
Titof06
  • Résolu(e)
XL 2019 Fonction "Find" qui ne fonctionne pas selon le format de cellule
Réponses
12
Affichages
204
Titof06
Titof06
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
898
Olihoes
O
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
394
desto
D
D
  • Résolu(e)
Microsoft 365 Bouton supprimer ligne via mon Userfom ne fonctionne pas
Réponses
8
Affichages
612
vgendron
vgendron
M
  • Question Question
XL 2013 Bouton commande ne fonctionne pas
Réponses
7
Affichages
467
midovic
M
M
  • Résolu(e)
Microsoft 365 [Résolu] Bouton nommé par exemple C qui va chercher les mots commençants par C dans une colonne
Réponses
13
Affichages
371
Marboi
M
gsx-air
  • Résolu(e)
Microsoft 365 Traiter un fichier CSV qui est ouvert
2
Réponses
16
Affichages
276
gsx-air
gsx-air
D
  • Résolu(e)
Microsoft 365 Filtre avancé VBA multi-critères
Réponses
14
Affichages
574
DELHOMME
D
N
  • Question Question
Autres bouton d'action sous excel
Réponses
6
Affichages
389
wDog66
wDog66
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
614
MarineU
M
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
538
vgendron
vgendron
S
  • Question Question
XL 2019 Formule RECHERCHEV avec des valeurs cherchées négatives qui ne fonctionne pas et renvoi #Réf
Réponses
2
Affichages
275
Phil69970
Phil69970
M
  • Question Question
XL 2021 Problème d'une formule qui ne fonctionne pas
2
Réponses
21
Affichages
1 K
marco22
M
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
421
AtTheOne
AtTheOne
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
278
Anthony_51
A
A
  • Question Question
XL 2019 Code VBA qui ne fonctionne plus du jour au lendemain.
Réponses
4
Affichages
705
arla
A
M
  • Question Question
XL 2010 (Génération d'invitations) Erreur 424 ???
2
Réponses
17
Affichages
1 K
patricktoulon
patricktoulon
S
  • Question Question
XL 2019 Fonction Not IsError qui ne fonctionne pas
Réponses
1
Affichages
357
sylvanu
sylvanu
M
  • Résolu(e)
XL 2016 Private Sub ne fonctionne pas
Réponses
4
Affichages
493
MaNU84510
M
Retour