Discussion :

[typhoon751]

Bonjour à tous,

je récupère des données dans une listbox depuis une feuille excel (via userform recherche), le format de la date dans le fichier excel est de la forme 01-moi-10 (ex: 14-mars-2010), cependant le format de la date dans la listbox aprés récupération est de la forme jj/mm/aaaa (ex:14/03/2010), je souhaiterais modifier le format de la date dans ma listbox, mais je ne sais pas comment faire.

Je vous joins mon fichier pour que ça soit plus claire.

Merci d'avance

[rvtoulon]

Bonjour,
un exemple simple à adapter à ton fichier que je n'ai pas regardé:
- dans une plage qui contient des dates, pour l'exemple (A2:A12)
- dans un userform une listbox.
- dans initialize de l'userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim vdat As Date, newdat As String
For i = 2 To 12
vdat = Range("A" & i)
newdat = Format(vdat, "dd-mmm-yy")
Me.ListBox1.AddItem (newdat)
Next i
End Sub

[typhoon751]

Bonsoir,

merci pour ton code mais je n'arrive pas à l'adapter à mon fichier.
Dans la listbox que j'affiche,j'ai plusieurs colonnes qui ne sont pas toutes des colonnes dates et j'ai défini mon range via le gestionnaire de nom, car il faut que le fichier soit dynamique, ce n'est pas une plage fixe.

Merci de ton aide, je débute en vba

[fring]

Bonjour,

il faut modifier la méthode de remplissage de ta listbox pour pouvoir prendre en compte le texte des cellules et non la valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub UserForm_Initialize()
 
' MODIFICATION DES PREMIERES LIGNES DE CODE
  NbCol = [BASE].Columns.Count
  Me.ListBox1.ColumnCount = NbCol
  For i = 2 To [BASE].Rows.Count + 1
    Me.ListBox1.AddItem [BASE].Cells(i, 1).Text
    For j = 1 To NbCol
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, j) = [BASE].Cells(i, j + 1).Text
    Next j
  Next
 
 
'SUITE DE TON CODE INCHANGE
  i = 1
  X = 15
  For i = 1 To NbCol
    retour = Me.Controls.Add("Forms.Label.1", "Label" & i, True)
    Me("label" & i).Caption = Cells(1, i)
    Me("label" & i).Top = 40
    Me("label" & i).Left = X
    X = X + Columns(i).Width * 1.1
    temp = temp & Columns(i).Width * 1.1 & ";"
  Next
  For b = 1 To NbCol: Set Lbl(b).GrLabel = Me("Label" & b): Next b
  Me.ListBox1.ColumnWidths = temp
End Sub

[typhoon751]

Merci une nouvelle foi à toi Fring,

c'est ce qu'il me fallait!!