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

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 !

libellule85

XLDnaute Accro
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.

Code:
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
 

Pièces jointes

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...
Code:
Private Sub Label1_Click()
Label1 = IIf(Label1 = "Enlever", "Remettre", "Enlever")
End Sub
...et dans ThisWorkbook
Code:
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
 
- 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éponses
9
Affichages
225
Réponses
14
Affichages
250
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
166
Réponses
4
Affichages
188
Réponses
4
Affichages
227
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
497
Retour