Microsoft 365 tri date automatique par macros

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2022

• #2

Re bonjour Christophe,
Rien n'est pire que des cellules fusionnées, et votre fichier en est plein.
Ne serait t-il pas possible de les supprimer ?
Le seul cas dans votre fichier où cela semble utile est en Z89 Z90 ou vous avez E et L.
Est il possible de mettre "E L" dans une même cellule ?
Sinon trier ça, ça va être compliqué, même en VBA.

 

Vote positif 0 Vote négatif

C

christophe027

XLDnaute Nouveau

• 12 Janvier 2022

• #3

Oui c'est bien ce que je me disais, il faudrait que les supprime oui.
Oui il est possible de mettre E L dans une même cellule.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2022

• #4

Je vais essayer de le faire en VBA ce sera plus simple.

 

Vote positif 0 Vote négatif

C

christophe027

XLDnaute Nouveau

• 12 Janvier 2022

• #5

sylvanu à dit:

Je vais essayer de le faire en VBA ce sera plus simple.

Cliquez pour agrandir...

très bien merci, je viens de retirer les cellules fusionnées. je vous remets le fichier en pièce jointe.

 

Pièces jointes

• PLANNING 2022.xlsm

  392.5 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2022

• #6

Oups, j'ai fait la même chose.
J'attaque maintenant le tri, mais là ça va être facile.
Vérifier cette PJ, cela devrait être bon pour la suppression des cellules fusionnées.

 

Pièces jointes

• Christophe - PLANNING 2022 V2.xlsm

  645 KB · Affichages: 2

Vote positif 0 Vote négatif

C

christophe027

XLDnaute Nouveau

• 12 Janvier 2022

• #7

sylvanu à dit:

Oups, j'ai fait la même chose.
J'attaque maintenant le tri, mais là ça va être facile.
Vérifier cette PJ, cela devrait être bon pour la suppression des cellules fusionnées.

Cliquez pour agrandir...

Ah mince ^^
Parfait pour la PJ, tout me semble correct !

 

Vote positif 0 Vote négatif

C

christophe027

XLDnaute Nouveau

• 12 Janvier 2022

• #8

Je viens de réussir avec ceci :
Sub Tri_Dates()
Dim Lg As Long, OldFormat As String
Application.ScreenUpdating = False
Lg = Range("N" & Rows.Count).End(xlUp).Row
OldFormat = Range("N7").NumberFormat
Range("A7:BJ" & Lg).NumberFormat = "0"
'Range(A7:BJ" & Lg).Select
Range("A7:BJ" & Lg).Sort Key1:=Range("N7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A7:BJ" & Lg).NumberFormat = OldFormat
Application.ScreenUpdating = True
End Sub

en revanche, quand j'ajoute une ligne ça ne s'actualise pas, il faut que j'aille dans macro et que je fasse exécuter, et là, la ligne va se ranger dans l'ordre chronologique.
une idée de pourquoi il faut que je fasse éxécuter ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2022

• #9

essayez cette PJ avec :

VB:

    Application.ScreenUpdating = False
    Dim DL%
    DL = Range("B65500").End(xlUp).Row
    ActiveWorkbook.Worksheets("Planning").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Planning").Sort.SortFields.Add Key:=Range("N7:N" & DL _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Planning").Sort
        .SetRange Range("A7:BJ" & DL)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A2").Select
    Application.ScreenUpdating = True
End Sub

Attention, pour CV210251 vous avez une date 15 janvier 1900.

 

Pièces jointes

• Christophe - PLANNING 2022 V2.xlsm

  646.5 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2022

• #10

christophe027 à dit:

en revanche, quand j'ajoute une ligne ça ne s'actualise pas

Cliquez pour agrandir...

Vous voulez que cela s'actualise automatiquement ?
Si oui, quand ? Quand vous modifiez la colonne N ?
Mais il faut alors avoir une colonne pleine, comme ici en colonne B sinon cela ne marchera pas.
Pourquoi ne pas mettre la macro sur un bouton ?

 

Pièces jointes

• Christophe - PLANNING 2022 V3.xlsm

  647.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

C

christophe027

XLDnaute Nouveau

• 13 Janvier 2022

• #11

Oui j'aimerai que ce soit automatique lorsque l'on rentre la date (colonne N).
Sinon oui on peut mettre un bouton tout en haut par exemple, ça me convient très bien aussi.

 

Vote positif 0 Vote négatif

C

christophe027

XLDnaute Nouveau

• 13 Janvier 2022

• #12

christophe027 à dit:

Oui j'aimerai que ce soit automatique lorsque l'on rentre la date (colonne N).
Sinon oui on peut mettre un bouton tout en haut par exemple, ça me convient très bien aussi.

Cliquez pour agrandir...

Je pense avoir réussi à ajouter, le bouton.
Tout semble fonctionner correctement.

 

Pièces jointes

• Christophe - PLANNING 2022 V2 (1).xlsm

  694.3 KB · Affichages: 11

Vote positif 0 Vote négatif