[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