JONEY76
XLDnaute Occasionnel
Bonjour à tous,
Par le biais d'un userform, j'enregistre des données, celle ci se mettent bien à jour dans la feuille mais le problème que je rencontre, c'est l'ordre des date dès que je veux les classer dans l'ordre croissant ou décroissant
Je crée donc une boucle pour imposer le format date par VBA
---------------------------
Sub Rectangle1_QuandClic()
Dim vcellule As Range
For Each vcellule In Selection
vcellule = Format(vcellule, "dd/mm/yy")
Next
End Sub
-----------------------------
Cette macro fonctionne, maintenant, les dates au format date ne sont pas reconnues dans ma listview alors qu'avant c'était reconnu
Comment puis je faire dire à ma recherche de lire ces données
Est ce la méthode find qui plante ???
Par le biais d'un userform, j'enregistre des données, celle ci se mettent bien à jour dans la feuille mais le problème que je rencontre, c'est l'ordre des date dès que je veux les classer dans l'ordre croissant ou décroissant
Je crée donc une boucle pour imposer le format date par VBA
---------------------------
Sub Rectangle1_QuandClic()
Dim vcellule As Range
For Each vcellule In Selection
vcellule = Format(vcellule, "dd/mm/yy")
Next
End Sub
-----------------------------
Cette macro fonctionne, maintenant, les dates au format date ne sont pas reconnues dans ma listview alors qu'avant c'était reconnu
Comment puis je faire dire à ma recherche de lire ces données
Code:
'################################################
'BOUTON DE RECHERCHE POUR LA LISTVIEW1
'################################################
Private Sub CommandButton1_Click()
Dim i
Dim c
Dim flag
Dim txttotal1
'vider la listview
LSV.ListItems.Clear
'si texte de recherche ="" alors on sort
If TextBox1 = "" Then Exit Sub
'recherche
With Sheets("BD3")
i = 1
Do
Set c = .Range(.Cells(i, 1), .Cells(i, 11)).Find(TextBox1, LookIn:=xlValues)
If Not c Is Nothing Then
flag = True
IniLvw c.Row
End If
i = i + 1
Loop While .Cells(i, 1) <> ""
End With
'si recherche non concluante
If Not flag Then MsgBox "Rien trouvé !"
'compter le nombre de lignes trouvées
txttotal1 = LSV.ListItems.Count
flag = False
'inscrire le nombre de lignes trouvées dans le label
Label11 = txttotal1
End Sub
Sub IniLvw(a As Long)
On Error Resume Next
Dim x
Dim i
Dim j
With LSV
.ListItems.Add , , Sheets("BD3").Cells(a, 1)
x = .ListItems.Count
For i = 1 To 11
.ListItems(x).ListSubItems.Add , , Sheets("BD3").Cells(a, i + 1)
Next
.ListItems(x).ListSubItems.Add , , a
For i = 1 To .ListItems.Count
If .ListItems(i) = TextBox1 Then .ListItems(i).Bold = True
For j = 1 To .ColumnHeaders.Count - 1
If .ListItems(i).ListSubItems(j).Text = TextBox1 Then
.ListItems(i).ListSubItems(j).Bold = True
End If
Next j
Next i
End With
End Sub
Est ce la méthode find qui plante ???