Quelle différence entre ces 2 rédactions ?

[fb62840]

Bonjour,

Je m'étonne de lire une rédaction telle que celle ci :

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 :

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.

 

[Pierrot93]

Re : Quelle différence entre ces 2 rédactions ?

Bonjour,

il est vrai que les "select" et autres "activate" sont rarement utiles en vba...

bon après midi
@+

 

[fb62840]

Re : Quelle différence entre ces 2 rédactions ?

Merci pour votre réponse, mais au final est-ce que ça ferait une différence si j'enlevais ces lignes ?

 

[Modeste geedee]

Re : Quelle différence entre ces 2 rédactions ?

Bonsour®
eu égard l'exemple fourni :
le tri de [tab1] ne se fera pas !!!

on peut même raccourcir :

Range(MonChoix1).Offset(rowOffset:=50000, columnOffset:=0).Activate

🙄
de toute façon on continu avec :

Application.Goto Reference:="REF"

😉

 

[fb62840]

Re : Quelle différence entre ces 2 rédactions ?

Merci,

C'est bien ce qu'il me semblait, je suppose qu'à un moment cela a eu du sens mais que des modifications successives ont laissées des fantômes...

Bonne soirée