changer de feuil pendant l'execution d'une macro

[raym1313]

bonjour

je vous joins un petit fichier modele
en feuil1 ( attente ) j'ai un petit message d'attente
en feuil2 ( alea ) j'ai une macro qui execute une procedure de tri de prenom

je souhaiterai savoir si pendant que excel execute la macro1
en feuil2
des que la macro commence on peut aller en feuil1

merci pour votre aide

je sais que l'on peut masquer les calculs
par - Application.ScreenUpdating = False
si l'on ne peut pas changer de feuil - peut on masquer la feuil

amicalement 🙂

raymond

 

[Compte Supprimé 979]

Re : changer de feuil pendant l'execution d'une macro

Salut Ramy1313,

Tu trouveras ci-joint le code qui va bien 😉

Sub Macro1()
  Sheets("attente").Activate
  Sheets("attente").Range("A1").Select
  ' Empêcher le scintillement de l'écran
  Application.ScreenUpdating = False
  ' Avec la feuille ALEA
  With Sheets("alea")
    .Range("C6:D26").Copy
    .Range("F6").PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                              SkipBlanks:=False, Transpose:=False
    .Range("F6:G26").Sort Key1:=.Range("G7"), Order1:=xlAscending, Header:=xlGuess, _
                          OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Do
      .Range("C6:E26").Copy
      .Range("G6").PasteSpecial Paste:=xlValues
      .Range("G6:I26").Sort Key1:=.Range("H6"), Order1:=xlAscending, Header:=xlGuess, _
                            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Loop While .Range("J27").Value <> 0
  End With
  ' Ré-activer l'affichage de l'écran
  Application.ScreenUpdating = True
End Sub

A+

 

[raym1313]

Re : remerciements

je te remercie pour ce code
ca fonctionne parfaitement

amicalement