Discussion :

[apt]

Bonjour à tous,

Afin d'utiliser une liste déroulante comme l'un des criteres d'un filtre élaboré, je dois la renseigner avec des dates seulement depuis une colonne qui contient des dates sous forme de jj/mm/yyyy hh:mm

10/05/2012 15:25
10/05/2012 15:25
10/05/2012 16:18
10/05/2012 16:18
10/05/2012 21:33
10/05/2012 21:33
15/05/2012 00:05
15/05/2012 09:48
15/05/2012 14:28
16/05/2012 11:24
16/05/2012 11:24
16/05/2012 11:24
16/05/2012 11:24
16/05/2012 11:24
16/05/2012 11:24
16/05/2012 11:24

Alors comment avoir une liste de validation de données avec des dates seulement (jj/mm/aaaa) sans les heures et minutes ?

Merci.

[Bear the french]

Bonsoir apt,

Pour convertir, en admettant que tes dates sont en colonne A :

Code :

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

1
2
3
4
5
Sub convertiondate()
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Cells(i, 1).NumberFormat = "dd/mm/yyyy"
    Next
End Sub

C'est ce que tu cherches à obtenir ?

Bertrand

[apt]

Bonjour Bear the french,

C'est ce que tu cherches à obtenir ?

Non j'aimerais alimenter une liste déroulante sur la feuille.

[Bear the french]

Bonjour,

Si tu ne veux pas passer par VBA (menu données, validation des données, liste...), je pense que le format de ta colonne est répercuté automatiquement dans ta liste de validation. Hors, tu voudrais peut-être garder le format avec les heures sur ta feuille Excel mais ne pas l'avoir dans ta liste de validation. Sans vba, modifier le format d'une plage de cellule et cela en une unique formule --> je ne sais pas faire et je ne sais pas si celà est faisable

Peut-être que créer une colonne "à masquer" pour y loger tes dates au bon format afin que ta liste pointe dessus...

Avec VBA, ta liste de validation peut devenir une ComboBox. Dans ce cas, ta liste présente dans ComboBox peut avoir un format différent de celui de ta feuille Excel.

Je t'ai fait un petit code :

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
Sub convertiondate_et_combobox()
Dim i As Integer
 
ReDim tabl((Range("A" & Rows.Count).End(xlUp).Row) - 1) As Date
 
    For i = 0 To Range("A" & Rows.Count).End(xlUp).Row - 1
        tabl(i) = Sheets("feuil1").Range("A" & i + 1).Value
        ' je change le format de la variable en enlevant les heures/minutes
        tabl(i) = Format(tabl(i), "dd/mm/yyyy")
    Next
 
    UserForm1.ComboBox1.List() = tabl
    UserForm1.Show
 
End Sub

Bertrand

[apt]

Bonsoir Bear the french,

je ne sais pas faire et je ne sais pas si celà est faisable

C'est faisable avec cette formule matricielle :

Code :

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

=SI(LIGNES($8:9)<=NB(1/FREQUENCE(EQUIV(ENT(Col_Arret);ENT(Col_Arret);0);LIGNE(INDIRECT("1:"&LIGNES(Col_Arret)))));MIN(SI(NB.SI(H$7:H8;ENT(Col_Arret))=0;ENT(Col_Arret)));"")

Col_Arret : colonne des dates et heures

Colonne H : colonne de la liste des dates sans doublons, elle commence à la ligne 8

Mais est-ce pratique d'appliquer cette formule pour tous les jours de l'année, avec doublons, tout au long de centaines de ligne en bas ?

[apt]

Bonjour,

J'ai voulu combiné ton code de la ComboBox avec un code trouvé qui constitue une liste de validation dans la feuille en VBA :

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
Sub test()
    Dim i As Integer
    ReDim tabl((Range("A" & Rows.Count).End(xlUp).Row) - 1) As Date
 
    For i = 0 To Range("A" & Rows.Count).End(xlUp).Row - 1
        tabl(i) = Sheets("feuil1").Range("A" & i + 1).Value
        ' je change le format de la variable en enlevant les heures/minutes
        tabl(i) = Format(tabl(i), "dd/mm/yyyy")
    Next
    '-- RefersTo ??? On a un tableau tabl et non pas une plage
    ActiveWorkbook.Names.Add Name:="MaListe", RefersTo:="=Feuil1!$B$3:$B$96"
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="=MaListe"
        .InCellDropdown = True
        .ShowError = True
    End With
End Sub

Mais reste le problème du nommage de la plage "MaListe" qui se réfère a une plage, or on a un tableau.