Problême format cellule dans ListView

Bonjour le forum !

Je sollicite votre aide, car je n'arrive pas à paramétrer l'affichage de ma ListView.

Dans le fichier ci-joint, j'aimerai conserver le format des données de mon tableau (Feuille "BD").

Je voudrai qu'elles s'affichent de la même façon dans mon Listview.

D’où ma question: comment modifier le format de chaque colonne?

  • colonne 1: format date "jj mmmm"
  • colonne 2 et 3: format heure "hh:mm"
  • colonne 4: format pourcentage 00,00%2 décimales)
  • colonne 5: format standart à 2 décimales.

De plus, est-il possible qu'en ouvrant l'UserForm2, ma Listview affiche les dernières valeurs ?

Donc que la Srollbar de mon Listview défile automatiquement vers le bas pour afficher les dernières valeurs?

Cela fait peut-être trop de questions d'un coup, mais je ne suis pas pressé, je ne demande qu'à apprendre,

Je vous remercie sincèrement pour votre aide,

Cordialement,

xorsankukai.

49essai.xlsm (33.10 Ko)

Bonjour

Un essai à tester.

Je n'ai traité que le Usf1

A toi t'en inspirer pour le Usf2

Ok ?

Bye !

224essai-v1.xlsm (31.29 Ko)

Bonjour gmb,

Un grand merci pour ta contribution !

C'est exactement ce que je recherchais.

J'essaierai de le reproduire sur mon UsF2 plus tard (je dois aller bosser).

Bonne journée,

Cordialement,

xorsankukai

bonsoir gmb

j'ai ouvert le fichier que tu as modifié et je trouve bizarre que la listview de l'usf1 affiche la date en JJ Juillet et non la date chiffrée du mois

Pascal

Bonsoir grisan29,

Il faut remplacer "jj"par "dd" dans le code.

Cordialement,

xorsankukai

Bonjour à tous

Bonjour Grisan

@Grisan : Une étourderie de ma part ; j'en suis coutumier.

Merci de la remarque.

Nouvelle version corrigée :

86essai-v2.xlsm (31.34 Ko)

Bye !

bonsoir gmb, xorsankukai

c'était pour faire une remarque gentille a gmb juste car je savais qu'il fallait mettre dd après essai ça marchait

Pascal

Bonjour le forum,

gmb :A toi t'en inspirer pour le Usf2

C'est frusté et dépité que je me retourne vers vous,

Je n'arrive pas à adapter ces lignes (que m'a gentiment fournies gmb), à mon UserForm2.

If j = 1 Or j = 2 Then
                .ListItems(i).ListSubItems.Add , , Format(rg.Offset(i, j), "hh:mm")
            ElseIf j = 3 Then
                .ListItems(i).ListSubItems.Add , , Format(rg.Offset(i, j) / 100, "0.00%")
            ElseIf j = 4 Then
                .ListItems(i).ListSubItems.Add , , rg.Offset(i, j)
            End If

C'est la boucle qui me pose problème.

j = 1
         Do Until IsEmpty(rg.Offset(0, j))
            'Ajouter un sous-élément en spéciant la valeur seulement
             .ListItems(i).ListSubItems.Add , , rg.Offset(i, j)
             j = j + 1
        Loop
        i = i + 1
     Loop
     

J'ai essayé de placer ces lignes à divers endroits de la boucle, mais je n'obtiens jamais le résultat escompté.

Au mieux je n'ai qu'une colonne au bon format,

Si une bonne âme charitable pouvait me montrer la voie,

Je vous remercie d'avance,

xorsankukai

19essai1.xlsm (33.55 Ko)

Bonjour

Allons ! Allons !

Faut pas se mettre dans des états pareils ! Le forum est là !

Nouvelle version :

21essai2.xlsm (33.02 Ko)

Quant à afficher les données du bas de la ListView dès son ouverture, j'avoue que je n'ai pas trouvé...

Désolé !

Bye !

Ca y est ! J'ai trouvé :

175essai3.xlsm (33.22 Ko)

Bye !

bonjour gmb

chapeau 8) pour le code qui fait afficher par le bas de la listview, mais j'ai fait un comparatif pour voir ce qui a permis cette option entre l'essai 2 et l'essai 3, mais je crois devoir allez chez l’oculiste car pas vu

ca y est j'ai ouvert mes yeux et j'ai trouvé

.ListItems(ListView1.ListItems.Count).EnsureVisible

parfait a conserver

Pascal

Bonsoir gmb, grisan29,

Un grand merci gmb, c'est parfait !

J'avais bien placé ces lignes au bon endroit, mais j'avais omis de supprimer :

.ListItems(i).ListSubItems.Add , , rg.Offset(i, j)

Encore merci pour ton partage,

Cordialement,

xorsankukai

Rechercher des sujets similaires à "probleme format listview"