selection hors tableau delete

Version imprimable

Bonjour,

j'aimerais rajouter a mon code le fait de click en dehors de mon tableau "cartes" cela me fait efface le format zone....
voila mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim zone As Range
    Set zone = ActiveCell.CurrentRegion
 
    If Not Intersect(Target, Range("Cartes")) Is Nothing Then
 
        Cells.FormatConditions.Delete
 
        With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, famse) & ")=" & ActiveCell.Row)
        .Interior.Color = 9420794
        .Font.Bold = True
        zone.Font.Size = 14
        End With
 
    End If
End Sub

Merci et bonne soirée

Bonsoir,

Si j'ai bien compris:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim zone As Range
    Set zone = ActiveCell.CurrentRegion
    If Not Intersect(Target, Range("Cartes")) Is Nothing Then
        Cells.FormatConditions.Delete
        With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, famse) & ")=" & ActiveCell.Row)
            .Interior.Color = 9420794
            .Font.Bold = True
            zone.Font.Size = 14
        End With
    Else
        zone.FormatConditions.Delete
    End If
End Sub

Cdlt

26/04/2021, 19h25
Maxou 10

mon tableau va de la colonne O à AB...
cette commande fonctionne mais que quand je click dans ma colonne juste avant, c'est a dire colonne N.
Est-il possible de le faire partout sauf dans le tableau ?
26/04/2021, 19h30
ARTURO83

Nom de la zone "Cartes" quelle plage?
Nom de la zone "Zone" quelle plage?
26/04/2021, 19h43
Maxou 10

Citation:

Envoyé par ARTURO83

Nom de la zone "Cartes" quelle plage?
Nom de la zone "Zone" quelle plage?

mon tableau "cartes" va de O3 à AB1000
et ma zone je voudrais aussi que ce soit mon tableau "cartes"

En gros je voudrais que si je sélectionne une cellule dans mon tableau, la ligne du tableau correspondante prenne la forme que je lui donne.
Et que si je sélectionne une cellule a l’extérieur de mon tableau ca revienne à l'état initiale.
26/04/2021, 20h07
Pierre Fauconnier

Salut.

Tu devrais travailler avec un tableau structuré... Ca te permettrait de circonscrire ta MFC au tableau structuré et tu ne devrais probablement pas utiliser du code vba pour "corriger"...
26/04/2021, 20h14
Maxou 10

Cartes est mon tableau structuré.....
Mais je vois pas comment faire ce que je veux avec....
26/04/2021, 20h51
Pierre Fauconnier

Tu veux supprimer le format de Zone lorsque l'on clique ailleurs que dans le tableau? On ne sait pas "supprimer un format", on peut remplacer un format par un autre, éventuellement.

Si j'ai bien compris, dans le code qu'Arthuro t'a donné, supprime le Not et englobe les lignes d'entête et de total du tableau... => If Intersect(Target, Range("Cartes[#all]")) Is Nothing Then

j'ai réussi en remplaçant zone par cells
Code:

1 2 3 4 5 6 Else zone.FormatConditions.Delete End If End Sub
par
Code:

1 2 3 4 5 6 Else cells.FormatConditions.Delete End If End Sub
Merci pour vos réponse, vous m'avez bien débloqué