XL 2010 tri date avec la formule =DatSem(B$1;B3;C3)

goube

XLDnaute Accro

• 29 Septembre 2020

• #2

Bonsoir shitoryu,

Les dates, dans excel, sont considérées comme des nombres 28/09/20 = 44102.

shitoryu à dit:

j'ai une colonne qui génère automatiquement la date dans une colonne : =DatSem(B$1;B3;C3); =DatSem(B$1;B4;C4); etc.

Cliquez pour agrandir...

que donne le résultat de cette formule, c'est lui qu'il faut remettre en format date "jjjj j mmmm aaa"
le tri de A à Z fonctionnera.
Cordialement.

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 29 Septembre 2020

• #3

en effet, ça fonctionne, tout simplement. Merci !!
tellement bête que je n'avais même pas essayé...
Belle soirée

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 30 Septembre 2020

• #4

en complément, savez-vous si la colonne où la date s'inscrit automatiquement peut-être verrouillée ? De ce que j'ai pu voir le tri est impossible quand les cellules sont verrouillées, mais il y a peut-être une combine.
merci encore !

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 30 Septembre 2020

• #5

Bonjour,

Avec du VBA cela reste possible.

VB:

Sub Tri()

    ActiveSheet.Unprotect
    
    Range("Tableau1[Colonne1]").Select
    ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").Sort.SortFields. _
        Add2 Key:=Range("E5"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
    
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        
End Sub

Cordialement.

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 30 Septembre 2020

• #6

cool, merci beaucoup !
L'objet est que le tri soit possible pour chacune des colonnes et que la saisie de la date dans la colonne D soit verrouillée pour les utilisateurs (le tableau sera partagé).
j'ai fait quelques essais, mais je n'y arrive pas.
Merci à vous !

 

Pièces jointes

• Calendrier des activités (2020-21) MAJ 08 janvier 2020.xlsm

  289.2 KB · Affichages: 11

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 30 Septembre 2020

• #7

Re,

Un essai à tester.
Cordialement.

 

Pièces jointes

• Calendrier des activités (2020-2021) MAJ 08 janvier 2020.xlsm

  294.4 KB · Affichages: 4

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 30 Septembre 2020

• #8

merci pour votre temps.
j'ai essayé, cela m'indique "erreur d'exécution 438", j'ai lancé le débogage mais c'est resté en erreur.

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 30 Septembre 2020

• #9

re,

je viens de tester sur mon poste pas de problème. As tu bien vérifier que les noms de feuilles correspondent bien à ton classeur ?
Sinon envoie ton fichier.
Cordialement.

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 30 Septembre 2020

• #10

peut-être un problème de version logiciel.
j'ai toujours l'erreur avec le fichier envoyé au-dessus (15h58). curieux

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 30 Septembre 2020

• #11

re,
la macro a été écrite avec l'enregistreur de macro. Essaie sur ton poste pour voir si la syntaxe est la même.

VB:

 ActiveWorkbook.Worksheets("2020 (janv-juillet)").ListObjects("Tableau1").Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("2020 (janv-juillet)").ListObjects("Tableau1").Sort. _
        SortFields.Add2 Key:=Range( _
        "Tableau1[[#All],[Ne pas écrire la date" & Chr(10) & "(ne pas modifier la formule)]]"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("2020 (janv-juillet)").ListObjects("Tableau1"). _
        Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With

Cordialement.

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 30 Septembre 2020

• #12

re,

Une version modifiée, avec une formule à la place de la fonction et une activation du tri au changement de valeur dans la colonne C (C3:C498)
Cordialement.

 

Pièces jointes

• Calendrier des activités (2020-2021) MAJ 08 janvier 2020.xlsm

  294.1 KB · Affichages: 5

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 30 Septembre 2020

• #13

merci encore ! très bonne idée pour la colonne C, parfait.
par contre si je comprends bien, il faut être en lecture seule pour que la colonne D ne soit pas modifiable. Par contre le tri à partir de la cellule D2 est inopérante dans ce cas. Je m'y prends mal ?

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 30 Septembre 2020

• #14

re,
Je ne comprend pas le sens de ta question, les cellules D3 : D498 sont verrouillées.
le verrouillage n'est effectif qu'à partir du moment où la protection de la feuille est activée.
Onglet Révision, Protéger, Ôter la protection de la feuille ou Protéger la feuille.
La macro tri retire la protection, fait le tri et remet la protection.
Cordialement.

 

Vote positif 0 Vote négatif

S

shitoryu

XLDnaute Occasionnel

• 1 Octobre 2020

• #15

en fait, l'objet est d'avoir des cellules protégées où la date s'inscrit mais de pouvoir actionner le tri à partir de la ligne 2.
C'est possible ?
Merci !

 

Vote positif 0 Vote négatif