Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
David
Bonjour,
Dans ma grille la date est en colonne 2, et j'ai créé une 12eme colonne invisible ou je stocke la date transformée en CLng. Au moment du clique sur la 2eme colonne je force la "lecture" sur la 12eme colonne et le tri s'effectue alors sur la 12eme colonne !
Private Sub MSFlexGrid1_Click()
If MSFlexGrid1.MouseCol = 2 Then MSFlexGrid1.Col = 12 For i% = 1 To MSFlexGrid1.Rows - 1 MSFlexGrid1.TextMatrix(i%, 12) = CLng(DateValue(MSFlexGrid1.TextMatrix(i%, 2))) Next i% Else: MSFlexGrid1.Col = MSFlexGrid1.MouseCol End If MSFlexGrid1.Sort = 1
End If
"TheTigers" a écrit dans le message de news: bvtvcj$ei9$
slt
peut-on classer une msflexgrid par ordre croissant
exemple
affiche dans ma msflexgrid et je voudrais le tri sur la colone date
Dans ma grille la date est en colonne 2,
et j'ai créé une 12eme colonne invisible ou je stocke
la date transformée en CLng.
Au moment du clique sur la 2eme colonne
je force la "lecture" sur la 12eme colonne et
le tri s'effectue alors sur la 12eme colonne !
Private Sub MSFlexGrid1_Click()
If MSFlexGrid1.MouseCol = 2 Then
MSFlexGrid1.Col = 12
For i% = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.TextMatrix(i%, 12) = CLng(DateValue(MSFlexGrid1.TextMatrix(i%,
2)))
Next i%
Else: MSFlexGrid1.Col = MSFlexGrid1.MouseCol
End If
MSFlexGrid1.Sort = 1
End If
"TheTigers" <thetigers@wanadoo.fr> a écrit dans le message de news:
bvtvcj$ei9$1@news-reader5.wanadoo.fr...
slt
peut-on classer une msflexgrid par ordre croissant
exemple
affiche dans ma msflexgrid
et je voudrais le tri sur la colone date
Dans ma grille la date est en colonne 2, et j'ai créé une 12eme colonne invisible ou je stocke la date transformée en CLng. Au moment du clique sur la 2eme colonne je force la "lecture" sur la 12eme colonne et le tri s'effectue alors sur la 12eme colonne !
Private Sub MSFlexGrid1_Click()
If MSFlexGrid1.MouseCol = 2 Then MSFlexGrid1.Col = 12 For i% = 1 To MSFlexGrid1.Rows - 1 MSFlexGrid1.TextMatrix(i%, 12) = CLng(DateValue(MSFlexGrid1.TextMatrix(i%, 2))) Next i% Else: MSFlexGrid1.Col = MSFlexGrid1.MouseCol End If MSFlexGrid1.Sort = 1
End If
"TheTigers" a écrit dans le message de news: bvtvcj$ei9$
slt
peut-on classer une msflexgrid par ordre croissant
exemple
affiche dans ma msflexgrid et je voudrais le tri sur la colone date
tu peux trouver une autre solution à l'adresse ci-dessous:
http://www.vbfrance.com/code.aspx?IDq21
Differente, a etudier.... (j'ai eu le meme probleme ;-) )
A plus Michael
-----Message d'origine----- Bonjour,
Dans ma grille la date est en colonne 2, et j'ai créé une 12eme colonne invisible ou je stocke la date transformée en CLng. Au moment du clique sur la 2eme colonne je force la "lecture" sur la 12eme colonne et le tri s'effectue alors sur la 12eme colonne !
Private Sub MSFlexGrid1_Click()
If MSFlexGrid1.MouseCol = 2 Then MSFlexGrid1.Col = 12 For i% = 1 To MSFlexGrid1.Rows - 1 MSFlexGrid1.TextMatrix(i%, 12) = CLng(DateValue
(MSFlexGrid1.TextMatrix(i%,
2))) Next i% Else: MSFlexGrid1.Col = MSFlexGrid1.MouseCol End If MSFlexGrid1.Sort = 1
End If
"TheTigers" a écrit dans le
message de news:
bvtvcj$ei9$
slt
peut-on classer une msflexgrid par ordre croissant
exemple
affiche dans ma msflexgrid et je voudrais le tri sur la colone date
tu peux trouver une autre solution à l'adresse ci-dessous:
http://www.vbfrance.com/code.aspx?ID=7121
Differente, a etudier.... (j'ai eu le meme probleme ;-) )
A plus
Michael
-----Message d'origine-----
Bonjour,
Dans ma grille la date est en colonne 2,
et j'ai créé une 12eme colonne invisible ou je stocke
la date transformée en CLng.
Au moment du clique sur la 2eme colonne
je force la "lecture" sur la 12eme colonne et
le tri s'effectue alors sur la 12eme colonne !
Private Sub MSFlexGrid1_Click()
If MSFlexGrid1.MouseCol = 2 Then
MSFlexGrid1.Col = 12
For i% = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.TextMatrix(i%, 12) = CLng(DateValue
(MSFlexGrid1.TextMatrix(i%,
2)))
Next i%
Else: MSFlexGrid1.Col = MSFlexGrid1.MouseCol
End If
MSFlexGrid1.Sort = 1
End If
"TheTigers" <thetigers@wanadoo.fr> a écrit dans le
message de news:
bvtvcj$ei9$1@news-reader5.wanadoo.fr...
slt
peut-on classer une msflexgrid par ordre croissant
exemple
affiche dans ma msflexgrid
et je voudrais le tri sur la colone date
tu peux trouver une autre solution à l'adresse ci-dessous:
http://www.vbfrance.com/code.aspx?IDq21
Differente, a etudier.... (j'ai eu le meme probleme ;-) )
A plus Michael
-----Message d'origine----- Bonjour,
Dans ma grille la date est en colonne 2, et j'ai créé une 12eme colonne invisible ou je stocke la date transformée en CLng. Au moment du clique sur la 2eme colonne je force la "lecture" sur la 12eme colonne et le tri s'effectue alors sur la 12eme colonne !
Private Sub MSFlexGrid1_Click()
If MSFlexGrid1.MouseCol = 2 Then MSFlexGrid1.Col = 12 For i% = 1 To MSFlexGrid1.Rows - 1 MSFlexGrid1.TextMatrix(i%, 12) = CLng(DateValue
(MSFlexGrid1.TextMatrix(i%,
2))) Next i% Else: MSFlexGrid1.Col = MSFlexGrid1.MouseCol End If MSFlexGrid1.Sort = 1
End If
"TheTigers" a écrit dans le
message de news:
bvtvcj$ei9$
slt
peut-on classer une msflexgrid par ordre croissant
exemple
affiche dans ma msflexgrid et je voudrais le tri sur la colone date
