Couleur de cellules

Excel-lent

XLDnaute Barbatruc

• 20 Août 2007

• #2

Re : Couleur de cellules

Slt Pensif4204

Peux-tu mettre en ligne ton fichier avec la macro?

Ainsi on n'aura plus qu'à la compléter.

A tout à l'heure

 

Vote positif 0 Vote négatif

P

Pensinf4204

XLDnaute Nouveau

• 20 Août 2007

• #3

Re : Couleur de cellules

Bonjour(re)
Voici donc mon fichier avec le code dans la feuille

 

Pièces jointes

• Couleur.xls

  20 KB · Affichages: 60
• Couleur.xls

  20 KB · Affichages: 64
• Couleur.xls

  20 KB · Affichages: 60

Vote positif 0 Vote négatif

Excel-lent

XLDnaute Barbatruc

• 20 Août 2007

• #4

Re : Couleur de cellules

Je suis désolé de te contredire, mais ta macro fonctionne à la perfection.

Lorsque je sélectionne une cellule, elle se colorie en jaune.

Lorsque je sélectionne une seconde cellule, elle se colorie en jaune et la précédente reste jaune.

C'est bien ce que tu voulais? Ou tu veux que les cellules précédentes redeviennent blanche?

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 20 Août 2007

• #5

Re : Couleur de cellules

Bonsoir Pensinf4204, Excel-lent, re tous,

Ecrit dans le texte : Mais quand je clique sur une nouvelle cellule la dernière sélectionnée devient a son tour jaune et l'ancienne redevienne blanche

Faut lire.... car "C'est bien ce que tu voulais? Ou tu veux que les cellules précédentes redeviennent blanche?"

C'étais Papy pas fute fute des fois....

 

Vote positif 0 Vote négatif

Excel-lent

XLDnaute Barbatruc

• 20 Août 2007

• #6

Re : Couleur de cellules

Merci à toi pour cette précision JeanPierre.

Il semblerait que je sois allé trop loin sans m'en rendre compte

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 20 Août 2007

• #7

Re : Couleur de cellules

Bonsoir Pensinf4204, Excel-lent, jeanpierre,

Pas sûr d'avoir tout compris dans ce fil...

Au cas où (pour conserver la couleur d'origine des cellules parcourues) :

Code:

[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Worksheet_SelectionChange([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
[COLOR=GREEN]'myDearFriend![/COLOR]
[COLOR=NAVY]Static[/COLOR] ancCel [COLOR=NAVY]As[/COLOR] Range, ancCoul [COLOR=NAVY]As Integer
    If Not[/COLOR] ancCel [COLOR=NAVY]Is Nothing Then[/COLOR] ancCel.Interior.ColorIndex = ancCoul
    [COLOR=NAVY]Set[/COLOR] ancCel = ActiveCell
    ancCoul = ancCel.Interior.ColorIndex
    ancCel.Interior.ColorIndex = 6
[COLOR=NAVY]End Sub[/COLOR]
[/SIZE]

Cordialement,

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 20 Août 2007

• #8

Re : Couleur de cellules

Re,

No souci Excel-lent,

Je m'aperçois que nous sommes tous pareils...

On lit trop vite et en travers. La lecture diagonale, à l'écran à des limites...

Bonne soirée et sans rancune...

 

Vote positif 0 Vote négatif

P

Pensinf4204

XLDnaute Nouveau

• 21 Août 2007

• #9

Re : Couleur de cellules

Merci a vous tous malgrés une expliquation quelque peu alambiquer vous avez trouvés c'est excatement ce que je recherchais

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 21 Août 2007

• #10

Re : Couleur de cellules

bonjour tout le monde

une autre solution dans la meme veine que celle de Mdf (sa solution est meilleur) :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'efface tout les formats conditionnels de la feuilles
Cells.FormatConditions.Delete

'colore la cellule active en jaune
With Target
    .FormatConditions.Add Type:=xlExpression, Formula1:="VRAI"
    .FormatConditions(1).Interior.ColorIndex = 6
End With

End Sub

souci, on ne peut plus utiliser de format conditionnel sur la feuille.

salut

 

Vote positif 0 Vote négatif