Bonjour Ben , le forum
Travaille tu avec Excel 97 si oui met ce code dans dans un Module et cela doit résoudre ton problème
Sub AfficherUserForm()
Verif_VersionXL ' UserForm1.Show vbModeless
End Sub
'Constante Valeur Decription
'vbModeless 0 UserForm n'est pas modal.
'vbModal 1 UserForm est modal (valeur par défaut).
'Par défaut, chaque UserForm est Modal. Cela signifie qu'il doit
'être fermé avant de pouvoir faire autre chose. Dans Excel 2000,
'cependant, vous pouvez rendre un UserForm non Modal en écrivant
'vbModeless comme argument pour la méthode Show. Voici un exemple
'
'Détermine la version d'Excel de l'utilisateur, puis exécutez une
'Fonction séparée si la version est Excel 2000 (ou ultérieur).
'Le code suivant montre comment :
'Puisque la Fonction USFORM_VbModeless_OK n'est pas exécutée
'dans Excel 97, elle ne causera pas d'erreur de compilation.
Public Function Verif_VersionXL()
If Val(Application.Version) >= 9 Then
USFORM_VbModeless_OK
Else
UserForm1.Show
End If
End Function
Public Function USFORM_VbModeless_OK()
Dim Frm As Object
Set Frm = UserForm1
Frm.Show vbModeless
End Function
@+ Gérard
