quand click sur une cellule

[chico]

bonsoir a tous;

je voudrais savoir si on peut changer la couleur du fond d'une cellule quand on click dessus?

ma plage de cellule est:
(B4;B33)
merci encore de m'aider

-chico-

 

[chico]

j'ai oublié de dire que, si on click sur une autre cellule de la selection, la cellule clické avant redeviens de la couleurs normal

 

[Dan]

Bonsoir,

Place cette macro en VBA dans la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range('B4:B33')) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 48 Then
Selection.Interior.ColorIndex = xlNone
Else
Selection.Interior.ColorIndex = 48
End If
End With
End If
End Sub

Bon travail

 

[chico]

Merci Dan,

c'est presque ca,

dans B4:B33

je voudrai qu'il y ai qu'une cellule grise a la fois

si je click sur B5 ( elle deviens gris)

apres si je click B8, B5 redeviens blanc et b8 deviens gris,

c possible?

 

[Dan]

Re,

Ah tu m'avais pas expliqué cela au début de ta demande.
Là le code est différent

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range('B4:B33')) Is Nothing Then
Range('B4:B33').Interior.ColorIndex = xlNone
With Target
Selection.Interior.ColorIndex = 48
End With
End If
End Sub

 

[Hervé]

Bonjour chico, dan

Une proposition en pièce jointe

si sélection d'une cellule en b4:b33 alors la cellule devient rouge, puis après déselection, la cellule reprend sa couleur d'origine.

salut
[file name=Classeur2_20051107231326.zip size=7954]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20051107231326.zip[/file]

 

[chico]

merci dan c exactement ca

merci encore

Hervé g appris qqch que je savais pas comment faire:

j'avais la meme idée:

dim onoff as boolean
if onoff = true then
onoff = false

mais j'avais un dyleme parce que je croyais qu'il fallais definir l'etat de onoff avant de faire une comparaison

et dans ton exemple je vois qu'il n'y a pas besoin