listbox mele les dates

Re : listbox mele les dates

bonsoir Denis
pas de problème même excel,tu peux faire comme suit

For i = 1 To 9
Select Case i
Case 2
ListBoxRech.List(X, i) = .Cells(c.Row, i).Text 'Format(.Cells(c.Row, i), "dd mmmm yyyy")
'si tu as tjrs un problème
'DateSerial(Year(.Cells(c.Row, i).Value), Month(.Cells(c.Row, i).Value), Day(.Cells(c.Row, i).Value))
Case 4
ListBoxRech.List(X, i) = .Cells(c.Row, i).Text 'Format(.Cells(c.Row, i), "hh:mm")
Case Else
ListBoxRech.List(X, i) = .Cells(c.Row, i)
End Select

Next
' ListBoxRech.List(X, 2) = Format(CDate(ListBoxRech.List(X, 2)), "dd mmmm yyyy")
' ListBoxRech.List(X, 4) = Format(CDate(ListBoxRech.List(X, 4)), "hh:mm")
à bientôt

Re : listbox mele les dates

Salut Bebere
Je viens de prendre connaissance de ton code , pour le moment j'ai une erreur avec la boucle With il ne reconnait pas la fin de la boucle
je t'envoie quand meme ton code que je crois avoir placer au bon endroit dans mon code , alors je continue ma recherche a savoir ou je plante je te revient merci a toi Bebere

Private Sub Rechercher(Quoi$, Ou&)
Dim c As Range, X&, i As Byte
Dim compteur As Integer
If Quoi = "" Then Quoi = "*"
ListBoxRech.Clear
With Sheets("Entree")
compteur = 0
For Each c In .Range(.Cells(3, Ou), .Cells(65000, Ou).End(xlUp))
If c Like Quoi Then
ListBoxRech.AddItem
X = ListBoxRech.ListCount - 1

For i = 1 To 9
Select Case i
Case 2
ListBoxRech.List(X, i) = .Cells(c.Row, i).Text 'Format(.Cells(c.Row, i), "dd mmmm yyyy")
'si tu as tjrs un problème
'DateSerial(Year(.Cells(c.Row, i).Value), Month(.Cells(c.Row, i).Value), Day(.Cells(c.Row, i).Value))
Case 4
ListBoxRech.List(X, i) = .Cells(c.Row, i).Text 'Format(.Cells(c.Row, i), "hh:mm")
Case Else
ListBoxRech.List(X, i) = .Cells(c.Row, i)
End Select

Next
' ListBoxRech.List(X, 2) = Format(CDate(ListBoxRech.List(X, 2)), "dd mmmm yyyy")
' ListBoxRech.List(X, 4) = Format(CDate(ListBoxRech.List(X, 4)), "hh:mm")

End With
End Sub


bonne journee a toi et a tous les acros de ce site
dennnisss

Re : listbox mele les dates

bonjour Denis
If c Like Quoi Then
n'a pas de end if
à placer avant end with

Re : listbox mele les dates

Salut Bebere et les autres intervenants

selon le conseil de bebere qui m'a conseiller de mettre un end if juste avant le end with
n'a pas regler mon erreur de Erreur de compilation , End with sans with
alors je tourne encore en rond sur ce dilem j'ai beau regarder je me mele dans les boucles

bonne soiree a tous et bonne nuit

Re : listbox mele les dates

End If
Next c
End With
End sub

Re : listbox mele les dates

salut habitude

oui le fait de rajouter next c pour completer la boucle a resolu mon dilem
alors merci a toi et a bebere pour ce code il va a merveille et me donne les bon resultats sur la date

alors bonne soiree a toi habitude
dennnisss