coloration cellule si usf actif

[jeffjeff]

bonsoir tout le monde,
a l'ouverture de mon fichier, j'aimerai, dans je clique sur une cellule, qu'elle se colorie que si l'usf est affichée.
usf parametrée en showmodal=false

pour colorer la cellule je sais faire mais je voudrais mettre la condition que j'ai ecrite ci-dessus

merci

 

[Dranreb]

Bonjour.
Je déclarerais peut être un objet global Private WithEvents capable de prendre en charge la sélection de la cellule dans l'UserForm.
Un objet Application, Workbook ou Worksheet devrait faire l'affaire. À initialiser par un Set dans l'UserForm_Initialize.

 

[jeffjeff]

je vais chercher encore. merci pour t'etre penché sur mon probleme.
bonne soiree

 

[Dranreb]

je vais chercher encore.

Pourquoi, ce serait le plus simple, non ?

 

[Dranreb]

Testé dans un petit UserForm avec ShowModal à False :

Option Explicit
Private WithEvents MaFeuille As Worksheet

Private Sub UserForm_Initialize()
Set MaFeuille = ActiveSheet
End Sub

Private Sub MaFeuille_SelectionChange(ByVal Target As Range)
Target.Interior.Color = &HF49E&
End Sub

Edit: comme ça aucun lien avec d'autres modules, c'est l'UserForm qui le fait lui même s'il est chargé.
Ajouter un If Me.Visible Then devant s'il peut être masqué et non déchargé.

 

[Dranreb]

@Staple1600 Mais qu'est ce que tu veux que je te dises, si tu a proposé une solution plus compliquée ?

 

[jeffjeff]

un grand merci a vous