userform et tri date

[MPP87]

Bonjour le forum.
J'ai un petit souci. j'ai créé un userform pour saisir mes dépenses et me les classer par date sur une autre feuille. Tout se passe bien sauf que mes lignes ne sont absolument pas classé par date. Voici mon code:
Cela vient il du Number Format ??? j'y perd mon excel. Merci à tous ceux qui porteront attention à mon message.


Private Sub VALIDER_Click()
Dim voperationnum As Long
Application.ScreenUpdating = False
Sheets("OPERATION").Activate
ActiveSheet.Unprotect Password:="17121967"


Range("a1").End(xlDown).Select
voperationnum = Selection.Value + 1
ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = voperationnum
[b65536].Select
Selection.End(xlUp)(2).Select
With ActiveCell
Selection.NumberFormat = "m/d/yyyy"
.Value = vdate
.Offset(0, 1).Value = typeachat
If vcheque = True Then
.Offset(0, 2).Value = "Chèque"
End If
If vprelvmt = True Then
.Offset(0, 2).Value = "Prélèvement"
End If
If vcartebleuecora = True Then
.Offset(0, 2).Value = "Carte Bleue ou Cora"
End If
If vautre = True Then
.Offset(0, 2).Value = "Autre"
End If
.Offset(0, 3).Value = vN°operation
.Offset(0, 4).Value = vcommentaire
.Offset(0, 5).Value = Val(vdebit)
.Offset(0, 6).Value = Val(vcredit)
End With

Range("b3:b2012").Select
Selection.NumberFormat = "m/d/yyyy"
Range("B3:J2012").Select
Selection.Sort Key1:=Range("b3:j2100"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("a1").Select
ActiveSheet.Protect Password:="17121967"
typeachat = ""
vcheque = ""
vprelvmt = ""
vcartebleuecora = ""
vautre = ""
vN°operation = ""
vcommentaire = ""
vdebit = ""
vcredit = ""
Sheets("TABLEAU DE BORD").Activate
Range("a1").Select
End Sub

 

[Kobaya]

Re : userform et tri date

salut MPP87,

Qu'est-ce que la commande "Selection.End(xlUp)(2).Select" est sensée faire ?
Je ne connais pas cette syntaxe.

 

[porcinet82]

Re : userform et tri date

Salut MPP87, Kobaya,

Je ne me suis pas penché sur le problème de MPP87, mais pour répondre à Kobaya, le Selection.End(xlUp)(2).Select est identique à Selection.End(xlUp).Offset(1,0).Select

@+

 

[MPP87]

Re : userform et tri date

Bonjour Kobaya, porcinet 82.
Oui cette commande permet de trouver la dernière cellule vide d'une colonne.
je n'ai toujours pas résolu mon problème de format de date !!

 

[porcinet82]

Re : userform et tri date

Salut MPP87,

Comme tu le dis dans ton premier post, est-ce que tu as essayer de changer ton format date. Je vois que tu es en format US, essaye peut etre un format du genre DD/MM/YYYY.

@+

 

[MPP87]

Re : userform et tri date

Salut Porcinet82,
Merci de bien vouloir m'aider. Oui j'ai essayé mais le souci est le même ; c'est au moment ou je tri mes infos par date que le problème se pose, car excel ne reconnait pas toutes mes dates. Du coup je ne sais quel format adopter.

 

[porcinet82]

Re : userform et tri date

re,

Difficile de t'aider sans voir tes données. Est-ce que tu pourrais mettre un fichier exemple en passant par Accueil de Cjoint.com pour qu'on essaye de voir ou se situe précisement le problème.

@+

 

[MPP87]

Re : userform et tri date

Oui bien sur. je peux le mettre en ligne ce soir, car je n'ai pas le fichier au boulot. Disons vers 20 h. Merci.

 

[MPP87]

Re : userform et tri date

Bonsoir Porcinet82.
Voici donc un exemplaire de mon fichier. Merci d'avance.
http://cjoint.com/?hnt3EiNzG3

 

[porcinet82]

Re : userform et tri date

Bonsoir MPP87,

Comme j'avais un peu de temps avant d'aller voir un joli ti feu d'artifice, je viens de jeter un oeil a ton fichier.

En fait il y a un problème dans les format de test dates. Si tu selectionnes seulement la colonne B de la feuille OPERATION et que tu la mets dans une autre feuille et que tu essais de la trier, tu verras que certaine se trie et d'autre non.

Donc je pense qu'il faut que tu réécrives ta base avec des dates correctes. D'ailleurs tu peux voir les données qui ont un mauvais format de date en appliquant sur ta colonne B un format Date du genre D/M/YY (en faisant click droit, format de celllule).

Par contre j'ai testé en rentrant des nouvelles date via ton USF et les dates on un format correcte puisqu'elle se trie correctement.

Tiens moi au courant,

@+

 

[MPP87]

Re : userform et tri date

Merci beaucoup ; oui moi aussi je suis allé voir un chouette feux d'artifice, à Limoges, un monde fou !!!!!
Je vais tester le fichier demain sur une feuille vierge et je te tiendrai au courant. A plus.

 

[MPP87]

Re : userform et tri date

Bonjour Porcinet82
Je viens de tester mon fichier sur une nouvelle feuille, en modifiant au préalable le format des dates, c'est toujours pareil. Mes dates se trient en fonction du jour et non en fonction du mois et du jour. Je tourne en rond.

 

[porcinet82]

Re : userform et tri date

Salut MPP87,

Tu n'as pas du lire ce que je t'avais écrit précédement. JE t'ai dis que certaines dates avaient un mauvais format. Donc comme je te l'ai deja ecrit, il faut que tu supprimes les lignes concernées et que tu les recrées via ton USF.

Donc je pense qu'il faut que tu réécrives ta base avec des dates correctes. D'ailleurs tu peux voir les données qui ont un mauvais format de date en appliquant sur ta colonne B un format Date du genre D/M/YY (en faisant click droit, format de celllule).

Je te joint un fichier dans lequel tu verras ce que je t'ai expliqué.


@+