macro J Boigontier

Merci encore à vous tous
AnB



"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OMP0ip4qJHA.1504@TK2MSFTNGP03.phx.gbl...

Bonjour,

qu'on s'y prenne autrement ne change rien
à la façon de traiter seulement une intersection et pas ce qui est autour:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim iSect As Range, c As Range
Set iSect = Intersect([A1:C15], Target)
If iSect Is Nothing Then Exit Sub

Application.ScreenUpdating = False
On Error Resume Next
For Each c In iSect.Cells 'et oui c'est bien l'intersection

c.Interior.ColorIndex = [couleurs].Find(c, _
LookAt:=xlWhole).Interior.ColorIndex


Next c


End Sub

'lSteph

JB a écrit :

Bonjour,


http://cjoint.com/?dzgIxstNSH

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:C15], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub

JB
http://boisgontierjacques.free.fr/

On 22 mar, 20:45, "AnB" <nospam...@noos.fr> wrote:

Bonsoir
J'ai découvert cette macro de Mr Boisgontier jacques

mais est il possible de mettre les couleurs sur une autre feuille

débutant en macro je ne comprend pas très bien ceci
If Not Intersect([A1:C15], Target) Is Nothing And Target.Count = 1 Then

Merci de votre

Anbhttp://cjoint.com/?dytFwXWMCV