Effacer le contenu d'une cellule en cliquant sur une autre cellule

Bonjour à tous,

Débutant dans excel me voilà limité...

je souhaiterai faire un tableau avec 5 colonnes et plusieurs lignes.

Colonnes correspondant à des états machines (en prod, arret , maintenance etc...) et lignes aux machines en question, machine A,B,C etc...

Le but est d'avoir un repère visuel.

Je souhaiterai en cliquant sur la cellule machine ''A / en prod '' faire apparaitre celle ci avec une couleur lui étant dédiée . ( en prod vert, panne rouge etc...)

Par contre je souhaiterai pouvoir effacer celle-ci en cliquant sur une autre cellule et faire apparaitre sur cette nouvelle la couleur dédiée.

Merci pour votre aide.

Mika

Posté le 19 juillet 2023, 14:08
par Mika

signaler

Répondre

Ajouter un commentaire

Bonjour Mika,

je te propose ce fichier : https://www.cjoint.com/c/MGugsXNrvl0

mode d'emploi : fais un clic droit sur une des cases en gris clair.

code VBA de Feuil1 (15 lignes) :

Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim lig&, col%: Cancel = -1
With Target
lig = .Row: If lig = 1 Then Exit Sub
col = .Column: If col = 1 Or col > 5 Then Exit Sub
If Cells(lig, 1) = "" Then Exit Sub
Application.ScreenUpdating = 0
Cells(lig, 2).Resize(, 4).Interior.Color = 15132391 'gris clair
'autres couleurs : vert, jaune, orange, rouge (1 seule à la fois)
.Interior.Color = Choose(col - 1, 5287936, 65535, 49407, 255)
End With
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. :)

rhodo

Posté le 20 juillet 2023, 08:25
par rhodo

signaler

Ajouter un commentaire

Bonjour Rhodo

merci pour ta réponse :) , je vais essayer!

Posté le 20 juillet 2023, 10:16
par Mika

signaler

Ajouter un commentaire

Bonjour Rhodo

je me suis inspiré de tes lignes pour mon tableau .

J'ai réussi à changer les couleurs de cellules , figer les colonnes non souhaitées etc...

Quand je clic du ligne à une autre, une par une ( de la ligne 1à 5 par ex) les couleurs s'affichent bien dans les cellules souhaitées, mais quand je clic en remontant ( de 5 à 4 par ex) la couleur de la cellule de la ligne 5 disparait...ou 4 ou 3 etc....Une idée?

Merci pour ton aide :)

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Dim lig&, col%: Cancel = -1

With Target

lig = .Row: If lig = 1 Then Exit Sub

col = .Column: If col = 1 Or col > 5 Then Exit Sub

If Cells(lig, 1) = "" Then Exit Sub

Application.ScreenUpdating = 0

Cells(lig, 2).Resize(, 4).Interior.Color = 15132391 'gris clair

'autres couleurs : vert, jaune, orange, rouge (1 seule à la fois)

.Interior.Color = Choose(col - 1, 5287936, 65535, 49407, 255)

End With

End Sub

lig = .Row: If lig = 3 Application.ScreenUpdating = 0 Then Exit Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Dim lig&, col%: Cancel = -2

With Target

lig = .Row: If lig = 3 Then Exit Sub

col = .Column: If col = 3 Or col > 9 Then Exit Sub

If col = 1 Then Exit Sub

If col = 2 Then Exit Sub

If col = 3 Then Exit Sub

If col = 4 Then Exit Sub

If lig = 1 Then Exit Sub

If lig = 2 Then Exit Sub

If lig = 3 Then Exit Sub

If lig = 15 Then Exit Sub

If lig = 14 Then Exit Sub

If lig = 15 Then Exit Sub

If lig = 26 Then Exit Sub

If lig = 25 Then Exit Sub

If lig = 40 Then Exit Sub

If lig = 41 Then Exit Sub

If lig = 42 Then Exit Sub

If lig = 43 Then Exit Sub

If lig = 44 Then Exit Sub

If lig = 45 Then Exit Sub

If lig = 46 Then Exit Sub

If lig = 47 Then Exit Sub

If lig = 48 Then Exit Sub

Application.ScreenUpdating = 0

Cells(lig, 4).Resize(lig, 4).Interior.Color = RGB(255, 255, 255)

'autres couleurs : vert, gris, gris, rouge, bleu (1 seule à la fois)