Macro évènementielle sur changement de couleur

CISCO · 10 Avril 2018

Bonjour à tous

Est-il possible de lancer une macro automatiquement, non pas suite au changement du contenu d'une cellule quelconque dans une plage donnée, mais suite au changement "manuel" de la couleur du fond d'une cellule quelconque dans une plage donnée ?

D'avance merci.

P.S : "manuel" signifie ici en passant par Format --> Format de cellule --> Remplissage

youky(BJ) · 10 Avril 2018

Bonjour CISCO,
A essayer, ca marche pas si le 1er coup on change sans avoir selectionné
A coller les Public en haut du code ou soit en Module1
Bruno

VB:

Public lieu As String
Public coul As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
'if not intercept(
If Range(lieu).Interior.Color <> coul Then Beep
lieu = Target.Address
coul = Target.Interior.Color
End Sub

CISCO · 10 Avril 2018

Bonjour

Merci youky. Est-ce que tu peux m'expliquer comment cela fonctionne ?

@ plus

youky(BJ) · 10 Avril 2018

Bien sur Cisco,
Les 2 déclarations Public >conservent tout le temps en mémoire le lieu et le N°color
cela est mis à jour à chaque selection
On Error> on gère les erreurs
Oups! je viens de regarder ma macro, au lieu de Beep il faut mettre à la place le nom de ta macro à exécuter.
lieu étant l'adresse de l'ancienne cellule > exemple $B$5
Dés le changement de cellule je vérifie si l'ancienne selection à la même couleur qu'avant.
Je me prends autrement pour expliquer...
Je me place en B2 > lieu= $B$2 coul=16777215 (incolore)
Je change la couleur et je change de case, lors du selection_change la macro regarde si la couleur de B2 est la même qu'avant
Si pas même couleur TAMACRO ou mon Beep.
Bruno

Dranreb · 10 Avril 2018

Bonsoir.
Je le fais dans cette fourniture sur la couleur de fond de l'échantillon, par une boucle qui vérifie si la couleur de fond ne change pas et un DoEvents.

Si... · 11 Avril 2018

Bon_jour

Pour un semblant d'évènement_Change_Couleur, un formulaire en ShowModal à False traite l'action à sa fermeture…

CISCO · 11 Avril 2018

Bonjour

Merci Youki pour ces explications. Merci Dranreb (Quel fichier ! Un vrai feu d'artifice) et Si pour ces propositions. Je vais essayer de faire quelque chose de tout ça. Ne me reste plus qu'à comprendre. Pas évident... Encore merci à vous trois.

@ plus

Macro évènementielle sur changement de couleur

CISCO

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

CISCO

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

Pièces jointes

CISCO

XLDnaute Barbatruc

Discussions similaires