Clic dans cellule couleur d'une autre cellule

[zesuila]

Bonjour à tous
Voilà je suis en train d'essayer de faire un planning adapté, avec la macro de mydearfriend.
Je voudrais que lorsque je fais un clic dans une cellule, que cette cellule reprenne la couleur de la 1ere cellule de la ligne.

Je suis sûr que c'est possible pour vous ! 😀

merci

 

[job75]

Re : Clic dans cellule couleur d'une autre cellule

Bonjour zesuila,

A placer dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 2560 Then Exit Sub
For Each Target In Target 'en cas de sélection simultanée de plusieurs cellules
Target.Interior.ColorIndex = Range("A" & Target.Row).Interior.ColorIndex
Next
End Sub

A+

 

[zesuila]

Re : Clic dans cellule couleur d'une autre cellule

Pfuit fait l'éclair
pfuit fait job75 ! quel rapidité
Super bravo et merci

 

[zesuila]

Re : Clic dans cellule couleur d'une autre cellule

J'ai une autre question !
et si par hasard je me suis trompé de cellule, comment faire pour remettre celle ci en blanc (par ex en tapant x ou double clic je sais pas !)

 

[job75]

Re : Clic dans cellule couleur d'une autre cellule

Re,

Bon là on arrête de rigoler, on se limite à une seule cellule sélectionnée.

Le double clic efface la couleur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Target.Interior.ColorIndex = Range("A" & Target.Row).Interior.ColorIndex
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = Null
Cancel = True
End Sub

A+

 

[zesuila]

Re : Clic dans cellule couleur d'une autre cellule

bon d'accord j'arrête de rigoler mais une petite question :
pourquoi on ne se limite qu'à une seule cellule avec cette 2e version ?

 

[job75]

Re : Clic dans cellule couleur d'une autre cellule

Re,

On peut conserver la macro de mon 1er post, mais après, si l'on veut effacer, il faut double-cliquer sur chaque cellule dont la couleur a été modifiée.

Et il peut y en avoir jusqu'à 2560...

Bien sûr vous pouvez mettre une limite plus basse !

A+

 

[job75]

Re : Clic dans cellule couleur d'une autre cellule

Re,

Une autre solution pour effacer les couleurs.

A la place, ou en plus, du double-clic, on peut effacer les couleurs de toutes les cellules sélectionnées, sauf celles de la colonne A :

Sub EffaceCouleur()
On Error Resume Next
Intersect(Selection, Range("B:IV")).Interior.ColorIndex = Null
End Sub

Le plus simple est d'affecter à cette macro le raccourci clavier Ctrl+A.

Il me semble qu'on a fait le tour de la question.

A+

 

[zesuila]

Re : Clic dans cellule couleur d'une autre cellule

Bonjour Job75
Oui le tour est fait !
Merci beaucoup