Posez votre question Signaler

Modifier format jj/mm/aa en mmmm dans une listview [Résolu]

Messages postés
140
Date d'inscription
lundi 9 juin 2008
Statut
Membre
Dernière intervention
18 avril 2012
 - - Dernière réponse : chris09300
Messages postés
140
Date d'inscription
lundi 9 juin 2008
Statut
Membre
Dernière intervention
18 avril 2012
 - 8 nov. 2011 à 12:27
Visual Basic 6 Posez votre question Signaler
Bonsoir
je souhaiterais changer le format jj/mm/aa dans ma listview, pourtant dans ma feuille excel j'ai bien ce format.

merci
ci dessous mon code 


Private Sub UserForm_Activate()

 Sheets("Barbecue").Select
 Application.DisplayFullScreen = True
 
 TextBox1.Value = Sheets("Barbecue").Range("i2").Value

With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With

'Suppression des titres de colonnes
ListView1.ColumnHeaders.Clear

'Alimentation des titres de colonne :

ListView1.ColumnHeaders.Add , , "Mois", ListView1.Width * 0.13, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Nom", ListView1.Width * 0.27, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Nº MobilHome", ListView1.Width * 0.15, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Date", ListView1.Width * 0.15, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Duree", ListView1.Width * 0.1, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Reglement", ListView1.Width * 0.1, lvwColumnRight
ListView1.ColumnHeaders.Add , , "Total", ListView1.Width * 0.08, lvwColumnRight

'on remplit la listview

With Me.ListView1
.ListItems.Clear
    For Each v In Range("a4:a" & Range("a65536").End(xlUp).Row)
        x = x + 1
        .ListItems.Add , , v
        .ListItems(x).ForeColor = v.Font.Color
        
        For j = 1 To 6
            .ListItems(x).ListSubItems.Add , , v.Offset(0, j)
            .ListItems(x).ListSubItems(j).ForeColor = v.Offset(0, j).Font.Color
        
        Next j
Next v
End With

End Sub
Afficher la suite 

Votre réponse

Répondre au sujet

5 réponses

Meilleure réponse
Signaler Commenter la réponse de chris09300
Messages postés
140
Date d'inscription
lundi 9 juin 2008
Statut
Membre
Dernière intervention
18 avril 2012
 1
3
Merci
merci beaucoup a toi, ca fonctionne
ce n'est pas le manque de regarder les tutos,mais pas toujours evident a ecrireun code qui fonctionne malgre de multiple essais.
merci encorea toi et de ta patience.
cris

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 111 internautes nous ont dit merci ce mois-ci

Commenter la réponse de chris09300
Signaler Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 266
0
Merci
Bonjour,
Phrase ambigüe :
je souhaiterais changer le format jj/mm/aa dans ma listview, pourtant dans ma feuille excel j'ai bien ce format

Que veut-elle dire ? que tu souhaites que la colonne concernée de ta listview contienne exactement de qui est affriché sur ta feuille Excel ?
Si oui :
je te rappelle ce que je t'ai dit dans ton autre discussion, à savoir :
c.Offset(0, j)

est une fort mauvaise habitude ! précise donc si propriété .value ou propriété Text.

Et tu vois ? dans ton cas, ici, ce serait la propriété text, pour avoir ce qui est affiché sur ta feuille !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu
Signaler Commenter la réponse de cs_Jack
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
 77
0
Merci
Salut

En complément de la bonne réponse de ucfoutu, regarde et compare les trois propriétés :
.Value
.Value2
.Text
sur des cellules formatées date, ou de grands chiffres

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Commenter la réponse de cs_Jack
Signaler Commenter la réponse de chris09300
Messages postés
140
Date d'inscription
lundi 9 juin 2008
Statut
Membre
Dernière intervention
18 avril 2012
 1
0
Merci
bonjour
je veux bien mettre .text ou autre mais je ne sais pas comment ecrire le code.
j'assaie d'avancer petit a petit etj 'apprends tout les jours
cris
Commenter la réponse de chris09300
Signaler Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 266
0
Merci
Est-ce vraiment si difficile, de comprendre ce qu'est une propriété de cellule ?
Est-ce insurmontable, que d'ouvrir ton aide VBA ? et d'y lire ce que sont ces propriétés dont te parle jack ?
Je veux bien, moi ... mais tu n'avanceras pas sans cette curiosité, au minimum ! 
For Each v In Range("a4:a" & Range("a65536").End(xlUp).Row)
        x = x + 1
        .ListItems.Add , , v.text
        .ListItems(x).ForeColor = v.Font.Color
        
        For j = 1 To 6
            .ListItems(x).ListSubItems.Add , , v.Offset(0, j).text
            .ListItems(x).ListSubItems(j).ForeColor = v.Offset(0, j).Font.Color
        
        Next j
Next v

regarde où j'ai ajouté .Text ! (dur dur ?)

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.