Changer couleur cellule

Bonsoir chers tous

Je voudrais un code pour que a chaque cellule sélectionnée dans "B2:C4" et "B6:C8" la cellule correspondante en colonne A change de couleur et redeviens normale si on change de ligne.

Merci

Bonjour,

A tester

M12 a écrit :

Bonjour,

A tester

KTM.xlsm

Merci M12

Tres sympa

M12 a écrit :

Bonjour,

A tester

KTM.xlsm

Merci

Mais comment adapter pour que la procédure s’étende chaque fois a la dernière colonne utilisée ? Merci

Bonsoir KTM, M12 , le forum,

Un essai....

Cordialement,

EDIT: oups! j'ai lu trop vite, j'ai agit sur les lignes et non les colonnes,

Re,

A tester, avec le Nb colonnes variant en ligne 1 (Entête)

Salut tout le monde,

Eh, c'est fête, ici ?

Rien de nouveau j'imagine?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Intersect(Target, Range("B:C")) Is Nothing Then
    If [AAA10] > 0 Then Rows([AAA10]).Interior.Color = xlNone
    iRow = Target.Row
    If Range("A" & iRow).Value <> "" And iRow > 1 Then
        [AAA10] = iRow
        Range("A" & iRow).Resize(1, Cells(1, Columns.Count).End(xlToLeft).Column).Interior.ColorIndex = 15
    End If
End If
'
End Sub

A+

Re,

Correctif....pour prendre en compte les colonnes....

Cordialement,

edit: bonsoir curulis57

Il semblerait que tu interprète la demande sous un autre angle.....Avec M12, nous avons compris que si on rajoute des colonnes, la plage "cliquable " prend en compte ces colonnes et seule la cellule correspondante en colonne A se colore,

Salut Xorsankukai,

pour que la procédure s’étende chaque fois a la dernière colonne utilisée

Tu avoueras que le champ des possibles est aussi vaste que les Grandes Plaines...

A+

Re curulus57,

Tu avoueras que le champ des possibles est aussi vaste que les Grandes Plaines

Tout à fait,

En revanche, pourquoi

[AAA10]

dans ton code ? C'est une plage nommée ?

Amitiés,