code défaillant

code défaillant - VB/VBA/VBS - Programmation

Marsh Posté le 21-11-2011 à 14:58:33    

Bonjour,
Je souhaite, aprés la saisie dans une cellule, vérifier que celle ci ne contient pas une valeur incluse dans une liste. Si c'est le cas, je souhaite afficher, dans cette cellule, une petite image d'alerte pendant 3 seconde puis, celle-ci disparait.
ci dessous mon code qui ne fonctionne puisque ne se déroulant pas comme je le souhaiterais car la tempo s'execute, puis l'image apparait et disparait furtivement.
 

Code :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim Rg As Range, Qui As String, Plage As String
  4. Qui = Target
  5. Plage = "b4:b11"
  6. Set Rg = Range(Plage).Find(Qui)
  8. If Not Rg Is Nothing Then
  9. ActiveSheet.Pictures.Insert("monimage.png" ).Select
  10.            
  11.     With Selection.ShapeRange
  12.         .Left = Target.Left
  13.         .Top = Target.Top
  14.     End With
  15.  
  16. Application.Wait (Now + TimeValue("00:00:03" ))
  18. Selection.delete
  20. Else
  21. MsgBox "Pas trouvé " & Qui
  22. End If
  24. End Sub


 
Merci pour votre aide.
J'en profite pour poser une deuxiéme question:
j'ai une macro avec un "Application.ScreenUpdating = False" en tête de code car un peu longue et disgracieuse lors de son exécution. est il possible d'afficher un userform ou message invitant à patienter pendant l'exécution de la macro en arriére plan ?
 
Meri encore

Reply

Marsh Posté le 21-11-2011 à 14:58:33   

Reply

Marsh Posté le 22-11-2011 à 07:01:38    

Bonjour,
Personne pour m'aider?
merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed