Bonjour,
Je m'étonne de lire une rédaction telle que celle ci :
Ne pourrait-on pas se passer de ces lignes :
J'ai l'impression que le résultat serait exactement le même.
Merci pour votre aide.
Je m'étonne de lire une rédaction telle que celle ci :
Code:
Dim MonChoix1 As String, Monchoix2 As String, MonChoix3 As String
Choix1 = "Type"
Choix2 = "Nom"
Choix3 = "Date"
Application.ScreenUpdating = False
Application.Goto Reference:="Tab1"
Selection.Sort Key1:=Range(Choix1), Order1:=xlAscending, Key2:=Range(Choix2) _
, Order2:=xlAscending, Key3:=Range(Choix3), Order3:=xlAscending, Header:= _
xlGuess
Range(MonChoix1).Select
ActiveCell.Offset(rowOffset:=50000, columnOffset:=0).Activate
Application.Goto Reference:="REF"
ActiveWindow.ScrollRow = 12
Application.ScreenUpdating = True
End Sub
Ne pourrait-on pas se passer de ces lignes :
Code:
Range(MonChoix1).Select
ActiveCell.Offset(rowOffset:=50000, columnOffset:=0).Activate
J'ai l'impression que le résultat serait exactement le même.
Merci pour votre aide.