Macro pour Remise à Zéro

[guy72]

Bonsoir à tous
Actuellement dans mon fichier, j'ai un bouton qui me fait la remise à zéro de toutes les macros.
Je souhaiterais (si possible) avoir un bouton en page 1, affecté à une macro de remise à zéro pour simplement les macros concernant la liste de la page 1.
Et un autre bouton en page 2, pour la remise à zéro des macros de la sélection 2.
Si quelqu'un à une idée ?
Merci de votre aide.

Cordialement
Guy

 

[SergiO]

Re : Macro pour Remise à Zéro

Bonsoir Guy,

Voici 2 codes à associer à chaque bouton (Pages 1 & 2)

'Remise à zéro de tous les itineraires de la page1
Sub RAZ_Page1()
For Each S In ActiveSheet.Shapes
    If S.Type = 9 Then
    NomLigne = Replace(S.Name, "Ligne ", "")
    If NomLigne < 111 Then
    S.Line.Weight = 1
    S.Line.ForeColor.SchemeColor = 0
    End If
    End If
Next
End Sub


'Remise à zéro de tous les itineraires de la page2
Sub RAZ_Page2()
For Each S In ActiveSheet.Shapes
    If S.Type = 9 Then
    NomLigne = Replace(S.Name, "Ligne ", "")
    If NomLigne >= 111 Then
    S.Line.Weight = 1
    S.Line.ForeColor.SchemeColor = 0
    End If
    End If
Next
End Sub

Bon test et @+

 

[guy72]

Re : Macro pour Remise à Zéro

Bonjour SergiO
C'est parfait, merci de ton aide.
Guy