tri d'un tableau par date

E

Eclipto

XLDnaute Junior
BOnjour,

J'ai mis les explications sur le fichier
 

Pièces jointes

  • Classeur1.xls
    42.5 KB · Affichages: 97
  • Classeur1.xls
    42.5 KB · Affichages: 100
  • Classeur1.xls
    42.5 KB · Affichages: 93
Trier par date Trier par votes
pierrejean

pierrejean

XLDnaute Barbatruc
Re : tri d'un tableau par date

Re

Le mieux est de copier integralement la feuille dans le nouveau classeur
Sinon copier la macro du module de la feuille dans le module de la feuille concernée du nouveau classeur
Ensuite il faut transferer integralement les macros du module1 dans un module standard du nouveau classeur
 
Vote positif 0 Vote négatif
E

Eclipto

XLDnaute Junior
Re : tri d'un tableau par date

Merci
ca marche...
Mais est il possible intégré ta macro dans celle-ci pour quelle s'applique en même temps si c'est possible...


Code: 
Sub Infos()
'
' Infos Macro
'

'
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(INDEX(extract!R1C6:R1500C7,MATCH(SMALL(extract!R1C6:R1500C6,COLUMN()-2),extract!R1C6:R1500C6,0),2)),"""",INDEX(extract!R1C6:R1500C7,MATCH(SMALL(extract!R1C6:R1500C6,COLUMN()-2),extract!R1C6:R1500C6,0),2))"
    Range("C1").Select
    Selection.AutoFill Destination:=Range("C1:IV1"), Type:=xlFillDefault
    Range("C1:IV1").Select
  
    Rows("1:1").EntireRow.AutoFit
    Range("C2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(LOOKUP(R[-1]C,extract!RC7:R[1500]C7,extract!RC14:R[1500]C14)),"""",LOOKUP(R[-1]C,extract!RC7:R[1498]C7,extract!RC14:R[1498]C14))"
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:IV2"), Type:=xlFillDefault
    Range("C2:IV2").Select

    Range("C3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(LOOKUP(R[-2]C,extract!R[-1]C7:R[1497]C7,extract!R[-1]C9:R[1497]C9)),"""",LOOKUP(R[-2]C,extract!R[-1]C7:R[1497]C7,extract!R[-1]C9:R[1497]C9))"
    Range("C3").Select
    Selection.AutoFill Destination:=Range("C3:IV3"), Type:=xlFillDefault
    Range("C3:IV3").Select
 
    Range("C4").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT((extract!R2C13:R1500C13=R[-1]C1)*(extract!R2C7:R1500C7=R1C)*(((R[-1]C2=""S"")*extract!R2C30:R1500C30)+((R[-1]C2=""E"")*extract!R2C22:R1500C22)))"
    Range("C4").Select
    Selection.AutoFill Destination:=Range("C4:C109"), Type:=xlFillDefault
    Range("C4:C109").Select
    Selection.AutoFill Destination:=Range("C4:IV109"), Type:=xlFillDefault
    Range("C4:IV109").Select
 
Dernière édition:
Vote positif 0 Vote négatif
E

Eclipto

XLDnaute Junior
Re : tri d'un tableau par date

Le fichier marche comme ca:

1) J'utilise la macro "vidé" sur l'onglet "liaison" (car les ordinateur sur lequel le fichier est utilisé sont lent)

2) Puis des données sont copier/coller dans l'onglet "extract", je lance la macro "ajouts" pour ajouter des colonnes et des calculs nécessaire pour exécuter la macro "infos".

3) Enfin je lance la macro "Infos", la première fois le fichier marche bien.

Le problème, c'est qu'après le premier essai si je relance la procédure l'onglet "liaison" bug.

Je pense que ca vient du tri car si j'affiche les lignes masquées que supprime les lignes de 110 à 187 que relance je refais les étapes 1 et 3 (l'étape 2 étant inutile l'onglet extract est déjà comme il devrait être) ça marche

C'est pour cela que je pense qu'en intégrant le tri dans la macro infos cela résoudrait le problème mais je n'arrive pas a le faire. dans le fichier ci-dessus il y a le code de pierrejean que j'ai intégré a mon fichier
 
Dernière édition:
Vote positif 0 Vote négatif
pierrejean

pierrejean

XLDnaute Barbatruc
Re : tri d'un tableau par date

Re

le probleme est le suivant
Tes macros modifient la cellule A1 de la feuille Liaison et par consequent lancent la macro evenementielle
Private Sub Worksheet_Change(ByVal Target As Range)
laquelle trouve en A1 autre chose qu'une date et donc tousse
J'ai supprimé la modification de A1 feuille liaison dans la macro Ajouts
et reporté la macro
Private Sub Worksheet_Change(ByVal Target As Range)
en module 2 (devint tri() )
Vois si cela te convient
Il te reste tout de meme a mettre en A1 quelque chose de coherent !!!

Ps: Je te laise la paternité de tes macros (lol)
 

Pièces jointes

  • Histo_d.zip
    28.9 KB · Affichages: 23
Dernière édition:
Vote positif 0 Vote négatif
E

Eclipto

XLDnaute Junior
Re : tri d'un tableau par date

pour la date en A1 c'est un report de la date en A1 dans l'onglet "extract" qui elle même est une formule car dans la colonne A de l'onglet "extract" la date n'a pas l'ordre reconnue par Excel. j'avais fait un report car ton tri avait besoin d'une date référence

"Infos"

1) copie cette formule en C1 est l'étire jusqu'à IV1

Code: 
=SI(ESTERREUR(INDEX(extract!$F$1:$G$1500;EQUIV(PETITE.VALEUR(extract!$F$1:$F$1500;COLONNE()-2);extract!$F$1:$F$1500;0);2));"";INDEX(extract!$F$1:$G$1500;EQUIV(PETITE.VALEUR(extract!$F$1:$F$1500;COLONNE()-2);extract!$F$1:$F$1500;0);2))

2) copie cette formule en C2 est l'étire jusqu'à IV2

Code: 
=SI(ESTERREUR(RECHERCHE(C1;extract!$G2:$G1502;extract!$N2:$N1502));"";RECHERCHE(C1;extract!$G2:$G1500;extract!$N2:$N1500))

3) copie cette formule en C3 est l'étire jusqu'à IV109

Code: 
SOMMEPROD((extract!$M$2:$M$1500=$A4)*(extract!$G$2:$G$1500=C$1)*((($B4="S")*extract!$AD$2:$AD$1500)+(($B4="E")*extract!$V$2:$V$1500)))
 
Dernière édition:
Vote positif 0 Vote négatif
E

Eclipto

XLDnaute Junior
Re : tri d'un tableau par date

pierrejean à dit:
Re

# 25
je croyais que la sequence etait
vidé ajouts Infos

#26
Tu pourrais essayer d'etre un peu plus precis S.T.P

Ligne 1 de quelle feuille ?
Quelle formule ?
Quelle macro ?
Cliquez pour agrandir...

#25

Dans la version original du fichier quand je copie un nouveau tableau dans "extract" il manque les colonnes F/O/V/W/AD ainsi que les infos dedans et une modification de la colonne G. la macro "ajouts" est la pour les ajouter.
Si il n'y pas de modification dans l'onglet extract comme dans l'exemple pas besoin de l'utiliser.


#26

Désolé, dans l'onglet liaison quand tu applique la macro infos elle commence pas copier et étiré la ligne 1 hors actuellement ce n'est pas le cas si tu vis l'onglet liaison avec la macro.

la formule

Code: 
=SI(ESTERREUR(INDEX(extract!$F$1:$G$1500;EQUIV(PETITE.VALEUR(extract!$F$1:$F$1500;COLONNE()-2);extract!$F$1:$F$1500;0);2));"";INDEX(extract!$F$1:$G$1500;EQUIV(PETITE.VALEUR(extract!$F$1:$F$1500;COLONNE()-2);extract!$F$1:$F$1500;0);2))

dans la macro infos

Code: 
ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(INDEX(extract!R1C6:R1500C7,MATCH(SMALL(extract!R1C6:R1500C6,COLUMN()-2),extract!R1C6:R1500C6,0),2)),"""",INDEX(extract!R1C6:R1500C7,MATCH(SMALL(extract!R1C6:R1500C6,COLUMN()-2),extract!R1C6:R1500C6,0),2))"
    Range("C1").Select
    Selection.AutoFill Destination:=Range("C1:IV1"), Type:=xlFillDefault
    Range("C1:IV1").Select
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Code de tri
2
Réponses
22
Affichages
434
Dudu2
Dudu2
S
  • Question
Power Query tri powerquery
Réponses
9
Affichages
357
JFL_XLD
J
V
  • Résolu(e)
XL 2021 Trier sans ligne vide
Réponses
10
Affichages
388
VieuxSeb
V
A
  • Résolu(e)
Microsoft 365 VBA - Tri par couleur de cellule
2
Réponses
16
Affichages
373
AD95
A
M
  • Question
Microsoft 365 Problème à une solution de tri erronée
Réponses
2
Affichages
216
TooFatBoy
TooFatBoy
J
  • Question
XL 2016 Tableau de bord - report de données
2
Réponses
16
Affichages
550
chris
chris
O
  • Question
XL 2016 Compter des cellules dont les données sont consécutives
Réponses
3
Affichages
344
Aya_flo
A
G
  • Question
XL 2016 Lier un TCD et un tableau Excel
Réponses
7
Affichages
314
OKBI
O
F
  • Résolu(e)
XL 2013 Tri sur listbox par textbox
2
Réponses
23
Affichages
724
franxy
F
J
  • Question
XL 2019 Filtrage des données dans un TCD
Réponses
10
Affichages
272
Cousinhub
Cousinhub

Membres actuellement en ligne

4 membres et 90 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 559
Messages
2 089 602
Membres
104 224
dernier inscrit
Brilma