rebonjour
décidemment cela ne va pas fort aujourd'hui , je viens de m'apercevoir que je n'avais pas envoyé la bonne version
Sub BouclerSurUSF_V02()
'nécéssite activer la reference Microsoft Visual Basic for applications extensibilty 5.3
Dim VbComp As VBComponent
Dim ObjComp As Object
Dim i As Byte, USF As Byte
Randomize
USF = Int((10 * Rnd) + 1)
Set ObjComp = ThisWorkbook.VBProject.VBComponents
For Each VbComp In ObjComp ' boucle USF
If VbComp.Type = 3 Then
i = i + 1
If i = USF Then VBA.UserForms.Add(VbComp.Name).Show
End If
Next
End Sub
Minick , si cela peut te rassurer ,moi c'est la façon d'afficher l'USF qui m'a pris un temps certain :
"VBA.UserForms.Add(VbComp.Name).Show"
il m'a fallu cherché sur plusieurs sources du Net avant de trouver la solution
bonne journée
MichelXld