Je remplis un combobox avec des dates qui se trouvent en A:A et je ne
voudrais qu'il n'affiche que la plus petite valeur de chaque mois pour
éviter d'avoir une liste trop longue.Est ce possible?
Merci pour votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Michel,
Si ton combobox est issu de la barre d'outils "Contrôle" et si il est situé dans la "Feuil1"
Adapte le nom de la feuille dans la procédure et le nom du combobox. '------------------------------------------ Sub RemplirCombobox()
Dim M As Integer, A As Long, DerLig As Long With Worksheets("Feuil1") .ComboBox1.Clear DerLig = .Range("A65356").End(xlUp).Row For M = 1 To 12 A = Evaluate("MAX(if(month(Feuil1!A2:A" & DerLig & ")=" _ & M & ",Feuil1!A2:A" & DerLig & "))") If A <> 0 Then .ComboBox1.AddItem CDate(A) End If Next End With End Sub '------------------------------------------
Salutations!
"Michel" a écrit dans le message de news:402f31f2$0$775$ Bon dimanche à tous
Je remplis un combobox avec des dates qui se trouvent en A:A et je ne voudrais qu'il n'affiche que la plus petite valeur de chaque mois pour éviter d'avoir une liste trop longue.Est ce possible? Merci pour votre aide.
Bonjour Michel,
Si ton combobox est issu de la barre d'outils "Contrôle" et si il est situé dans la "Feuil1"
Adapte le nom de la feuille dans la procédure et le nom du combobox.
'------------------------------------------
Sub RemplirCombobox()
Dim M As Integer, A As Long, DerLig As Long
With Worksheets("Feuil1")
.ComboBox1.Clear
DerLig = .Range("A65356").End(xlUp).Row
For M = 1 To 12
A = Evaluate("MAX(if(month(Feuil1!A2:A" & DerLig & ")=" _
& M & ",Feuil1!A2:A" & DerLig & "))")
If A <> 0 Then
.ComboBox1.AddItem CDate(A)
End If
Next
End With
End Sub
'------------------------------------------
Salutations!
"Michel" <ee@calixo.net> a écrit dans le message de news:402f31f2$0$775$ba620e4c@news.skynet.be...
Bon dimanche à tous
Je remplis un combobox avec des dates qui se trouvent en A:A et je ne
voudrais qu'il n'affiche que la plus petite valeur de chaque mois pour
éviter d'avoir une liste trop longue.Est ce possible?
Merci pour votre aide.
Si ton combobox est issu de la barre d'outils "Contrôle" et si il est situé dans la "Feuil1"
Adapte le nom de la feuille dans la procédure et le nom du combobox. '------------------------------------------ Sub RemplirCombobox()
Dim M As Integer, A As Long, DerLig As Long With Worksheets("Feuil1") .ComboBox1.Clear DerLig = .Range("A65356").End(xlUp).Row For M = 1 To 12 A = Evaluate("MAX(if(month(Feuil1!A2:A" & DerLig & ")=" _ & M & ",Feuil1!A2:A" & DerLig & "))") If A <> 0 Then .ComboBox1.AddItem CDate(A) End If Next End With End Sub '------------------------------------------
Salutations!
"Michel" a écrit dans le message de news:402f31f2$0$775$ Bon dimanche à tous
Je remplis un combobox avec des dates qui se trouvent en A:A et je ne voudrais qu'il n'affiche que la plus petite valeur de chaque mois pour éviter d'avoir une liste trop longue.Est ce possible? Merci pour votre aide.
