Lier des macros à la suite

Bonjour à tous

je ne trouve pas la ligne de code qui me permettrait d'exécuter des macros à la suite l'une de l'autre

J'ai une trentaine de macro à exécuter

En voici trois

Merci de jeter un coup d’œil

Amicalement

Pierrot

  Sub NombredeCellules_De_Couleurs_B()
    'DAn - 13/05/13
    Dim Cellule As Range
    ' Zone B5:G27
    For Each Cellule In Range("B4:B40")
        Select Case Cellule.Interior.ColorIndex
            Case Is = 46: Range("AI4") = Range("AI4") + 1 'Orange
         End Select
   Next
          ActiveCell.Offset(1, 0).Range("A1").Select
       '   Application.Run "'Calendrier Fabrice 2014.xlsm'!NombredeCellules_De_Couleurs_C"
    End Sub

    Sub NombredeCellules_De_Couleurs_C()
    'DAn - 13/05/13
    Dim Cellule As Range
    ' Zone B5:G27
    For Each Cellule In Range("C4:C40")
        Select Case Cellule.Interior.ColorIndex
            Case Is = 46: Range("AI5") = Range("AI5") + 1 'Orange

     End Select
    Next
    End Sub

     Sub NombredeCellules_De_Couleurs_D()
    'DAn - 13/05/13
    Dim Cellule As Range
    ' Zone B5:G27
    For Each Cellule In Range("D4:D40")
        Select Case Cellule.Interior.ColorIndex
            Case Is = 46: Range("AI6") = Range("AI6") + 1 'Orange

       End Select
    Next
    End Sub.

Salut Pierrot,

Tu peux appeler une macro depuis une autre macro en plaçant simplement son nom comme ligne de code ou en utilisant l'instruction Call devant le nom de cette macro.

Ainsi pour appeler la Macro_2 depuis la Macro_1 tu peux utiliser l'un des deux codes ci-dessous :

Sub Macro_1 ()
Macro_2
End Sub

ou

Sub Macro_1 ()
Call Macro_2
End Sub

Pour appeler plusieurs macros de suite :

Sub Macro_1 ()
Call Macro_2
Call Macro_3
‘ autres codes
Call Call Macro_4
‘ etc.
End Sub

Cordialement.

Bonjour Yvouille,

Ce qui est bien avec toi, c'est que ça marche toujours

Un tout grand merci

Amicalement

Pierrot

Cappe Pierre a écrit :

Ce qui est bien avec toi, c'est que ça marche toujours

Tu as la mémoire courte :

https://forum.excel-pratique.com/excel/desactiver-une-zone-de-collage-special-t41743.html