Changer la couleur d'une cellule active vba

Messages postés
34
Date d'inscription
vendredi 4 juillet 2008
Statut
Membre
Dernière intervention
29 octobre 2019
- - Dernière réponse : via55
Messages postés
11382
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 novembre 2019
- 29 oct. 2019 à 23:18
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
Afficher la suite 

1 réponse

Messages postés
11382
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 novembre 2019
1520
0
Merci
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
Commenter la réponse de via55