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 :
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim Rg As Range, Qui As String, Plage As String
- Qui = Target
- Plage = "b4:b11"
- Set Rg = Range(Plage).Find(Qui)
- If Not Rg Is Nothing Then
- ActiveSheet.Pictures.Insert("monimage.png" ).Select
-
- With Selection.ShapeRange
- .Left = Target.Left
- .Top = Target.Top
- End With
-
- Application.Wait (Now + TimeValue("00:00:03" ))
- Selection.delete
- Else
- MsgBox "Pas trouvé " & Qui
- End If
- 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
