[VBA] SceenUpdating inéfficace

TheLio · 6 Février 2008

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

Code:

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 · 6 Février 2008

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 · 6 Février 2008

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

[VBA] SceenUpdating inéfficace

TheLio

XLDnaute Accro

jeanpierre

Nous a quitté

TheLio

XLDnaute Accro

Discussions similaires