Discussion :

[Maxou 10]

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 :

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

[ARTURO83]

Bonsoir,

Si j'ai bien compris:

Code :

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

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

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

[ARTURO83]

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

[Maxou 10]

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.

[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"...

[Maxou 10]

Cartes est mon tableau structuré.....
Mais je vois pas comment faire ce que je veux avec....

[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

[Maxou 10]

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

Code :

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

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

par

Code :

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

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é