Pop up automatique

lulumatt Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
lulumatt Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
bonjour à tous j'ai mon pop up ci dessous:
Sub PopUp()
'
' PopUp Macro
'
Dim v, v2
v = Worksheets("poids total").Cells(5, 1).Value
v2 = Worksheets("poids-par-produit").Cells(6, 1).Value
If v = v2 Then
BonneValeur = True
Else
BonneValeur = False
End If
While BonneValeur = False
If v <> v2 Then
MsgBox "!! ATTENTION PROBLEME DE TOTALISATION !!", vbInformation
ElseIf v = v2 Then
BonneValeur = True
End If
Application.Wait (Now + TimeValue("0:05:0"))
Wend
'
End Sub

le problème est que lorsque je l'exécute c'est le logiciel Excel qui attend pendant 5min et il m'est impossible de l'utiliser
peut être que cela vient de la dernière écriture :
Application.Wait (Now + TimeValue("0:05:0"))

on peut pas faire en sorte que ce soit le macro qui attend 5 min et pas l'application ?

Merci d'avance à ceux qui essayeront de m'aider :)
A voir également:

1 réponse

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Au lieu du While ... Wend, utilises OnTime.
0
lulumatt Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
slt
je viens d'essayer de remplacer le "while" et le "wend" par "ontime" et un message apparait quand je lance le macro
"erreur de compilation
sub ou function non definie"
0
lulumatt Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
peut tu être plus précis parce que je ne connais pas trop le VBA
0