mettre une cellule en couleur quand on en selectionne une autre
8 réponses
xavier
Bonjour,
J'ai dans ma colonne a (1-12) les mois
et dans mes colonnes b c d e f g h i j k l m des données correspondant au
mois en question
afin de ne pas me tromper de ligne dans l'encodage, je souhaiterais pouvoir
mettre la cellule du mois en question dans une autre couleur une fois que je
sélectionne une des cellules présente sur la ligne du mois en question
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
rgi
Bonjour
avec ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 20 Or Target.Column < 1 Or Target.Column > 8 Then Exit Sub Range("a1:h20").Interior.ColorIndex = xlNone Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 36 End Sub
salutations
Gilbert "xavier" a écrit dans le message de news:
Bonjour,
J'ai dans ma colonne a (1-12) les mois
et dans mes colonnes b c d e f g h i j k l m des données correspondant au mois en question afin de ne pas me tromper de ligne dans l'encodage, je souhaiterais pouvoir mettre la cellule du mois en question dans une autre couleur une fois que je sélectionne une des cellules présente sur la ligne du mois en question
merci
Bonjour
avec ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 20 Or Target.Column < 1 Or Target.Column > 8 Then Exit Sub
Range("a1:h20").Interior.ColorIndex = xlNone
Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 36
End Sub
salutations
Gilbert
"xavier" <xavier@discussions.microsoft.com> a écrit dans le message de news:
5B12330A-917E-497E-979D-44431AB51384@microsoft.com...
Bonjour,
J'ai dans ma colonne a (1-12) les mois
et dans mes colonnes b c d e f g h i j k l m des données correspondant au
mois en question
afin de ne pas me tromper de ligne dans l'encodage, je souhaiterais
pouvoir
mettre la cellule du mois en question dans une autre couleur une fois que
je
sélectionne une des cellules présente sur la ligne du mois en question
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 20 Or Target.Column < 1 Or Target.Column > 8 Then Exit Sub Range("a1:h20").Interior.ColorIndex = xlNone Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 36 End Sub
salutations
Gilbert "xavier" a écrit dans le message de news:
Bonjour,
J'ai dans ma colonne a (1-12) les mois
et dans mes colonnes b c d e f g h i j k l m des données correspondant au mois en question afin de ne pas me tromper de ligne dans l'encodage, je souhaiterais pouvoir mettre la cellule du mois en question dans une autre couleur une fois que je sélectionne une des cellules présente sur la ligne du mois en question
merci
xavier
super merci
Bonjour
avec ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 20 Or Target.Column < 1 Or Target.Column > 8 Then Exit Sub Range("a1:h20").Interior.ColorIndex = xlNone Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 36 End Sub
salutations
Gilbert "xavier" a écrit dans le message de news:
Bonjour,
J'ai dans ma colonne a (1-12) les mois
et dans mes colonnes b c d e f g h i j k l m des données correspondant au mois en question afin de ne pas me tromper de ligne dans l'encodage, je souhaiterais pouvoir mettre la cellule du mois en question dans une autre couleur une fois que je sélectionne une des cellules présente sur la ligne du mois en question
merci
super merci
Bonjour
avec ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 20 Or Target.Column < 1 Or Target.Column > 8 Then Exit Sub
Range("a1:h20").Interior.ColorIndex = xlNone
Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 36
End Sub
salutations
Gilbert
"xavier" <xavier@discussions.microsoft.com> a écrit dans le message de news:
5B12330A-917E-497E-979D-44431AB51384@microsoft.com...
Bonjour,
J'ai dans ma colonne a (1-12) les mois
et dans mes colonnes b c d e f g h i j k l m des données correspondant au
mois en question
afin de ne pas me tromper de ligne dans l'encodage, je souhaiterais
pouvoir
mettre la cellule du mois en question dans une autre couleur une fois que
je
sélectionne une des cellules présente sur la ligne du mois en question
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 20 Or Target.Column < 1 Or Target.Column > 8 Then Exit Sub Range("a1:h20").Interior.ColorIndex = xlNone Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 36 End Sub
salutations
Gilbert "xavier" a écrit dans le message de news:
Bonjour,
J'ai dans ma colonne a (1-12) les mois
et dans mes colonnes b c d e f g h i j k l m des données correspondant au mois en question afin de ne pas me tromper de ligne dans l'encodage, je souhaiterais pouvoir mettre la cellule du mois en question dans une autre couleur une fois que je sélectionne une des cellules présente sur la ligne du mois en question
merci
cr
et pour une colonne ? j'ai essayé mais comment transforme-t-on la lettre de la colonne pour qu'elle soit acceptée par un RANGE ?
merci
et pour une colonne ?
j'ai essayé mais comment transforme-t-on la lettre de la colonne pour
qu'elle soit acceptée par un RANGE ?
Pour l'appliquer à toute la colonne : Target.EntireColumn.Interior.ColorIndex = 36
Et pour les 20 premières lignes seulement : Range(Cells(1, Target.Column), Cells(20, _ Target.Column)).Interior.ColorIndex = 36
A+ Nicolas B.
et pour une colonne ? j'ai essayé mais comment transforme-t-on la lettre de la colonne pour qu'elle soit acceptée par un RANGE ?
merci
rgi
bonjour
comme cela
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.EntireColumn.Interior.ColorIndex = xlNone With ActiveCell .EntireColumn.Interior.ColorIndex = 36 End With End Sub
salutations
Gilbert "cr" a écrit dans le message de news: 42b94372$0$171$
et pour une colonne ? j'ai essayé mais comment transforme-t-on la lettre de la colonne pour qu'elle soit acceptée par un RANGE ?
merci
bonjour
comme cela
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.EntireColumn.Interior.ColorIndex = xlNone
With ActiveCell
.EntireColumn.Interior.ColorIndex = 36
End With
End Sub
salutations
Gilbert
"cr" <charles.rayer@numericable.fr> a écrit dans le message de news:
42b94372$0$171$a3f2974a@nnrp1.numericable.fr...
et pour une colonne ?
j'ai essayé mais comment transforme-t-on la lettre de la colonne pour
qu'elle soit acceptée par un RANGE ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.EntireColumn.Interior.ColorIndex = xlNone With ActiveCell .EntireColumn.Interior.ColorIndex = 36 End With End Sub
salutations
Gilbert "cr" a écrit dans le message de news: 42b94372$0$171$
et pour une colonne ? j'ai essayé mais comment transforme-t-on la lettre de la colonne pour qu'elle soit acceptée par un RANGE ?
merci
cr
merci RGI et Nicolas.
ca c'est de la hot-line.
encore un petit qque chose. quand je choisis ma cellule par la souris , il y a un petit délai entre la selection de la cellule et le changement de couleur de la ligne et de la colonne. y a t'il moyen de 'synchroniser' les deux en retardant l'affichage de la selection de la cellule.
merci.
merci RGI et Nicolas.
ca c'est de la hot-line.
encore un petit qque chose.
quand je choisis ma cellule par la souris , il y a un petit
délai entre la selection de la cellule et le changement de couleur
de la ligne et de la colonne.
y a t'il moyen de 'synchroniser' les deux en retardant l'affichage de la
selection de la cellule.
encore un petit qque chose. quand je choisis ma cellule par la souris , il y a un petit délai entre la selection de la cellule et le changement de couleur de la ligne et de la colonne. y a t'il moyen de 'synchroniser' les deux en retardant l'affichage de la selection de la cellule.
merci.
rgi
Salut CR
tu peux retarder la mise à jour de l'écran pendant le déroulement de la macro en employant Application.ScreenUpdating = False et déroulement de la macro et Application.ScreenUpdating = True
salutations
Gilbert "cr" a écrit dans le message de news: 42b95dcc$0$171$
merci RGI et Nicolas.
ca c'est de la hot-line.
encore un petit qque chose. quand je choisis ma cellule par la souris , il y a un petit délai entre la selection de la cellule et le changement de couleur de la ligne et de la colonne. y a t'il moyen de 'synchroniser' les deux en retardant l'affichage de la selection de la cellule.
merci.
Salut CR
tu peux retarder la mise à jour de l'écran pendant le déroulement de la
macro en employant
Application.ScreenUpdating = False
et
déroulement de la macro
et
Application.ScreenUpdating = True
salutations
Gilbert
"cr" <charles.rayer@numericable.fr> a écrit dans le message de news:
42b95dcc$0$171$a3f2974a@nnrp1.numericable.fr...
merci RGI et Nicolas.
ca c'est de la hot-line.
encore un petit qque chose.
quand je choisis ma cellule par la souris , il y a un petit
délai entre la selection de la cellule et le changement de couleur
de la ligne et de la colonne.
y a t'il moyen de 'synchroniser' les deux en retardant l'affichage de la
selection de la cellule.
tu peux retarder la mise à jour de l'écran pendant le déroulement de la macro en employant Application.ScreenUpdating = False et déroulement de la macro et Application.ScreenUpdating = True
salutations
Gilbert "cr" a écrit dans le message de news: 42b95dcc$0$171$
merci RGI et Nicolas.
ca c'est de la hot-line.
encore un petit qque chose. quand je choisis ma cellule par la souris , il y a un petit délai entre la selection de la cellule et le changement de couleur de la ligne et de la colonne. y a t'il moyen de 'synchroniser' les deux en retardant l'affichage de la selection de la cellule.
