XL 2010 Tester format données dans listview pour tri des colonnes

antiphot

XLDnaute Occasionnel
Bonjour à toute la communauté


Je récupère dans une listbox le chemin d'un ensemble de fichiers excel correspondant à des bases de données via une boucle sur un répertoire.
Ensuite en cliquant sur une des lignes de ma listbox, j'affiche dans une listview, l'ensemble des données de la base choisie via une requête SQL. Le problème c'est que ces bases sont diverses et donc les données peuvent être numériques, texte ou date.
Pour effectuer un tri correct en cliquant sur chaque entête, il faudrait que je puisse via une fonction tester le format de chaque colonne pour appliquer le tri adéquat. J'ai effectué quelques recherches en ce sens mais le format des colonnes est toujours déterminé par rapport à une source de données qui est fixe.


Merci par avance pour vos propositions
Philippe
 

Oranger

XLDnaute Occasionnel
Bonjour,

A quelle type de format t'intéresse tu ? Format de la donnée ou format de la cellule?

Voici 2 fonctions en vba: la première teste le format d'une donnée et la seconde le format d'une cellule donnée

Function TypeformatDonnées(VarDonnée As Variant)
If IsNumeric(VarDonnée) = True Then
Typeformat = "Numérique"
Else
If IsDate(VarDonnée) = True Then
Typeformat = "Date"
Else
If Application.WorksheetFunction.IsNonText(VarDonnée) = False Then
Typeformat = "Texte"
End If
End If
End If
End Function

Function TypeformatCellule(VarDonnée As Variant)
Select Case VarDonnée.NumberFormat
Case "0.00"
TypeformatCellule = "numérique"
Case "@"
TypeformatCellule = "texte"
Case "m/d/yyyy"
TypeformatCellule = "date"
End Select
End Function

Cdlt,

Oranger
 

Discussions similaires


Haut Bas