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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour