Problème de flag pour suspendre une macro...

[libellule85]

Bonjour le forum,

Voici mon petit problème : dans le thisworbook de mon classeur j'y ai mis la macro ci-dessous qui empêche la sélection des cellules contenant des formules.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'macro qui empêche la sélection des cellules contenant des formules
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula Then Selection.Cells(1, 1).Offset(, 1).Select
Next
End Sub

Parfois j'aimerais suspendre cette macro, alors pour ce faire j'utilise un Flag :

Dans la macro je rajoute If Flag then Exit Sub et en-dessous d'Option Explicit je mets Public Flag as Boolean et dans ma feuille je mets deux labels un pour enlever (flag = True) et un pour remettre (flag = false) mais cela ne fonctionne pas ! cela fonctionne que si je mets la macro dans toutes mes feuilles !!!

Quelqu'un aurait-il une petite idée pour m'aider ?
D'avance je vous en remercie

 

[kjin]

Re : Problème de flag pour suspendre une macro...

Bonjour,
Ton drapeau doit être déclaré dans un module standard
Sinon autre solution, vire le label2 dans toutes les feuilles, et dans le module...

Private Sub Label1_Click()
Label1 = IIf(Label1 = "Enlever", "Remettre", "Enlever")
End Sub

...et dans ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Cel As Range
If ActiveSheet.Label1.Caption = "Remettre" Then Exit Sub
For Each Cel In Target
    If Cel.HasFormula Then Cel.Offset(, 1).Select
Next
End Sub

A+
kjin

 

[libellule85]

[Résolu] Problème de flag pour suspendre une macro...

Bonjour kjin,

Je te remercie beaucoup pour ta réponse c'est vraiment sympa.
Bonne journée et encore merci