Bonjour,
 
 
Ce message apparaît lorsque je valide un « choix » dans un userform
 
Ce qui est le plus étrange, c’est que ce message survient lorsque je valide le « choix » en appuyant sur la touche « enter » et pas lorsque je valide le choix par un 2x click
 
De plus, il y a d’autres userforms dans l’application où l’utilisateur peut valider soit par la touche « enter », soit par un 2x click. Et le message n’apparaît pas.
 
J’ai essayé la commande « application.displayalerts=false » mais cela ne fonctionne pas (ou alors je n’ai pas mis l’instruction au bon endroit).
 
Est-ce que quelqu'un pourrait m'aider ?
 
D’avance merci,

Malheureusement les origines de ce type de probleme sont multiples
voir http://www.google.fr/search?hl=fr& [...] ogle&meta=

Merci pour le lien,
J'ai parcouru les différentes pages mais je ne trouve pas réellement de réponse à mon problème.
Je vais essayer de modifier mon code et voir ce qu'il se passe

Bonjour,
Je ne parviens pas à faire en sorte que ce message n'aparraise plus. Il se produit également sur le pc des utilisateurs.  
 
Voici le code du userform (donne une série de valeur dans laquelle l'utilisateur fait un choix soit par 2x click, soit par "enter" )
 
 
Private Sub PAYERListBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
Worksheets("INPUT SHEET" ).Select
[F9].Value = PAYERListBox.Value
PAYERLISTuserform.Hide
Range("E9" ).Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[1],6)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("F9" ).ClearContents
Application.CutCopyMode = False
Range("D11" ).Select
 
End Sub
Private Sub PAYERListBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
If KeyAscii = 13 Then
Worksheets("INPUT SHEET" ).Select
[F9].Value = PAYERListBox.Value
PAYERLISTuserform.Hide
Range("E9" ).Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[1],6)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("F9" ).ClearContents
Application.CutCopyMode = False
Range("D11" ).Select
End If
 
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
 
Le code est identique pour les 2 évenements et pourtant avec l'un j'ai le message et avec l'autre pas
 
Est-ce que quelqu'un n'a vraiment pas une idée?
 
D'avance merci,
 
Pierre