XL 2019 Trier des dates dans un tableau

[Yann71]

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]

Bonjour,

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

 

[Yann71]

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

 

[TooFatBoy]

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]

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]

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]

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]

Bonjour

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...

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

 

[ChTi160]

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

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

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

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

jean marie

 

[Yann71]

Bonjour


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

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

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

 

[ChTi160]

re ce que j'ai mis

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]

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

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

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

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]

re ce que j'ai mis

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]

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]

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é.