Selectionner cellule userform non modal

Bonjour à tous

J'ai un userform qui s'affiche à l'évènement selectionchange (au clic), il est prérempli avec des informations en fonction de la cellule cliquée et est ouvert en non modal

Je souhaiterais qu'au changement de la selection de la cellule le userform se rafraichisse / s'actualise avec les nouvelles données sans pour autant avoir besoin de le fermer.

J'ai essayé le Userform.repaint et Doevents mais ça ne fonctionne pas

Une idée?

Ci dessous une partie du code ;

Merci d'avance

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim derl%, derc%

With Worksheets("MV")
derl = .Cells(Rows.Count, 1).End(xlUp).Row
derc = .Cells(3, Cells.Columns.Count).End(xlToLeft).Column
End With

On Error Resume Next
If Target.Count > 1 Then
Exit Sub
End If

If Not Application.Intersect(Target, Range(Cells(5, 16), Cells(derl, derc))) Is Nothing Then
Load Usf_action
Usf_action.Show 0
Usf_action.Repaint
End If
End Sub

Bon bah 5 min après le revoilà avec la solution qui pourra certainement en aider plusieurs d'entre vous étant donné qu'elle était sur un site anglais

Bonne fin de journée

Option Explicit
Private WithEvents xlApp As Excel.Application
End Sub

Private Sub UserForm_Initialize()
Set xlApp = Excel.Application
End Sub

Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
UserForm_Initialize
End Sub
Rechercher des sujets similaires à "selectionner userform modal"