Afficher la feuille avant le message

[isa44]

Bonjour ,
je butte sur un code : je voudrais afficher la feuille (" ROSE") avant d'afficher un messagebox.

 Sub Worksheet_Deactivate()
 
Dim origine As Variant
Dim J As Long
Dim Plage As Range
Dim Cel As Range
Dim Msg As String

 
 Set origine = ActiveSheet
 

Application.EnableEvents = False 'Bloque l'exécution des autres macros
Application.ScreenUpdating = False

Sheets("ROSE").Select

  Set Plage = Range("C3:C27,H6:H30,M6:M37,R6:R39,A32:C41,H32:H41,F40:F41")
  For J = 7 To 166
    Set Cel = Plage.Find(what:=Sheets("PARC").Range("C" & J), LookIn:=xlValues, lookat:=xlWhole)
    If Cel Is Nothing Then
      Msg = Msg & ", " & Sheets("PARC").Range("C" & J)
    End If
  Next J
 
  If Len(Msg) > 0 Then
  
  Worksheets("ROSE").Activate  ' ICI je voudrais afficher la feuille ROSE avant de lancer le MsgBox
  
  

    MsgBox " Attention il manque des N° :   " & Mid(Msg, 3) & "   Veuillez les postionner dans la feuille "


Exit Sub

  End If
  
  


Application.EnableEvents = False 'Bloque l'exécution des autres macros

origine.Select

Application.EnableEvents = True 'Remet l'exécution des autres macros
End Sub

Je ne comprends pas pourquoi j'ai le message avant l'affichage de la feuille !?

 

[mapomme]

Re : Afficher la feuille avant le message

Bonjour isa44,

En début de macro, l'actualisation de l'affichage a été désactivée (Application.ScreenUpdating = False).

 

[Fred0o]

Re : Afficher la feuille avant le message

Bonjour isa44,

Je pense qu'en mettant cette instruction

Sheets("ROSE").Select

Avant celle-ci

Application.ScreenUpdating = False

ça devrait mieux se passer.

A+

 

[isa44]

Re : Afficher la feuille avant le message

Merci à vous , en fin de compte c'était simple.
Voila ce que c'est quand on s'entête.