Discussion :

[Tonylooten]

Bonjour,

je souhaite dans le fichier joint empêcher l'enregistrement du classeur si une cellule rouge (MFC) est détectée sur la feuille "liste des entités". Pouvez vous m'aider ?

Merci par avance

[Marc-L]

Bonjour,

si la couleur est modifiée par une MFC alors elle n'est pas détectable, mauvaise idée donc ‼

Il suffit simplement de reproduire dans le code la condition de la MFC …


_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

[Invité]

Bonjour,
Il faut déclarer une variable booléenne public qui inhibera l'enregistrement du classeur.

Faire une fonction qui valide l'expression que tu utilisera dans don mfc.

En d'autres termes une fonction qui retourne True rouge false pas rouge, ton mec interprète la fonction et la fonction elle même valide la variable public!

Je rejoins Marc sur le fait qu'il n'y a pas d'événements à intercepter pour ce genre de traitement et qu'il faut ce le pognier!

[Jean-Philippe André]

Salut,

pour completer ce qu'ojn deja dit mes petits camarades, le code qui sera a prevoir sera situe dans l'evenement avant enregistrement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Si la variable Cancel = True, cela stoppera l'enregistrement
End Sub

[Marc-L]

Oui désolé, tellement focalisé sur la MFC, l'évènement j'ai oublié …

[joe.levrai]

Bonjour

http://www.developpez.net/forums/d10...r/#post5708812

je n'ai pas creusé la pertinence du post, mais émanant de Philippe .... ça vaut le coup de s'y intéresser ?

[RyuAutodidacte]

bonsoir,
je suis allé voir à droite et à gauche sur le net sur le sujet le trouvant intéressant
Mis à part le même lien donné par joe.levrai, je n'ai rien trouvé de vraiment concluant
j'ai donc fais une MFC toute simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
With Range("A1:E22")
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=1"
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    With .FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    .FormatConditions(1).StopIfTrue = False
End With
End Sub

Puis utiliser vos conseils :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = Application.WorksheetFunction.CountIf(Range("A1:E22"), "=1") > 0
End Sub

C'est nickel

[Tonylooten]

Bonjour à tous,

merci infiniment pour toutes vos réponses que je vais m'empresser de tester. C'est cool de pouvoir compter sur votre aide.

Cordialement