Selectionner cellule userform non modal
n
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 SubBon 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