Autres [RÉSOLU] Peut-on faire une macro qui met une seule macro en commentaires puis le contraire!!!

[un internaute]

Bonjour le forum
Allo! job75
Ta macro un bijou
Comme dit dans le titre est-ce possible?
Non pas sélectionner la macro puis faire "commenter bloc" puis le contraire "Ne pas commenter bloc" peut-on le faire avec une macro puis un bouton?
C'est certainement IDIOT ou C$N!!!
Te tente quand même .. mais interdit de rigoler!!!

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, trim%, txt$, W#, n%
Set plage = Range("D18,D37,D56,D75")
Application.ScreenUpdating = False
Application.EnableEvents = False
For trim = 1 To 4
    txt = "Montant Fonds Travaux " & trim & IIf(trim = 1, "er", "ème") & " Trimestre "
    Set Target = plage.Areas(trim)
    W = Target.ColumnWidth
    n = 0
    Do
        n = n + 1
        Target = txt & String(n, "-") & ">"
        Target.Columns.AutoFit
    Loop While Target.ColumnWidth < W + 1
    Target.ColumnWidth = W
    Target.Characters(Len(txt) - 14, 14).Font.Color = vbRed
Next trim
Application.EnableEvents = True
End Sub

 

[un internaute]

Bonjour le forum
Voilà fait
Passé macro de feuille Année 2025 dans ThisWorkbook
Modifié titre bouton
On n'a pas le même Excel donc pas facile pour vous de m'aider mais nous y sommes arrivé
MERCI A TOUS
Bonne semaine
Très cordialement