changer la couleur d'une cellule active vba Fermé

Question

Bonjour,

J'ai un petit problème avec le code ( voir fichier joint )
Lorsque je clic sur le bouton la cellule active que je sélectionne vas être en rouge cela fonctionne bien
Le problème si je sélectionne une plage de cellule qui est Exemple en jaune dans le classeur ci joint les cellules redeviennent blanche, j'aimerais quelle reste en jaune.

Merci de bien vouloir m'aider

https://www.cjoint.com/c/IJDu40qNufk

via55 · Answer

Bonsoir

Essaie de modifier la macro ainsi :
Private Sub Curseur(Nv As Range)
Static AncAdr As String
Static AncCoul(1000)
    'Rétabli l'ancienne cellule
    If AncAdr <> "" Then
        For Each cell In Range(AncAdr)
        x = x + 1
        cell.Interior.ColorIndex = AncCoul(x)
        Next
    End If
    'Mémorise la couleur de la nouvelle cellule
    x = 0
    For Each cell In Nv
    x = x + 1
    AncCoul(x) = cell.Interior.ColorIndex
    Next
    AncAdr = Nv.Address
    'Met en rouge la nouvelle cellule
    If CellColor Then
        Nv.Interior.ColorIndex = 3
    Else
        AncAdr = ""
    End If
End Sub

Cdlmnt
Via

Changer la couleur d'une cellule active vba

1 réponse

Discussions similaires