Microsoft 365 Modifier la couleur de fond d'une cellule lorsque l'on clique dessus

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Alain 79
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Alain 79

XLDnaute Occasionnel
Supporter XLD
Bonsoir,
J'ai un tableau situé à l'intérieur d'une feuille et je souhaiterai qu'en cliquant sur une cellule du tableau la ligne entière change de couleur.

Je joins un exemple avec les explications du problème rencontré.

Par avance je remercie la ou les personnes qui voudront bien m'aider
 

Pièces jointes

Solution
patricktoulon
bonjour
mfc sur les deux tableaux avec deprotection et reprotection
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo fin
    ActiveSheet.Unprotect
    Dim zone As Range
    Select Case True
        Case Not Intersect(Target, [C5:D11]) Is Nothing
            Set zone = [C5:D11]
        Case Not Intersect(Target, [b16:h25]) Is Nothing
            Set zone = [b16:h25]
    End Select
    [C5:D11].FormatConditions.Delete
    [b16:h25].FormatConditions.Delete
    If ActiveCell = "" Then Exit Sub
    With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
        .Font.Color = vbRed
        .Interior.Color = vbYellow
        .Font.Bold = True...
Trier par date Trier par votes
bonsoir
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo fin
    Cells.FormatConditions.Delete
    If Target = "" Then Exit Sub
    Dim zone As Range
    Set zone = [c2:d11]
    With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
        .Font.Color = vbRed
        .Interior.Color = vbYellow
        .Font.Bold = True
    End With

fin:
End Sub
 
Vote positif 0 Vote négatif
Bonjour,
Tout merci pour vos réponses.
Chris : Bien sûr, lorsque l'on clique sur une cellule extérieure au tableau tout redevient normal.

PatrickToulon : La macro fonctionne, sauf à modifier la zone (pour moi 'est le tableau qui m'intéresse), mais ce ne pas compliqué de modifier.
Par contre, comme ma feuille est protégée, je dois enlever la protection en incluant au début de la macro : ActiveSheet.Unprotect, ce qui impose de remettre la protection après.
Ce qui n'est pas trop gênant pour mon fichier puisqu'il comporte une barre d'outils personnalisé avec un bouton permettant de mettre ou sortir la protection.
VB: 
Sub ProtectionFeuille()
 Dim ActualSheet    As String
    ActualSheet = ActiveSheet.Name
    Sheets(ActualSheet).Select
        Application.ScreenUpdating = False
    If Sheets(ActualSheet).Range("A1") = 0 Then
        ActiveSheet.Unprotect
        Sheets(ActualSheet).Range("A1") = 1
        Application.ScreenUpdating = True
    ElseIf Sheets(ActualSheet).Range("A1") = 1 Then
        Sheets(ActualSheet).Range("A1") = 0
        Sheets(ActualSheet).Range("A1").Select
        Application.ScreenUpdating = True
        ActiveSheet.Protect
    End If
End Sub
Et à l'aide d'une mise en forme conditionnelle, un message apparaît dans une cellule pour indiquer que la protection est désactivée.
Mais la macro SelectionChaange.... efface la mise en forme conditionnelle.
Ah, on est compliqué, mais c'est la magie d'Excel et des macros de solutionner ces petits problèmes dès que l'on trouve le bon code.

ToFatBoy : le formulaire n'est pas un tableau structuré mais sert uniquement à saisir des informations (en D5 à D11) qui alimenteront le tableau.
Il y a, comme indiqué, ci-dessus une MFC dans une cellule pour indiquer lorsque la feuille n'est plus protégée.

En tout cas, merci pour vos réponses et espérant pouvoir trouver d'autres réponses au problème restant.
 
Vote positif 0 Vote négatif
Oui j'ai oublié de mettre la macro modifiée :
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo fin
    ActiveSheet.Unprotect
    Cells.FormatConditions.Delete
    'If Target = "" Then Exit Sub
    Dim zone As Range
    Set zone = [Tableau13]
    With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
        .Font.Color = vbRed
        .Interior.Color = vbYellow
        .Font.Bold = True
    End With

fin:
End Sub
Et de joindre le fichier après modification
 

Pièces jointes

Vote positif 0 Vote négatif
bonjour
mfc sur les deux tableaux avec deprotection et reprotection
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo fin
    ActiveSheet.Unprotect
    Dim zone As Range
    Select Case True
        Case Not Intersect(Target, [C5:D11]) Is Nothing
            Set zone = [C5:D11]
        Case Not Intersect(Target, [b16:h25]) Is Nothing
            Set zone = [b16:h25]
    End Select
    [C5:D11].FormatConditions.Delete
    [b16:h25].FormatConditions.Delete
    If ActiveCell = "" Then Exit Sub
    With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
        .Font.Color = vbRed
        .Interior.Color = vbYellow
        .Font.Bold = True
    End With
  fin:
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
                                                                      , AllowFormattingCells:=True

