Couleur de cellules

[Pensinf4204]

Bonjour
Voila j'aimerais que lorsque je clique sur une cellule dans une feuille la cellule active deviens jaune
ça j'ai trouvé
Mais quand je clique sur une nouvelle cellule la dernière sélectionnée devient a son tour jaune et l'ancienne redevienne blanche
Voila mon petit problème qui ne vous résisteras pas longtemps j'en suis sur
Merci de votre aide

 

[Excel-lent]

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

 

[Pensinf4204]

Re : Couleur de cellules

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

 

[Excel-lent]

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?

 

[jeanpierre]

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

 

[Excel-lent]

Re : Couleur de cellules

Merci à toi pour cette précision JeanPierre.

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

 

[myDearFriend!]

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

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

 

[jeanpierre]

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

 

[Pensinf4204]

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

 

[Hervé]

Re : Couleur de cellules

bonjour tout le monde

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

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