Mettre en surbrillance une autre cellule en plus de celle selectionnée

Bonjour,
j'aimerais pouvoir mettre en surbrillance une cellule lorsque j'en sélectionne une.
par exemple, si je sélectionne A1, alors K1 se retrouve en surbrillance.
et ainsi de suite, A2 donne K2, etc etc
merci de votre aide, je sèche un peu
cordialement

Salut,

il y a sûrement plusieurs méthodes, en voici une avec un petit code VBA ;

-dans le gestionnaire de noms, tu mets un nouveau nom du genre "lignesurbr" qui doit faire référence à une cellule de ton choix (hors colonnes A et K), par exemple M1 (exemple de référence pour Feuil1 : =Feuil1!$M$1)

-tu rajoutes comme macro pour la feuille où doit se faire cette surbrillance ;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(ActiveCell, Range("A1:A100")) Is Nothing Then
    Range("lignesurbr") = ActiveCell.Row
    Else
    Range("M1").ClearContents
    End If
    End Sub

-tu sélectionnes la colonne K, tu vas dans la MFC et mets ceci comme règle appliquée à tout la colonne K (ou de K1 à K100 par exemple) ;

=LIGNE(K1)=lignesurbr

Et tu choisis la MFC qui te convient (remplissage en bleu ...).

Si tu veux que la cellule en colonne A soit aussi en surbrillance, tu y mets la même MFC.

Il y a des variantes possibles pour laisser en surbrillance la cellule en K même si tu sélectionnes ensuite une cellule qui n'est pas dans la colonne A ou pour mettre en surbrillance la cellule en K quelle que soit la colonne sélectionnée, du moment que la cellule est sur la même ligne que celle à mettre en surbrillance.

super, cela fonctionne !!!
merci pour votre réponse rapide et efficace.
et si je veux le faire pour une autre colonne ?
dans mon cas sélection de A1 donne K1 en bleu
puis B1 donne L1 en rouge, etc
je vais essayer de mon coté, mais pouvez vous juste me dire si c'est techniquement réalisable ?
merci

Je n'ai pas essayé mais pas de raison que ce ne soit pas possible, je pense qu'il suffit de rajouter une autre cellule nommée et de rallonger le code, par exemple ;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(ActiveCell, Range("A1:A100")) Is Nothing Then
    Range("lignesurbr") = ActiveCell.Row
    Else
    Range("M1").ClearContents
    End If
 If Not Intersect(ActiveCell, Range("B1:B100")) Is Nothing Then
    Range("lignesur2") = ActiveCell.Row
    Else
    Range("N1").ClearContents
    End If
    End Sub

Et tu rajoutes bien sûr une MFC sur L.

ok, j'ai fait quelque chose de ressemblant, qui fonctionne très bien sur mon tableau test.
mais quand je l'adapte sur mon tableau réel, ça se complique ^^
je persévère et vous tiens au courant
merci de vos précieuses informations

du coup j'avais un décalage du aux lignes précédentes dans ma feuille.
ça me mettait bien les cellules en surbrillance, mais 4 lignes en dessous....
j'ai adapté le code,(

Range("ligne1") = ActiveCell.Row - 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(ActiveCell, Range("b5:b35")) Is Nothing Then
    Range("ligne1") = ActiveCell.Row - 4
    Else
    Range("u1").ClearContents
    End If
    End Sub

re,
bon ben ça marche plutôt bien sur une feuille...
sur 9 colonnes, qui chacune renvoi à une colonne distincte avec la même couleur....
mais j'ai 12 onglets à renseigner...
une idée pour m’éviter de tout retaper ?
j'ai bien essayé de copier/coller l'ensemble dans la nouvelle feuille, mais ce n'est pas si simple .... :/

A part copier/coller le code sur les 12 feuilles je ne vois pas.

Oui...

Je vais chercher encore...

Ou alors carrément faire figurer les 12 mois de l'année sur un seul et même onglet...

Affaire à suivre...

bon ben c'est plus compliqué que ca.
ca devient vite fastidieux.
dommage, je vais devoir continuer a viser deux cases en meme temps...

Bonjour,
ca y est , ca fonctionne.

une code VBA par onglet, beaucoup de MFC à renseigner, mais ça marche !

merci encore pour le coup de pouce

De rien, si c'est résolu tu peux le signaler en cliquant sur le message qui t'a aidé (flèche vers le haut en bas à droite du message).