Discussion :

[patricktoulon]

Bonjour a tous
en attendant de trouver pourquoi j'ai du mal a gérer le bouton remplissage (petit sot de peinture )de cellule

je voudrais savoir si il est possible d'inscrire dans la cellule "A2" par exemple la couleur ou même l'index de la couleur que je viends de changer dans la cellule "A1"avec le bouton remplissage

l'évènement change du sheets ne semble pas prendre en compte ce changement (couleur)

une idée??

[Invité]

Bonjour Patrick,

Effectivement, l'évènement Change ne fonctionne pas sur changement de la couleur de remplissage.

Tu peux essayer l'événement AvantClicDroit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
    Cancel = True
    If Target.Count > 1 Then Exit Sub
 
    If Not Intersect(Target, Range("A1")) Is Nothing Then
    Target.Offset(0, 1) = Target.Interior.Color
    End If
 
End Sub

Cordialement.