XL 2019 Trier des dates dans un tableau

Yann71 · 7 Février 2021

Bonjour la com.
J'ai un bouton sur ma feuille qui me permet de faire le tris des dates . Le problème réside
dans le fait que ce code fonctionne à merveille lorsque j'ouvre mon fichier et que je modifie mon tableau
sans utliser mon User. Si je fais des modifications sur mon tableau depuis mon UserForm et que je revienne
sur ma feuille pour cliquer sur trier plus rien ne fonctionne.
Ou se trouve donc le problème. Merci par avance de votre aide.

TooFatBoy · 7 Février 2021

Bonjour,

Peut-être que les dates modifiées par ton userform ne sont plus des "dates" (au sens Excel) après leur modification ?

Yann71 · 7 Février 2021

Bonjour Marcel32. Comment puis-je résoudre ce problème

TooFatBoy · 7 Février 2021

Ce que je voulais dire, c'est qu'il faudrait commencer par vérifier si les dates modifiées sont alors réellement des dates, pour savoir si c'est bien ça le problème.

Hélas, je n'ai pas ce qu'il faudrait pour ouvrir les fichiers .xlsm, donc je ne peux voir ta macro.
Du coup, je ne saurais t'aider plus. Désolé.

Yann71 · 7 Février 2021

Je ne connais pas la ligne de code qui me permetrai de mettre au format date. Il me semble que tu peux l'ouvrir en changeant l'extension du fichier remplace xlsm par xls

TooFatBoy · 7 Février 2021

Pardon, je me suis mal exprimé : je peux ouvrir le fichier, mais je ne peux ni exécuter, ni même simplement visualiser, les macros du fichier.

Yann71 · 7 Février 2021

Marcel32 à dit:
Pardon, je me suis mal exprimé : je peux ouvrir le fichier, mais je ne peux ni exécuter, ni même simplement visualiser, les macros du fichier.

Pas de soucis. Merci encore pour ton intervention.

chris · 7 Février 2021

Bonjour

Yann71 à dit:
Il me semble que tu peux l'ouvrir en changeant l'extension du fichier remplace xlsm par xls

Il ne suffit pas de changer l'extension d'un fichier pour en changer le format...

VB:

.Cells(lig, 3) = CDate(TextBox2)

ChTi160 · 7 Février 2021

Bonsoir Yann
il faut peut être pour que cela fonctionne mieux modifier

VB:

If VT = 2 Or VT = 5 Then TextBox2 = TextBox2 & "."

mettre "/" comme séparateur au lieu du Point "." .
soit :

VB:

If VT = 2 Or VT = 5 Then TextBox2 = TextBox2 & "/"

jean marie

Yann71 · 7 Février 2021

chris à dit:
Bonjour

Il ne suffit pas de changer l'extension d'un fichier pour en changer le format...

VB:

.Cells(lig, 3) = CDate(TextBox2)

Bonsoir Chris, merci pour ton aide c'est tout bon. Bonne soirée

ChTi160 · 7 Février 2021

re ce que j'ai mis

VB:

Private Sub CommandButton1_Click()
Dim DerLgn As Integer
Dim DerCol As Byte
 With Worksheets("BDD")
     DerLgn = .Cells(200, 2).End(xlUp).Row
     DerCol = .Cells(7, 100).End(xlToLeft).Column
    With .Range(.Cells(7, 2), .Cells(DerLgn, DerCol))
              .Sort Key1:=.Cells(8, 3), Order1:=xlDescending, Header:=xlYes
    End With
  End With
End Sub

jean marie

Yann71 · 7 Février 2021

ChTi160 à dit:
Bonsoir Yann
il faut peut être pour que cela fonctionne mieux modifier

VB:

If VT = 2 Or VT = 5 Then TextBox2 = TextBox2 & "."

mettre "/" comme séparateur au lieu du Point "." .
soit :

VB:

If VT = 2 Or VT = 5 Then TextBox2 = TextBox2 & "/"

jean marie

Bnsoir Jean-Marie, j'avais déjà utilisé avec "/" mais cela n'a pas fonctionné il manquait donc le bout de code que Chris m'a livré

Yann71 · 7 Février 2021

ChTi160 à dit:

re ce que j'ai mis

VB:

Private Sub CommandButton1_Click()
Dim DerLgn As Integer
Dim DerCol As Byte
With Worksheets("BDD")
     DerLgn = .Cells(200, 2).End(xlUp).Row
     DerCol = .Cells(7, 100).End(xlToLeft).Column
    With .Range(.Cells(7, 2), .Cells(DerLgn, DerCol))
              .Sort Key1:=.Cells(8, 3), Order1:=xlDescending, Header:=xlYes
    End With
  End With
End Sub

jean marie

Ce code est pour quelle fonction

ChTi160 · 7 Février 2021

re
Ok excuse !
je supprime c'était pour le tri Lol
il est vrai que seul toi normalement , sais a quoi correspond

CommandButton1

il est parfois intéressant de nommer les Controls Lol
j'ai vu que tu as modifié le Nom de la Feuille "BDD" au Lieu de "Saisie" !
jean marie

Yann71 · 7 Février 2021

ChTi160 à dit:
re
Ok excuse !
je supprime c'était pour le tri Lol
il est vrai que seul toi normalement , sais a quoi correspond

il est parfois intéressant de nommer les Controls Lol
j'ai vu que tu as modifié le Nom de la Feuille "BDD" au Lieu de "Saisie" !
jean marie

Pas de soucis tu es tout excusé.

XL 2019 Trier des dates dans un tableau

Yann71

XLDnaute Occasionnel

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

Yann71

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

Discussions similaires