Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Regrouper deux macros en une

Créer une discussion

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

libellule85

XLDnaute Accro
Bonjour le forum,

Voilà, actuellement j'utilise 2 macros (ci-dessous) : pour Mettre et Enlever une image.
N'est-il pas possible de regrouper ces 2 actions dans la même macro ?

Code: 
Sub ImageVisible(ByVal control As IRibbonControl)
ActiveSheet.Shapes("Image 4").Visible = True
End Sub

Sub ImageInvisible(ByVal control As IRibbonControl)
ActiveSheet.Shapes("Image 4").Visible = False
End Sub

D'avance merci pour votre aide
 
Dernière édition:
Trier par date Trier par votes
Re : Regrouper deux macros en une

Salut libellule85, le Forum

A tester

Code: 
Sub ImageVisibleInvisible(ByVal control As IRibbonControl)
ActiveSheet.Shapes("Image 4").Visible = IIf(ActiveSheet.Shapes("Image 4").Visible = True, False, True)
End Sub

Bonne Journée
 
Vote positif 0 Vote négatif
Re : [Résolu] Regrouper deux macros en une

Bonjour
Oui, ça marche, sans doute, mais ceci est plus élégant et plus ...logique :
VB: 
Sub ImageVisibleInvisible(ByVal control As IRibbonControl)
With ActiveSheet.Shapes("Image 4"): .Visible = Not .Visible: End With
End Sub
Par ailleurs à quoi sert le paramètre control ? S'il designe le même objet :
VB: 
Sub ImageVisibleInvisible(ByVal control As IRibbonControl)
control.Visible = Not control.Visible
End Sub
 
Vote positif 0 Vote négatif
Re : Regrouper deux macros en une

Re bonjour le forum,

Je reprends mon fil, car j'aimerais regrouper également sur une même macro (si celà est possible ) la mise en forme d'une cellule dont vous trouverez les codes (macros réalisées avec l'enregistreur) ci-dessous :

Code: 
Sub Effacer()
    Range("B10").Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
       Range("A5").Select
End Sub

Code: 
Sub RemettreLundi()
    Range("B10").Select
         With Selection.Borders(xlDiagonalDown)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.14996795556505
        .PatternTintAndShade = 0
    End With
    Range("A5").Select
End Sub

Je vous joins également un fichier pour que vous voyez à quoi correspond ces codes.

D'avance je vous remercie beaucoup pour votre aide
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Regrouper deux macros en une

Bonjour libellule85 le forum
voilà je pense ce que tu veux
a+
Papou🙂

Code: 
Sub test()
    With Range("B10")
        If .Interior.ColorIndex = 15 Then
        .Clear
        Else
            Range("B7").Interior.ColorIndex = 15
            .Borders.LineStyle = 1
            .Borders(5).LineStyle = 1
            .Borders(6).LineStyle = 1
        End If
    End With
End Sub
 
Vote positif 0 Vote négatif
Re : Regrouper deux macros en une

Bonjour Paritec,

Merci pour ta réponse, mais ce n'est pas ce que je recherche.
Ce que j'aimerais c'est avoir sur la même macro la possibilité d'effacer et de remettre la mise en forme.
Par exemple la mise en forme (cellule barrée et fond gris) est dans la cellule B10 je veux qu'en cliquant sur le même bouton il n'y ai plus de mise en forme (plus de fond gris ni de barres à l'intérieur de la cellule) en B10.
 
Vote positif 0 Vote négatif
Re : Regrouper deux macros en une

Bonjour Libellule 85 le forum
excuses moi mais avant de dire que c'est pas cela il serait peut-être bon que tu saches te servir de la macro !!!!!
alors je vais te la mettre dans le fichier car manifestement tu ne sais pas
voilà dans le fichier, par contre si tu veux des traits en gras redis le
a+
Papou🙂
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Regrouper deux macros en une

Bonjour Libellule85

Essaye avec ceci
Code: 
Sub test()
  With Range("B10")
    If .Interior.ColorIndex = 15 Then
      .Interior.ColorIndex = xlNone
      .Borders(5).LineStyle = xlNone
      .Borders(6).LineStyle = xlNone
    Else
      Range("B10").Interior.ColorIndex = 15
      .Borders.LineStyle = 1
      .Borders(5).LineStyle = 1
      .Borders(6).LineStyle = 1
    End If
  End With
End Sub

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

  • Résolu(e)
XL 2013 customui copymemory qui fait encore des siennes
Réponses
8
Affichages
442
Rheeem
R
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
509
job75
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
203
sylvanu
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
552
youguybass
Y
P
  • Résolu(e)
Microsoft 365 Afficher Masquer des images en boucle
Réponses
3
Affichages
222
pat66
P
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
643
pat66
P
M
  • Question Question
Microsoft 365 macro en fct de l'état d'une autre (boucle)
Réponses
3
Affichages
313
sylvanu
U
  • Question Question
Autres [RÉSOLU] Comment centrer les rectangles sur plage A:C
Réponses
8
Affichages
838
un internaute
U
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
339
patricko-13
P
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
254
cathodique
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
836
Nicolas JACQUIN
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
423
MATLEA
M
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
461
juju91
J
D
  • Question Question
XL 2021 Formule Excel dans VBA
Réponses
3
Affichages
232
dl87671
D
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
770
SAMUAL_2023
S
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
567
mikeduff
M
U
  • Question Question
Autres [RÉSOLU] Peut-on faire une macro qui met une seule macro en commentaires puis le contraire!!!
2 3
Réponses
30
Affichages
2 K
un internaute
U
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
535
spike29
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…