[VBA] SceenUpdating inéfficace

[TheLio]

Hello tous,
je pense que mon titre est assez explicite, malgré cette petite phrase magique, on voit le passage sur l'onglet "Contrôle" puis retour sur l'onglet d'origine du bouton 😉

Private Sub CommandButton1_Click()
ScreenUpdating = False
 NomUsager = Application.UserName
  With Worksheets("Contrôle")
  On Error Resume Next
  Worksheets("Contrôle").Unprotect.Password (TOTO)
     Derligne = .Range("A65536").End(xlUp).Row + 1 'on détecte la derniere ligne vide
       .Cells(Derligne, 1) = Format(Date, "dd/mm/yyyy") 'ici on mets la date du Jour
       .Cells(Derligne, 2) = Format(Time, "HH:MM:SS") 'ici on met l'heure réelle
       .Cells(Derligne, 3) = NomUsager  'ici le Nom du User
       .Cells(Derligne, 4) = Feuil2.Range("$P$10") 'ici le N° de série enregistré
    Worksheets("Contrôle").Protect.Password (TOTO)
  End With
 ScreenUpdating = True
End Sub

Donc, Why??
Merci d'avance A++
TheLio

 

[jeanpierre]

Re : [VBA] SceenUpdating inéfficace

Bonjour Lionel,

et avec : Application.ScreenUpdating = False, ce ne serait pas meux ? Pareil en sortie avec True

A te lire et bonne journée.

Jean-Pierre

 

[TheLio]

Re : [VBA] SceenUpdating inéfficace

Hello JP,
et voilà, on me met la pression pour 2-3 projets à finir et j'en perd mon peu de VBA 🙁
MErci pour ta rapidité et ton éternelle présence.
Peu pas t'envoyer de soleil, ici le temps est maussade.
A++
Lionel