coloration cellule si usf actif

Dranreb

XLDnaute Barbatruc

• 16 Mai 2018

• #2

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.

 

Vote positif 0 Vote négatif

J

jeffjeff

Guest

• 16 Mai 2018

• #3

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Mai 2018

• #4

jeffjeff à dit:

je vais chercher encore.

Cliquez pour agrandir...

Pourquoi, ce serait le plus simple, non ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Mai 2018

• #5

Testé dans un petit UserForm avec ShowModal à False :

VB:

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é.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Mai 2018

• #6

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

 

Vote positif 0 Vote négatif

J

jeffjeff

Guest

• 16 Mai 2018

• #7

un grand merci a vous

 

Vote positif 0 Vote négatif