End Sub
 
Vote positif 0 Vote négatif
Solution
Re-Bonjour,
C'est pratiquement parfait, pour moi je n'ai besoin de sélectionner uniquement le 2éme tableau structuré en remplaçant [b16:h25] par [Tableau13].
Les cellules D5😀11 ne sont pas verrouillées car elles permettent la saisie sans enlever la protection de la feuille.
Tout fonctionne bien lorsque je clique sur une cellule du tableau, mais lorsque que je clique en dehors la protection se sort automatiquement.
En fait lorsque je clique en dehors du tableau, la protection de la feuille ne doit pas être désactivée, et je ne peux cliquer que sur les cellulesD5😀11 qui ne sont pas verrouillées
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo fin
    ActiveSheet.Unprotect
    Dim zone As Range
    Select Case True
        'Case Not Intersect(Target, [C5:D11]) Is Nothing
            'Set zone = [C5:D11]
        Case Not Intersect(Target, [Tableau13]) Is Nothing
            Set zone = [Tableau13]
    End Select
    '[C5:D11].FormatConditions.Delete
    [Tableau13].FormatConditions.Delete
    If ActiveCell = "" Then Exit Sub
    With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
        .Font.Color = vbRed
        .Interior.Color = vbYellow
        .Font.Bold = True
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
                                                                      , AllowFormattingCells:=True
fin:
End Sub
 
Vote positif 0 Vote négatif
Alain 79 à dit:
le formulaire n'est pas un tableau structuré mais sert uniquement à saisir des informations (en D5 à D11) qui alimenteront le tableau.
Cliquez pour agrandir...
Ok.

Alain 79 à dit:
Il y a, comme indiqué, ci-dessus une MFC dans une cellule pour indiquer lorsque la feuille n'est plus protégée.
Cliquez pour agrandir...
Je suppose que ladite cellule est en dehors du tableau et donc c'est bien ce que je disais : il ne faut pas utiliser "Cells.FormatConditions.Delete". 😉


Dans la macro Worksheet_SelectionChange que tu as postée en #6 tu déproteges ta feuille en début de macro, mais tu ne la reprotèges pas en fin de macro. 🙃
 
Vote positif 0 Vote négatif
Bien, je crois avoir trouvé la solution avec la macro de PatrickToulon adaptée à mon cas.

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo fin
    Dim zone As Range
    Select Case True
        Case Not Intersect(Target, [Tableau13]) Is Nothing
            Set zone = [Tableau13]
    End Select
    [Tableau13].FormatConditions.Delete
    If ActiveCell = "" Then Exit Sub
    With zone.FormatConditions.Add(xlExpression, Null, "=LIGNE(" & zone.Cells(1).Address(False, False) & ")=" & ActiveCell.Row)
        .Font.Color = vbRed
        .Interior.Color = vbYellow
        .Font.Bold = True
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
                                                                      , AllowFormattingCells:=True
    [A1] = 0
fin:
End Sub

Marci PatrickToulon pour la solution et à TooFatBoy pour avoir répondu
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

nrdz83
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
165
job75
job75
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
129
tuti
T
T
  • Question Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
441
Tophe2
T
M
  • Question Question
XL 2016 Changement de couleur cellule
Réponses
1
Affichages
269
Gégé-45550
Gégé-45550
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
350
pvander
P
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
266
sylvanu
sylvanu
Yann71
  • Question Question
Microsoft 365 Compter le nombre de cellule mise en couleur avec MFC
2
Réponses
19
Affichages
916
job75
job75
A
  • Résolu(e)
Microsoft 365 Sélectionner une cellule
Réponses
5
Affichages
368
chris
chris
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
961
jojo4738
J
halecs93
  • Résolu(e)
XL 2016 Appliquer sur une sélection la couleur d'une autre cellule
Réponses
4
Affichages
453
halecs93
halecs93
Droopyougo
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
375
Droopyougo
Droopyougo
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
811
Laliepomm
L
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
618
Nel'
N
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
693
NONO14
N
D
  • Question Question
XL 2010 fond blanc et gris dans plusieurs tableaux
Réponses
1
Affichages
687
TooFatBoy
TooFatBoy
R
  • Résolu(e)
Microsoft 365 calculer une moyenne conditionnelle en retirant certaines valeurs par le biais de la couleur de fond d'une cellule
Réponses
7
Affichages
642
ricoben
R
F
  • Question Question
XL 2019 Coloré une cellule que l'on vient de modifier en fonction des noms dans une colonne
Réponses
3
Affichages
467
Franck35P
F
M
  • Question Question
XL 2013 changement de couleur de police qd cellule modifiée
Réponses
10
Affichages
595
michel.dupont
M
P
  • Question Question
XL 2016 identifier chaine de caractère dans une cellule et ramener une donnée d'une table de correspondance
Réponses
5
Affichages
614
pmid20
P
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
922
Pac41240
P
Retour