Commande vba excel Résolu/Fermé

Question

Bonjour, 

Voici ma commande :


Private Sub Worksheet_Activate()
Range("A1:c800").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range _
("c1"), Order2:=xlDescending, Key3:=Range _
("b1"), Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom
Range("A9").Select
End Sub


Le seul problème est que ma feuille n'est jamais activée alors je pourrais changer Private Sub Worksheet_Activate() par quoi ?

Francis · Answer

Quelque chose comme :

Private Sub Workbook_Open()
Range("A1:c800").Select 
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range _ 
("c1"), Order2:=xlDescending, Key3:=Range _ 
("b1"), Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ 
:=False, Orientation:=xlTopToBottom 
Range("A9").Select 
End Sub 

mais il me manque la partie ou j'identifie la feuille "Base de donnée"

eriiic · Answer

Bonjour, 

ta feuille sera activée si tu en sélectionnes une autre et que tu la re-sélectionne. 

Sinon tu as d'autres évèments utilisables : change, selectionChange et voire même ajouter un bouton. 

Tout dépend quand et comment tu désires rafraichir ton tri. 

Par exemple avec :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target = [A1] Then
        'ton code
    End If
End Subton tri se fera si tu sélectionnes A1.

eric

Fmoore · Answer

Private Sub Workbook_Open() 
Worksheets("Base de donnée")
Range("A1:c800").Select 
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range _ 
("c1"), Order2:=xlDescending, Key3:=Range _ 
("b1"), Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ 
:=False, Orientation:=xlTopToBottom 
Range("A9").Select 
End Sub 

Dans le fond c'est quelque chose comme ça que je veux mais il doit manquer un petit quelque chose

Fmoore · Answer

Éric le problème est que la feuille ne sera jamais activé.

Morgothal · Answer

Salut,  
Pourquoi ne pas insérer un petit Worksheets("Base de données").Activate dans la macro s'exécutant à l'ouverture du classeur ? 

Edit : Je viens de voir une réponse de eljojo_e sur un autre sujet : 
Après si tu veux pas voir l'autre feuille, tu peux mettre Application.ScreenUpdating = FalsePeut-etre est-ce ce que tu cherches ?
(Pour que ça fonctionne il faut bien sûr mettre le rafraîchissement avant l'activate)

Fmoore · Answer

Probablement excellent le seul problème je commence dans le domaine alors pourrais tu m'expliquer comment je doit l'inscrire svp.

Morgothal · Answer

Eh bien dans ton code tu rajoutes ces deux lignes, ce qui donne :

Private Sub Workbook_Open() 

Application.ScreenUpdating = False
Worksheets("Base de données").Activate
Range("A1:c800").Select 
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range _ 
("c1"), Order2:=xlDescending, Key3:=Range _ 
("b1"), Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _ 
:=False, Orientation:=xlTopToBottom 

End Sub

Fmoore · Answer

Parfait merci beaucoup