Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Trier une plage lors de l'ouverture d'un classeur.

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Hades60250
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

Hades60250

Guest
Bonjour à toutes et tous!

J'ai créé une base de données excel regroupant de nombreuse feuille.

Lors de l'ouverture de ce fichier, en plus des actions Full Screen et l'affichage d'une boite de dialogue, je souhaiterais trier une plage de données dans la feuille "Liste".

J'avais donc le code suivant dans ThisWorkbook:

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub

Private Sub Workbook_Open()

UserForm16.Show
Application.Wait Now + TimeValue("00:00:03")
Unload UserForm16

End Sub

Private Sub Workbook_Activate()

Sheets("Liste").Range("A2:R1000").Select
Selection.Sort key1:=Range("A1"), Order1:=xlAscending

End Sub


Naturellement, ça ne fonctionne pas....😕

Est ce que quelqu'un pourrait m'aider s'il vous plait????
 
Trier par date Trier par votes
Re : Trier une plage lors de l'ouverture d'un classeur.

En fait tu dois regrouper dans la même macro, tout ce que tu souhaites à l'ouverture, ça peut donner ceci :

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Sheets("Liste").Range("A2:R1000").Select
Selection.Sort key1:=Range("A1"), Order1:=xlAscending
UserForm16.Show
Application.Wait Now + TimeValue("00:00:03")
Unload UserForm16
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub
 
Vote positif 0 Vote négatif
Re : Trier une plage lors de l'ouverture d'un classeur.

Bonjour Hades60250, pat01200,



Essaye avec ces macros toujours dans le module ThisWorkbook :

Attention à éviter les Select 🙂

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Sheets("Liste").Range("A2:R1000").Sort key1:=Sheets("Liste").Range("A2"), Order1:=xlAscending
UserForm16.Show
Application.Wait Now + TimeValue("00:00:03")
Unload UserForm16
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub

Code réalisé sans test 😀
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Trier une plage lors de l'ouverture d'un classeur.

Re!

En intégrant le code de CBenardT j'ai un message d'erreur sur la ligne de tri:

Erreur d'execution 1004: Référence de tri non valide.... un petite idée?
 
Vote positif 0 Vote négatif
Re : Trier une plage lors de l'ouverture d'un classeur.

Bonjour Hades60250, CBernardT, pat01200,
Hades60250 à dit:
Sheets("Liste").Range("A2:R1000").Select
Selection.Sort key1:=Range("A1"), Order1:=xlAscending
Naturellement, ça ne fonctionne pas....😕
Cliquez pour agrandir...
Je propose :
Code: 
[COLOR=blue]Private Sub[/COLOR] Workbook_Open()
UserForm1.Show
Application.Wait Now + TimeValue("00:00:03")
Unload UserForm1
[COLOR=blue]End Sub[/COLOR]

Code: 
[COLOR=blue]Private Sub[/COLOR] Workbook_Activate()
Application.DisplayFullScreen = [COLOR=blue]True[/COLOR]
Sheets("Liste").Range("A1:D1000").Sort key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
[COLOR=blue]End Sub[/COLOR]

Code: 
[COLOR=blue]Private Sub[/COLOR] Workbook_Deactivate()
Application.DisplayFullScreen = [COLOR=blue]False[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
Vote positif 0 Vote négatif
Re : Trier une plage lors de l'ouverture d'un classeur.

Bonjour Efgé!

En effet il y avait une grossière erreur de saisie de ma part concernant la plage😀.
J'ai intégré le code mais j'ai toujours le même problème et le même message d'erreur concernant le Tri... en revanche la msgbox s'affiche bien.
 
Vote positif 0 Vote négatif
Re : Trier une plage lors de l'ouverture d'un classeur.

Re
Comme l'avait dit CBernardT,il faut utiliser:
Code: 
[COLOR=BLUE]Private Sub[/COLOR] Workbook_Activate()
Application.DisplayFullScreen = [COLOR=BLUE]True[/COLOR]
Sheets("Liste").Range("A1:D1000").Sort key1:=Sheets("Liste").Range("A1"), Order1:=xlAscending, Header:=xlGuess
[COLOR=BLUE]End Sub[/COLOR]
Cordialement
 
Vote positif 0 Vote négatif
Re : Trier une plage lors de l'ouverture d'un classeur.

Re,

Un essai si j'ai tout bien compris....

A noter que le formulaire est ShowModal = False

Lorsqu'un objet UserForm est modal, l'utilisateur doit fournir des informations ou fermer l'objet UserForm pour pouvoir utiliser toute autre partie de l'application.
Lorsqu'un objet UserForm n'est pas modal, l'utilisateur peut afficher d'autres feuilles ou fenêtres sans fermer cet objet.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2016 trier 4 colonnes d'une plage de cellules
Réponses
8
Affichages
227
KTM
P
  • Question Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
697
ChTi160
  • Question Question
Microsoft 365 Trouver et attribuer une plage de cellule en fonction de la cellule active
Réponses
6
Affichages
636
Jojo973
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
644
JJ69
J
L
  • Question Question
XL 2016 Trier les lignes
Réponses
5
Affichages
559
labombola46
L
  • Résolu(e)
XL 2016 Indice n'appartient pas à la sélection : HELP !!!!
2
Réponses
21
Affichages
2 K
halecs93
F
  • Résolu(e)
XL 2021 Souci avec une macro lors d'un changement de "statut"
Réponses
3
Affichages
744
fanou06
F
  • Question Question
XL 2016 Impossible de SendKeys une tabulation
Réponses
4
Affichages
786
R1-
A
  • Résolu(e)
XL 2019 Comment empêcher l'ouverture d'un fichier Excel, si les macros ne sont pas activés sur le pc
Réponses
7
Affichages
2 K
abi_71@
A
  • Résolu(e)
Microsoft 365 Lancer une macro VBA automatiquement lorsqu'on renseigne une plage d'un tableau
Réponses
3
Affichages
711
xUpsilon
B
  • Question Question
Microsoft 365 Erreur de compilation
Réponses
3
Affichages
994
oguruma
P
  • Question Question
XL 2019 VBA Erreur d'exécution "9" dans une plage de tableau
Réponses
2
Affichages
637
piskely
P
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
2 K
Dudu2
C
  • Question Question
Microsoft 365 Copier des données d'un fichier excel sur un fichier word
Réponses
0
Affichages
1 K
ChristianJ
C
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
M
  • Question Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
1 K
MONTREAL2020
M
F
  • Question Question
XL 2019 Avis macro sur classeur maître
Réponses
0
Affichages
790
Fanrs
F
  • Question Question
XL 2010 Problème avec un ComboBox lors de l'ouverture du classeur
Réponses
4
Affichages
925
Magic_Doctor
D
  • Question Question
XL 2016 VBA 6 Erreur à l'ouverture du classeur
Réponses
0
Affichages
744
danielco
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…