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

faire un tri

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion damien
  • 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
D

damien

Guest
bonsoir à tous

je voudrai mettre quelque chose de ce style dans ma macro pour faire mon tri mais il renvoi une erreur.

ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False

Selection.CurrentRegion.Select
Selection.Sort Key1:=Range('A17'), Order1:=xlAscending, Key2:=Range('G17' _
), Order2:=xlAscending, Key3:=Range('C17'), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

ActiveSheet.Protect DrawingObjects:=true, Contents:=true, Scenarios:=true

voici ma macro


Dim TheDate As Date ' Déclare les variables.
Dim Msg
Dim c As Long
reponse = InputBox('Entrez une date (jj/mm/aaaa)', 'Listing contrôle de puis le... ', Sheets('base peche').Range('A1'))
If IsDate(reponse) Then
TheDate = reponse
UserForm13.Label2 = Date - DateDiff('d', TheDate, Now)
UserForm13.Label3 = 'Récapitulatif contrôles depuis le :' & TheDate
lafin = Worksheets('base peche').Range('A65536').End(xlUp).Row
For N = 1 To lafin
If Worksheets('base peche').Range('A' & N) = CDate(UserForm13.Label2) Then
debut = N
Exit For
End If
Next N
If N = lafin + 1 Then
MsgBox ('La date n'existe pas!')
Call macro1
Else
For N = debut To lafin
UserForm13.ListBox1.AddItem Worksheets('base peche').Range('A' & N)

Next N
For N = 1 To UserForm13.ListBox1.ListCount - 1
UserForm13.ListBox1.List(N - 1, 1) = Worksheets('base peche').Range('c' & N + debut - 1)
UserForm13.ListBox1.List(N - 1, 2) = Worksheets('base peche').Range('d' & N + debut - 1)
UserForm13.ListBox1.List(N - 1, 3) = Worksheets('base peche').Range('e' & N + debut - 1)
UserForm13.ListBox1.List(N - 1, 4) = Worksheets('base peche').Range('f' & N + debut - 1)
UserForm13.ListBox1.List(N - 1, 5) = Worksheets('base peche').Range('g' & N + debut - 1)
UserForm13.ListBox1.List(N - 1, 6) = Worksheets('base peche').Range('j' & N + debut - 1)
UserForm13.ListBox1.List(N - 1, 7) = Worksheets('base peche').Range('o' & N + debut - 1)
UserForm13.ListBox1.List(N - 1, 8) = Worksheets('base peche').Range('p' & N + debut - 1)

Next N
UserForm13.Show
End If
Else
If reponse = '' Then
Exit Sub
Else
MsgBox ('Entrez une date valide!')
Call macro1
End If

End If


merci a tous
 
Trier par date Trier par votes
bonjour damien

que veux-tu trier ???

s'il sagit du contenu de ta listbox j'ais des craintes

par contre il est possible de trier d'abord dans la feuille d'origine
si c'est le cas sur quel colonne veux-tu trier
 
Vote positif 0 Vote négatif
bonjour pierrejean

je veux trier ma feuille avant que ce sois afficher dans la listbox.
Ma feuil est protege
je tri par rapport en 1 à la colonne A, en 2 colonne G et en 3 colonne C et en suite remettre ma protection.

raison je veux que dans ma listbox que ce sois de la date la plus ancienne à la plus recente.

damien
 
Vote positif 0 Vote négatif
re damien

voila la ligne à inserer ou tu le souhaites

Code: 
Columns('A:C').Sort Key1:=Range('A1'), Order1:=xlDescending, Key2:=Range('B1') _
        , Order2:=xlDescending, Key3:=Range('C1'), Order3:=xlDescending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

note j'ai mis l'ordre descendant pour les 3 colonnes sinon change
Descending par
Ascending
 
Vote positif 0 Vote négatif
bonjour pierrejean

ça ne marche pas j'ai une erreur 1004 la methode Sort de la classe range a echoue.
voici mon code

Sub macro1()
Cells(17.1).Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False

Selection.CurrentRegion.Select
Selection.Sort Key1:=Range('A17'), Order1:=xlAscending, Key2:=Range('G17' _
), Order2:=xlAscending, Key3:=Range('C17'), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom



ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


Dim TheDate As Date ' Déclare les variables.
Dim Msg
Dim c As Long
reponse = InputBox('Entrez une date (jj/mm/aaaa)', 'Listing contrôle de puis le... ', Sheets('base peche').Range('A1'))
If IsDate(reponse) Then
TheDate = reponse
UserForm13.Label2 = Date - DateDiff('d', TheDate, Now)
lafin = Worksheets('base peche').Range('A65536').End(xlUp).Row
For N = 1 To lafin
If Worksheets('base peche').Range('A' & N) = CDate(UserForm13.Label2) Then
Debut = N
Exit For
End If
Next N
If N = lafin + 1 Then
MsgBox ('La date n'existe pas!')
Call macro1
Else
For N = Debut To lafin
UserForm13.ListBox1.AddItem Worksheets('base peche').Range('A' & N)
Next N
For N = 1 To UserForm13.ListBox1.ListCount - 1
UserForm13.ListBox1.List(N - 1, 1) = Worksheets('base peche').Range('B' & N + Debut - 1)
UserForm13.ListBox1.List(N - 1, 2) = Worksheets('base peche').Range('C' & N + Debut - 1)
Next N
UserForm13.Show
End If
Else
If reponse = '' Then
Exit Sub
Else
MsgBox ('Entrez une date valide!')
Call macro1
End If

End If


End Sub

merci
damien
 
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

E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
240
escudo
E
N
  • Question Question
Listbox click
Réponses
10
Affichages
304
ChTi160
C
  • Résolu(e)
Autres Copier des données vers une nouvelle feuille excel VBA
2
Réponses
25
Affichages
927
Carolinebd
C
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
224
sylvanu
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
283
KRUG WOO
K
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
2 K
francescofrancesco
F
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
716
Gestionnaire_rh
G
C
  • Résolu(e)
XL 2016 MsgBox avec critères
2
Réponses
22
Affichages
605
candido57
C
J
  • Résolu(e)
XL 2019 Interdire les doublons dans ListBox
Réponses
3
Affichages
114
JLR67
J
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
351
Piment
P
C
  • Question Question
XL 2013 rechercher la dernière date
Réponses
4
Affichages
238
candido57
C
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
248
eric72
E
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
564
Phil69970
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
1 K
fanch55
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
712
Dranreb
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
265
sebastien176
S
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
650
candido57
C
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
979
Mody200
M
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
220
Lau01150
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…