macro,ou formule pour repérage colonne Résolu/Fermé

Question

Bonjour à tous.

J'ai un tableau comprenant 16 colonnes,je cherche le moyen de signaler la colonne utilisée,soit en affichant une couleur vive dans la cellule surmontant le titre de cette colonne,soit par tout autre procédé bien visible.
J'ai pensé à une macro,mais mes connaissances en la matière ne sont pas à la hauteur de mes ambitions !
Y a t-il quelqu'un qui accepterait de me sortir de la panade ?
Merci à lui ou elle.

A plus.

Bremic83

michel_m · Answer

bonjour,
 ??? d'origine (XL2003), tu as la lettre de la colonne active déjà  coloré...

cette macro colore la ligne1 de la colonne active de la colonne A à la colonne P

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Columns("A:P")) Is Nothing Then Exit Sub
'enlève la couleur en ligne 1
Range("A1:P1").Interior.ColorIndex = xlNone
' colorie la ligne 1 de la colonne active
Cells(1, Target.Column).Interior.ColorIndex = 3
End Sub

Pour installer 
1/ copier ce code
2/ clic droit dans le nom de ton onglet- visualiser le code
3/copier

michel_m · Answer

Re,
comme quoi, il faut être précis dans tes demandes...
si j'ai bien pigé ta demande

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Columns("A23:P32")) Is Nothing Then Exit Sub
'enlève la couleur en ligne 23
Range("A23:P23").Interior.ColorIndex = xlNone
' colorie la ligne 23 de la colonne active
Cells(23, Target.Column).Interior.ColorIndex = 3
End Sub

ci joint un tableau des colorindex (si tu veux une autre couleur mais ca peut toujours servir)
https://www.cjoint.com/?ktmgSG8ibV

Bremic83 · Answer

Re,

J'ai recopié la macro dans le dossier,mais,si j'avais eu un résultat positif,ce matin,avec ton premier envoi,cette fois,je n'obtiens qu'une fenêtre d'erreur,qui me dit :"Erreur d'expression '1004': Erreur définie par l'application ou par l'objet",ce qui,pour moi,est plus obscur que l'Hébreu.
Désolé de t'ennuyer avec ça.

A plus

Bremic83

michel_m · Answer

hé oui, c'est Lundi!...
If Intersect(Target, Range("A23:P32")) Is Nothing Then Exit Sub
excuses-moi

Macro,ou formule pour repérage colonne

4 réponses

Discussions similaires