Département qui devient noir à la suppression du contenu

Bonjour,

A la faveur du code suivant, j'arrive à colorer aléatoirement un département de la carte de France, dès que je remplie la cellule CelRef dont il dépend. ( une cellule de la colonne Client sur le fichier mis en joint)

Toutefois, lorsque je supprime le contenu de la cellule, le département sur la carte de France devient Noire

Function CouleurDep(CelRef As Variant)
If Not IsEmpty(CelRef) Then CouleurDep = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))

End Function

Quelle condition à ajouter pour empêcher cela ? c-à-d colorer la cellule en blanc à la suppression du contenu de la cellule.

Cordialement

Bonjour,

Teste avec cette modif sur la fonction

Function CouleurDep(CelRef As Variant)
If Not IsEmpty(CelRef) Then
CouleurDep = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))
Else
CouleurDep = RGB(255, 255, 255)
End If
End Function

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Merci les amis, ça marche ! sympa de votre part

Bien que je ne sois pas véloce en VBA, voire débutant, j'aurais dû penser à cette solution...