Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Alimenter ListView avec format des cellules lues

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ludo27
  • Date de début Date de début

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 !

S'inscrire

ludo27

XLDnaute Junior
Bonjour,
j'alimente un ListView à partir d'un range de cellules.

Je voudrais que le format des valeurs dans le ListView soit le même que celui des cellules lues.


Pour ajouter une colonne au ListView j'utilise :

Code: 
lv.ListItems(lLi).ListSubItems.Add , , rgData.Cells(lLi, lCol).Value
qui marche très bien pour copier les valeurs.

je sais qu'il existe la fonction Format pour mettre un format dans le ListView par contre je ne sais pas récupérer le format de la cellule à copier.

Je voudrais utiliser une syntaxe comme :

Code: 
lv.ListItems(lLi).ListSubItems.Add , , Format(rgData.Cells(lLi, lCol).Value, [I][COLOR="Blue"]Format de rgData.Cells(lLi, lCol)[/COLOR][/I])

Si quelqu'un a une idée pour récupérer la valeur du truc en bleu .... 😉
 
Trier par date Trier par votes
Re : Alimenter ListView avec format des cellules lues

bonjour ludo27

A tester:

Code: 
lv.ListItems(lLi).ListSubItems.Add , , Format(rgData.Cells(lLi, lCol).Value, [I][COLOR=blue]rgData.Cells(lLi, lCol).Numberformat[/COLOR][/I])
 
Vote positif 0 Vote négatif
Re : Alimenter ListView avec format des cellules lues

Merci PierreJean,
j'ai un message
Dépassement de capacité
Cliquez pour agrandir...
sur la 25ème colonne; il s'agit d'un nombre à 7 chiffres.

En fait NumberFormat me renvoie "General" quelque soit le type lu.
NumberFormatLocal renvoie "Standard" quelque soit le type lu.


Sinon j'avais essayé d'utiliser TypeName pour appliquer un format "à la main" en fonction de "String, Double, Integer" mais la fonction renvoie Double pour des double ou pour des Integer.

Code: 
lv.ListItems(lLi).ListSubItems.Add , , Format(rgData.Cells(lLi, lCol).Value, IIf(TypeName(rgData.Cells(lLi, lCol).Value) = "Double", "##,##0.00", ""))
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Alimenter ListView avec format des cellules lues

j'ai trouvé quelquechose de moche mais qui fait ce qu'il faut que je fasse 😉 :

Je teste s'il sagit d'un nombre à virgules ou d'un nombre sans virgules ou d'autre chose :

Code: 
vValue = rgData.Cells(lLi, lCol).Value
          'lv.ListItems(lLi).ListSubItems.Add , , rgData.Cells(lLi, lCol).Value
          If IsNumeric(vValue) Then
            If vValue <> Int(vValue) Then
                lv.ListItems(lLi).ListSubItems.Add , , Format(rgData.Cells(lLi, lCol).Value, "##,##0.00")
                Else: lv.ListItems(lLi).ListSubItems.Add , , Format(rgData.Cells(lLi, lCol).Value, "##,##0")
            End If
            Else: lv.ListItems(lLi).ListSubItems.Add , , rgData.Cells(lLi, lCol).Value
            End If
 
Vote positif 0 Vote négatif
Re : Alimenter ListView avec format des cellules lues

Bonsoir le fil,

je pense que tu n'as pas besoin de vérifié si la cellule est un nombre, en complément de Bebere:

Code: 
      For lLi = 1 To nbLi
        'Remplissage des colonnes 1 à nbCol dans la lLième ligne
        For lCol = 1 To nbCol
          lv.ListItems(lLi).ListSubItems.Add , , rgData.Cells(lLi, lCol).Text
        Next lCol
      Next lLi
 
Vote positif 0 Vote négatif
Re : Alimenter ListView avec format des cellules lues

Merci beaucoup pour vos réponses.

En effet ça marche très bien avec
Code: 
rgData.Cells(lLi, lCol).Text
au lieu de
Code: 
rgData.Cells(lLi, lCol).Value

Pourquoi n'y ai-je pas pensé ?

Bravo 😉
 
Vote positif 0 Vote négatif
salut

est ce que rgData est declarer range!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
623
Piment
P
S
  • Question Question
XL pour MAC récupérer les valeurs d’une plage colonne continue à partir d’une plage discontinue.
Réponses
12
Affichages
534
sergio_bzh
S
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
400
fanch55
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
563
sousou
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
634
KRUG WOO
K
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
556
sylvanu
R
  • Question Question
Microsoft 365 Erreur d'exécution '9': L'indice n'appartient pas à la selection
Réponses
1
Affichages
510
ChTi160
XLS : Sélecteur de Couleur
Réponses
10
Affichages
678
Lu76Fer
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
719
desto
D
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
762
jeff1494
P
  • Question Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
823
phoceenjo
P
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
4 K
patricktoulon
F
  • Question Question
XL 2019 Extraire des lignes suivant somme des colonnes pour alimenter un autre tableau
Réponses
1
Affichages
493
fanfan38
C
  • Résolu(e)
XL 2013 importer des données sans modifier le format des cellules distinataires
Réponses
6
Affichages
546
chindou
C
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
902
ali591
A
  • Résolu(e)
XL 2021 Récupérer des données de fichiers dons les noms sont renseignés dans des cellules
Réponses
2
Affichages
697
Darkopsix
T
  • Question Question
Microsoft 365 Comment donner des couleurs aux lignes d'une ListView excel VBA
2 3
Réponses
34
Affichages
5 K
TooFatBoy
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
570
JJ69
J
M
  • Question Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
694
DJunqueira
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…