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 !

Re : Tri date

Bonjour hoerwind,
Re,

Pour que tes fausses dates soient vraiment considérées comme des dates, dans la feuille Feui2 :

Sélectionne la colonne A
Onglet Données - Convertir
Délimité - Suivant
Séparateur : Tabulations (n'importe quoi qui n'existe pas dans les cellules)
Suivant
Format des données en colonnes : Date : JMA
Terminer

Maintenant, ce sont des dates et elles peuvent donc être triées
 
Re : Tri date

Bonsoir,

J'ai suivi tes conseils en utilisant l'enregistreur de macro.
J'obtiens le code suivant.
PHP:
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
Lorsque je lance mon application, je plante.
Tout le code apparaît en subrillance.
J'ai besoin d'aide pour comprendre ce qui ne va pas.
A+

JL
 
Re : Tri date

Bonjour Jean-Luc,

désolé, je n'ai pas bien regardé le code que tu utilisais, donc je n'avais pas compris la problématique dans son entier

En fait, c'est lorsque tu valides dans ton userform qu'il ecrit les fausses dates...

à tester, code du bouton de validation de l'userform :

Code:
Private Sub Valider_Click()
With Sheets("Feuil2")
Dl = .Range("A65000").End(xlUp).Row + 1
  [COLOR=red].Cells(Dl, 1) = CDate(Date_Saisie & " 2010")[/COLOR]
  
 With .Range("A1:G" & Dl)
    .Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
         .HorizontalAlignment = xlLeft
End With
End With
Unload Me
End Sub

ce qui revient à la proposition de hoerwind 😉
 
- 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

Discussions similaires

Réponses
16
Affichages
583
  • Question Question
Microsoft 365 Fonction si
Réponses
7
Affichages
217
  • Question Question
Microsoft 365 Remplissage auto
Réponses
14
Affichages
371
Réponses
4
Affichages
228
Réponses
2
Affichages
240
Réponses
1
Affichages
392
Retour