Désactiver MEF avant impression

Version imprimable

Bonjour,

Comment désélectionner cette MEF (pour imprimer la Feuille, avant impression, par exemple) ?
J'ai bien essayé (sans conviction) de sélectionner une cellule hors de la plage zone_saisie mais ce qui marche quand on est sur la Feuille ne fonctionne évidemment plus si la sélection est faite par le code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim entete_lign As String
Dim entete_col As String
Dim zone_saisies As String
Dim Bleu_Clair As String
 
    Bleu_Clair = RGB(91, 224, 255)
 
    entete_lign = "c6:abf6"
    entete_col = "a7:a15"
    zone_saisies = "c7:abf15"
 
    With ActiveSheet
        .Range(entete_lign).Interior.ColorIndex = 2  
        .Range(entete_col).Interior.ColorIndex = 2   
    End With
 
    If Not Intersect(Range(zone_saisies), Target) Is Nothing And Target.Count = 1 Then
        Range("A" & ActiveCell.Row).Interior.Color = Bleu_Clair              
        Cells([6], Target.Column).Resize(1, 1).Interior.Color = Bleu_Clair   
    End If
 
End Sub

En vous remerciant par avance pour vos lumières,
Cordialement,
jp

03/08/2020, 15h12
halaster08

Bonjour,

Je ne suis pas sur de comprendre exactement ce que tu cherches a faire
Tu peux bloquer les macro évènementielles grâce au code suivant:

Code:

application.enableevents = false

A mettre avant ton code et a remettre a true quand tu n'en a plus besoin
03/08/2020, 16h40
jpma75

Bonjour,

Si je sélectionne une cellule dans la plage zone_saisies "c7:abf15"
Les en-têtes de colonne "a7:a15" et de ligne "c6:abf6" correspondantes, affichent un motif.

Une fois qu'il est affiché, l'utilisation de Application.EnableEvents = False ne le désactive pas (sauf erreur de ma part).

Cordialement,
jp
03/08/2020, 16h55
jpma75
C'est bon, j'ai ajouté ça :
Code:

1 2 3 4 With ActiveSheet .Range(entete_lign).Interior.ColorIndex = 2 'blanc .Range(entete_col).Interior.ColorIndex = 2 'blanc End With
Méthode efficace mais de contournement ; j'aurais préféré passer par une dé-sélection des motifs.
Et comme la MEFC se trouve sur le code de la feuille et que je dois la désactiver sur le module de création du PDF, ça m'a contraint à déclarer les plages en variables Public. Pas grave.

Cordialement,
jp
04/08/2020, 07h43
halaster08

Citation:

Envoyé par jpma75

Si je sélectionne une cellule dans la plage zone_saisies "c7:abf15"
Les en-têtes de colonne "a7:a15" et de ligne "c6:abf6" correspondantes, affichent un motif.

Une fois qu'il est affiché, l'utilisation de Application.EnableEvents = False ne le désactive pas (sauf erreur de ma part).

Il faut mettre Application.EnableEvents = False avant ta sélection, si tu ne veux pas changer la couleur de tes en-têtes
04/08/2020, 17h15
jpma75

Bonjour,

Citation:

Application.c avant ta sélection

Oui mais le but est d'afficher les motifs (en en-têtes) quand on sélectionne une cellule.
Quand tu parles de sélection, tu suggères d'en refaire une, précédée de EnableEvents = False juste pour désactiver les motifs avant d'imprimer la feuille ?
Pas sûr d'avoir bien compris.

Cordialement,
jp
05/08/2020, 07h57
halaster08

Non je parlais pas faire une seconde selection, en fait je crois que c'est moi qui n'ai pas compris ce que tu cherches a faire.
Tu parles de désactiver la macro mais en fait non tu veux qu'elle marche quand même.
Du coup désolé de t'avoir fait perdre du temps et content que tu ai trouvé une solution
07/08/2020, 17h06
jpma75

Bonjour,

S'il y en a un parmi nous deux qui risque de faire perdre du temps à l'autre, c'est certainement moi.
Donc pas de souci ; la solution de remettre un motif blanc sur les Entêtes de Colonnes et de Lignes sont simples (pour moi) et dans ce cas efficaces.

Merci vraiment pour ton aide et désolé pour mon manque probable de clarté dans l'énoncé de mon problème,

Cordialement,
jp