Discussion :

[jpma75]

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 :

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

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

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

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

application.enableevents = false

A mettre avant ton code et a remettre a true quand tu n'en a plus besoin

[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

[jpma75]

C'est bon, j'ai ajouté ça :

Code :

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

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

[halaster08]

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

[jpma75]

Bonjour,

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

[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

[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