Changer la couleur d'une cellule active vba [Fermé]

Signaler
Messages postés
34
Date d'inscription
vendredi 4 juillet 2008
Statut
Membre
Dernière intervention
29 octobre 2019
-
Messages postés
12874
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 décembre 2020
-
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

1 réponse

Messages postés
12874
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 décembre 2020
2 083
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