bonjour,
je n'arrive pas a figer l’écran avec Application.ScreenUpdating = false . je précise que je souhaite l'utiliser pour masquer le déroulement des actions d'un Userform.
voici mon code:
et un fichier joint
merci d'avance de votre aide
je n'arrive pas a figer l’écran avec Application.ScreenUpdating = false . je précise que je souhaite l'utiliser pour masquer le déroulement des actions d'un Userform.
voici mon code:
Code:
Private Sub Ajout_Click()
Application.ScreenUpdating = False
Sheets("ALIAS").Select
Range("a65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Activité.TextBox1.Value
Range("a65536").End(xlUp).Offset(, 1).Select
ActiveCell.Value = Activité.TextBox2.Value
Range("A2", Range("a65536").End(xlUp)).Select
With ActiveWorkbook.Names("libelle")
.Name = "libelle"
.RefersToR1C1 = Selection
End With
Range("A2", Range("b65536").End(xlUp)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("POINTAGE").Select
Application.ScreenUpdating = True
End Sub
merci d'avance de votre aide