Comment faire pour avoir une couleur d=E9finie pour la=20
cellule active tout en conservant la couleur d'origine des=20
autres cellules avant et apr=E8s le passage de la cellule=20
active ?
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
Nicolas B.
Salut,
Avec cette petite macro :
Dim L As Integer Dim C As Integer Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Cells(L, C).Interior.ColorIndex = Couleur With ActiveCell Couleur = .Interior.ColorIndex .Interior.ColorIndex = 1 L = .Row C = .Column End With End Sub
Son petit problème : il n'est pas possible de modifier la couleur de fond de la cellule.
Comment faire pour avoir une couleur définie pour la cellule active tout en conservant la couleur d'origine des autres cellules avant et après le passage de la cellule active ?
Merci. A+
Salut,
Avec cette petite macro :
Dim L As Integer
Dim C As Integer
Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells(L, C).Interior.ColorIndex = Couleur
With ActiveCell
Couleur = .Interior.ColorIndex
.Interior.ColorIndex = 1
L = .Row
C = .Column
End With
End Sub
Son petit problème : il n'est pas possible de modifier la couleur de fond de
la cellule.
Comment faire pour avoir une couleur définie pour la
cellule active tout en conservant la couleur d'origine des
autres cellules avant et après le passage de la cellule
active ?
Dim L As Integer Dim C As Integer Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Cells(L, C).Interior.ColorIndex = Couleur With ActiveCell Couleur = .Interior.ColorIndex .Interior.ColorIndex = 1 L = .Row C = .Column End With End Sub
Son petit problème : il n'est pas possible de modifier la couleur de fond de la cellule.
Comment faire pour avoir une couleur définie pour la cellule active tout en conservant la couleur d'origine des autres cellules avant et après le passage de la cellule active ?
Merci. A+
j
dans thisworkbook :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) On Error Resume Next 'restaure la couleur Range(Evaluate(ActiveWorkbook.Names("pos").Value)).Interior.ColorIndex Evaluate(ActiveWorkbook.Names("coul").Value) On Error GoTo 0 'enregistre la couleur ActiveWorkbook.Names.Add Name:="coul", RefersToR1C1:=Target.Cells(1).Interior.ColorIndex 'et la position ActiveWorkbook.Names.Add Name:="pos", RefersToR1C1:=Target.Cells(1).Address 'met en vert Target.Interior.ColorIndex = 4 End Sub
"Normand" a écrit dans le message de news: 123101c3b369$abafa9a0$ Comment faire pour avoir une couleur définie pour la cellule active tout en conservant la couleur d'origine des autres cellules avant et après le passage de la cellule active ?
Merci. A+
dans thisworkbook :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Excel.Range)
On Error Resume Next
'restaure la couleur
Range(Evaluate(ActiveWorkbook.Names("pos").Value)).Interior.ColorIndex Evaluate(ActiveWorkbook.Names("coul").Value)
On Error GoTo 0
'enregistre la couleur
ActiveWorkbook.Names.Add Name:="coul",
RefersToR1C1:=Target.Cells(1).Interior.ColorIndex
'et la position
ActiveWorkbook.Names.Add Name:="pos", RefersToR1C1:=Target.Cells(1).Address
'met en vert
Target.Interior.ColorIndex = 4
End Sub
"Normand" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 123101c3b369$abafa9a0$a301280a@phx.gbl...
Comment faire pour avoir une couleur définie pour la
cellule active tout en conservant la couleur d'origine des
autres cellules avant et après le passage de la cellule
active ?
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) On Error Resume Next 'restaure la couleur Range(Evaluate(ActiveWorkbook.Names("pos").Value)).Interior.ColorIndex Evaluate(ActiveWorkbook.Names("coul").Value) On Error GoTo 0 'enregistre la couleur ActiveWorkbook.Names.Add Name:="coul", RefersToR1C1:=Target.Cells(1).Interior.ColorIndex 'et la position ActiveWorkbook.Names.Add Name:="pos", RefersToR1C1:=Target.Cells(1).Address 'met en vert Target.Interior.ColorIndex = 4 End Sub
"Normand" a écrit dans le message de news: 123101c3b369$abafa9a0$ Comment faire pour avoir une couleur définie pour la cellule active tout en conservant la couleur d'origine des autres cellules avant et après le passage de la cellule active ?
Merci. A+
Normand
Merci, ça fonctionne très bien. Pour changer la couleur de la cellule, il suffit de modifier le code de couleur dans VBA et le tour est joué.
Bravo, :)
-----Message d'origine----- Salut,
Avec cette petite macro :
Dim L As Integer Dim C As Integer Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next Cells(L, C).Interior.ColorIndex = Couleur With ActiveCell Couleur = .Interior.ColorIndex .Interior.ColorIndex = 1 L = .Row C = .Column End With End Sub
Son petit problème : il n'est pas possible de modifier la couleur de fond de
Comment faire pour avoir une couleur définie pour la cellule active tout en conservant la couleur d'origine des
autres cellules avant et après le passage de la cellule active ?
Merci. A+
.
Merci, ça fonctionne très bien.
Pour changer la couleur de la cellule, il suffit de
modifier le code de couleur dans VBA et le tour est joué.
Bravo, :)
-----Message d'origine-----
Salut,
Avec cette petite macro :
Dim L As Integer
Dim C As Integer
Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
On Error Resume Next
Cells(L, C).Interior.ColorIndex = Couleur
With ActiveCell
Couleur = .Interior.ColorIndex
.Interior.ColorIndex = 1
L = .Row
C = .Column
End With
End Sub
Son petit problème : il n'est pas possible de modifier la
couleur de fond de
Merci, ça fonctionne très bien. Pour changer la couleur de la cellule, il suffit de modifier le code de couleur dans VBA et le tour est joué.
Bravo, :)
-----Message d'origine----- Salut,
Avec cette petite macro :
Dim L As Integer Dim C As Integer Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next Cells(L, C).Interior.ColorIndex = Couleur With ActiveCell Couleur = .Interior.ColorIndex .Interior.ColorIndex = 1 L = .Row C = .Column End With End Sub
Son petit problème : il n'est pas possible de modifier la couleur de fond de
Comment faire pour avoir une couleur définie pour la cellule active tout en conservant la couleur d'origine des
autres cellules avant et après le passage de la cellule active ?
Merci. A+
.
Nicolas B.
Pour changer la couleur de la cellule, il suffit de modifier le code de couleur dans VBA et le tour est joué. Je pensais en fait : dans ta feuille, pour changer la couleur de fond mise
en mémoire de la cellule. Pas la couleur à utiliser pour la cellule active.
Merci, ça fonctionne très bien. Pour changer la couleur de la cellule, il suffit de modifier le code de couleur dans VBA et le tour est joué.
Bravo, :)
-----Message d'origine----- Salut,
Avec cette petite macro :
Dim L As Integer Dim C As Integer Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Cells(L, C).Interior.ColorIndex = Couleur With ActiveCell Couleur = .Interior.ColorIndex .Interior.ColorIndex = 1 L = .Row C = .Column End With End Sub
Son petit problème : il n'est pas possible de modifier la couleur de fond de la cellule.
Comment faire pour avoir une couleur définie pour la cellule active tout en conservant la couleur d'origine des autres cellules avant et après le passage de la cellule active ?
Merci. A+
.
Pour changer la couleur de la cellule, il suffit de
modifier le code de couleur dans VBA et le tour est joué.
Je pensais en fait : dans ta feuille, pour changer la couleur de fond mise
en mémoire de la cellule. Pas la couleur à utiliser pour la cellule active.
Merci, ça fonctionne très bien.
Pour changer la couleur de la cellule, il suffit de
modifier le code de couleur dans VBA et le tour est joué.
Bravo, :)
-----Message d'origine-----
Salut,
Avec cette petite macro :
Dim L As Integer
Dim C As Integer
Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells(L, C).Interior.ColorIndex = Couleur
With ActiveCell
Couleur = .Interior.ColorIndex
.Interior.ColorIndex = 1
L = .Row
C = .Column
End With
End Sub
Son petit problème : il n'est pas possible de modifier la couleur de
fond de la cellule.
Comment faire pour avoir une couleur définie pour la
cellule active tout en conservant la couleur d'origine des
autres cellules avant et après le passage de la cellule
active ?
Pour changer la couleur de la cellule, il suffit de modifier le code de couleur dans VBA et le tour est joué. Je pensais en fait : dans ta feuille, pour changer la couleur de fond mise
en mémoire de la cellule. Pas la couleur à utiliser pour la cellule active.
Merci, ça fonctionne très bien. Pour changer la couleur de la cellule, il suffit de modifier le code de couleur dans VBA et le tour est joué.
Bravo, :)
-----Message d'origine----- Salut,
Avec cette petite macro :
Dim L As Integer Dim C As Integer Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Cells(L, C).Interior.ColorIndex = Couleur With ActiveCell Couleur = .Interior.ColorIndex .Interior.ColorIndex = 1 L = .Row C = .Column End With End Sub
Son petit problème : il n'est pas possible de modifier la couleur de fond de la cellule.
Comment faire pour avoir une couleur définie pour la cellule active tout en conservant la couleur d'origine des autres cellules avant et après le passage de la cellule active ?
Merci. A+
.
Normand
Je viens de découvrir ce que tu mentionnais...mais voici une solution partielle. Si la cellule a modifier est b5, il faut sélectionner comme cellule active soit: b4 ou b6 ou a5 ou c5 en premier et inclure dans la sélection b5 puis appliquer une couleur. b5 sera OK. C'est pas parfait, mais ça permet de contourner le problème.
A+
-----Message d'origine-----
Pour changer la couleur de la cellule, il suffit de modifier le code de couleur dans VBA et le tour est joué.
Je pensais en fait : dans ta feuille, pour changer la couleur de fond mise
en mémoire de la cellule. Pas la couleur à utiliser pour la cellule active.
Merci, ça fonctionne très bien. Pour changer la couleur de la cellule, il suffit de modifier le code de couleur dans VBA et le tour est joué.
Bravo, :)
-----Message d'origine----- Salut,
Avec cette petite macro :
Dim L As Integer Dim C As Integer Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next Cells(L, C).Interior.ColorIndex = Couleur With ActiveCell Couleur = .Interior.ColorIndex .Interior.ColorIndex = 1 L = .Row C = .Column End With End Sub
Son petit problème : il n'est pas possible de modifier la couleur de
Comment faire pour avoir une couleur définie pour la cellule active tout en conservant la couleur d'origine des
autres cellules avant et après le passage de la cellule
active ?
Merci. A+
.
.
Je viens de découvrir ce que tu mentionnais...mais voici
une solution partielle. Si la cellule a modifier est b5,
il faut sélectionner comme cellule active soit: b4 ou b6
ou a5 ou c5 en premier et inclure dans la sélection b5
puis appliquer une couleur. b5 sera OK. C'est pas
parfait, mais ça permet de contourner le problème.
A+
-----Message d'origine-----
Pour changer la couleur de la cellule, il suffit de
modifier le code de couleur dans VBA et le tour est
joué.
Je pensais en fait : dans ta feuille, pour changer la
couleur de fond mise
en mémoire de la cellule. Pas la couleur à utiliser pour
la cellule active.
Merci, ça fonctionne très bien.
Pour changer la couleur de la cellule, il suffit de
modifier le code de couleur dans VBA et le tour est
joué.
Bravo, :)
-----Message d'origine-----
Salut,
Avec cette petite macro :
Dim L As Integer
Dim C As Integer
Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
On Error Resume Next
Cells(L, C).Interior.ColorIndex = Couleur
With ActiveCell
Couleur = .Interior.ColorIndex
.Interior.ColorIndex = 1
L = .Row
C = .Column
End With
End Sub
Son petit problème : il n'est pas possible de modifier
la couleur de
Je viens de découvrir ce que tu mentionnais...mais voici une solution partielle. Si la cellule a modifier est b5, il faut sélectionner comme cellule active soit: b4 ou b6 ou a5 ou c5 en premier et inclure dans la sélection b5 puis appliquer une couleur. b5 sera OK. C'est pas parfait, mais ça permet de contourner le problème.
A+
-----Message d'origine-----
Pour changer la couleur de la cellule, il suffit de modifier le code de couleur dans VBA et le tour est joué.
Je pensais en fait : dans ta feuille, pour changer la couleur de fond mise
en mémoire de la cellule. Pas la couleur à utiliser pour la cellule active.
Merci, ça fonctionne très bien. Pour changer la couleur de la cellule, il suffit de modifier le code de couleur dans VBA et le tour est joué.
Bravo, :)
-----Message d'origine----- Salut,
Avec cette petite macro :
Dim L As Integer Dim C As Integer Dim Couleur As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next Cells(L, C).Interior.ColorIndex = Couleur With ActiveCell Couleur = .Interior.ColorIndex .Interior.ColorIndex = 1 L = .Row C = .Column End With End Sub
Son petit problème : il n'est pas possible de modifier la couleur de