Eviter l'affichage de même date dans une listbox
Résolu
ecthug
Messages postés
42
Date d'inscription
lundi 20 décembre 2004
Statut
Membre
Dernière intervention
12 novembre 2008
-
16 janv. 2005 à 14:53
ecthug Messages postés 42 Date d'inscription lundi 20 décembre 2004 Statut Membre Dernière intervention 12 novembre 2008 - 16 janv. 2005 à 23:18
ecthug Messages postés 42 Date d'inscription lundi 20 décembre 2004 Statut Membre Dernière intervention 12 novembre 2008 - 16 janv. 2005 à 23:18
A voir également:
- Eviter l'affichage de même date dans une listbox
- Calculer une date de naissance ✓ - Forum Visual Basic 6
- Vb.net format date - Forum Visual Basic
- Date dans une lettre ✓ - Forum Visual Basic 6
- Date de c - Forum C
- Comparaison date sql - Forum SQL
2 réponses
michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
31
16 janv. 2005 à 15:45
16 janv. 2005 à 15:45
bonjour
tu trouveras ci joint 2 exemples différents en fonction de ta Listbox ( si elle est dans la feuille ou dans un UserForm )
'***exemple pour ListBox dans feuille **************
Sub listboxSansDoublons()
Dim Cell As Range, Valeur As Range
Dim Unique As New Collection
Dim i As Integer
i = Range("A65536").End(xlUp).Row 'derniere ligne non vide dans colonne A
On Error Resume Next
For Each Cell In Range("A2:A" & i) 'boucle sur les données
Unique.Add Cell, CStr(Cell) 'recuperation données sans doublons
Next Cell
On Error GoTo 0
For Each Valeur In Unique
'filtre sur les dates superieures ou egales à aujourd'hui
If Valeur >= Date Then ActiveSheet.ListBox1.AddItem Valeur
Next Valeur
End Sub
'*******exemple pour ListBox dans userForm*************
Private Sub UserForm_Initialize()
Dim Cell As Range, Valeur As Range
Dim Unique As New Collection
Dim i As Integer
i = Range("A65536").End(xlUp).Row 'derniere ligne non vide dans colonne A
On Error Resume Next
For Each Cell In Range("A2:A" & i) 'boucle sur les données
Unique.Add Cell, CStr(Cell) 'recuperation données sans doublons
Next Cell
On Error GoTo 0
For Each Valeur In Unique
'filtre sur les dates superieures ou egales à aujourd'hui
If Valeur >= Date Then ListBox1.AddItem Valeur
Next Valeur
End Sub
bon apres midi
michel
tu trouveras ci joint 2 exemples différents en fonction de ta Listbox ( si elle est dans la feuille ou dans un UserForm )
'***exemple pour ListBox dans feuille **************
Sub listboxSansDoublons()
Dim Cell As Range, Valeur As Range
Dim Unique As New Collection
Dim i As Integer
i = Range("A65536").End(xlUp).Row 'derniere ligne non vide dans colonne A
On Error Resume Next
For Each Cell In Range("A2:A" & i) 'boucle sur les données
Unique.Add Cell, CStr(Cell) 'recuperation données sans doublons
Next Cell
On Error GoTo 0
For Each Valeur In Unique
'filtre sur les dates superieures ou egales à aujourd'hui
If Valeur >= Date Then ActiveSheet.ListBox1.AddItem Valeur
Next Valeur
End Sub
'*******exemple pour ListBox dans userForm*************
Private Sub UserForm_Initialize()
Dim Cell As Range, Valeur As Range
Dim Unique As New Collection
Dim i As Integer
i = Range("A65536").End(xlUp).Row 'derniere ligne non vide dans colonne A
On Error Resume Next
For Each Cell In Range("A2:A" & i) 'boucle sur les données
Unique.Add Cell, CStr(Cell) 'recuperation données sans doublons
Next Cell
On Error GoTo 0
For Each Valeur In Unique
'filtre sur les dates superieures ou egales à aujourd'hui
If Valeur >= Date Then ListBox1.AddItem Valeur
Next Valeur
End Sub
bon apres midi
michel
ecthug
Messages postés
42
Date d'inscription
lundi 20 décembre 2004
Statut
Membre
Dernière intervention
12 novembre 2008
16 janv. 2005 à 23:18
16 janv. 2005 à 23:18
Merci ca marche très bien
merci encore
merci encore
