Sous Excel 2002 ou 2003, dans un formulaire, il y a un combobox qui
doit s=E9lectionn=E9 une date.
Je souhaiterai que
1) par d=E9faut, cette date soit la date de jour ("Date") ou celle qui
vient juste apr=E8s.
2) ensuite en fonction du choix de la Combobox, s'affiche dans la
ListBox les valeurs concern=E9es par cette date s=E9lectionn=E9.
Mes sources sont sur une feuille nomm=E9e Formation et les valeurs
recherch=E9es pour alimenter la ListBox sont de A7:G400
Pour l'instant j'en sui arriv=E9 l=E0 :
Private Sub UserForm_Initialize()
Dim j As Integer
For j =3D 1 To Range("Formation!b65536").End(xlUp).Row
CCB_Date_RIF =3D Range("B7" & j)
If CCB_Date_RIF.ListIndex =3D -1 Then CCB_Date_RIF.AddItem
Range("B7" & j)
Next j
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
MichD
Bonjour,
Voici un bout de code pour le combobox avec les dates de la plage B7:Bx de la feuille "Feuil1"
Cet exemple ne traite que du combobox...
'---------------------------------------------- Private Sub UserForm_Initialize()
Dim Rg As Range, Tblo As Variant, D As Variant, F As String With Worksheets("Feuil1") 'Nom onglet feuille à adaapter With .Range("B7:B" & .Range("B65536").End(xlUp).Row) 'création d'une plage nommée, choisis le nom que tu veux. .Name = "MichDPlg" 'Extrait la date immédiatement supérieure à la date 'd'aujourdhui présente dans la liste. D = [MIN(IF(TODAY()-MichDPlg<=0,MichDPlg))] 'Attribue la valeur de la plage dans un tableau (array) Tblo = .Value End With End With 'chargement du combobox With Me.ComboBox1 'la propriété List pour remplir le combobox .List = Tblo 'si une date a été trouvée, If D > 0 Then 'le combobox affichera cette date trouvée. .Value = Format(D, "DD/MM/YYYY") End If End With End Sub '----------------------------------------------
MichD ------------------------------------------ "JeanYvesGascon" a écrit dans le message de groupe de discussion :
Bonjour,
Sous Excel 2002 ou 2003, dans un formulaire, il y a un combobox qui doit sélectionné une date. Je souhaiterai que 1) par défaut, cette date soit la date de jour ("Date") ou celle qui vient juste après. 2) ensuite en fonction du choix de la Combobox, s'affiche dans la ListBox les valeurs concernées par cette date sélectionné.
Mes sources sont sur une feuille nommée Formation et les valeurs recherchées pour alimenter la ListBox sont de A7:G400
Pour l'instant j'en sui arrivé là :
Private Sub UserForm_Initialize() Dim j As Integer
For j = 1 To Range("Formation!b65536").End(xlUp).Row CCB_Date_RIF = Range("B7" & j) If CCB_Date_RIF.ListIndex = -1 Then CCB_Date_RIF.AddItem Range("B7" & j) Next j
Même si mon niveau s'améliore un peu plus chaque jour, là je coince un peu. J'espère avoir été assez explicite dans ma demande.
Merci de vos éclairages
Cordialement
JeanYves
Bonjour,
Voici un bout de code pour le combobox avec les dates de la plage B7:Bx de la feuille "Feuil1"
Cet exemple ne traite que du combobox...
'----------------------------------------------
Private Sub UserForm_Initialize()
Dim Rg As Range, Tblo As Variant, D As Variant, F As String
With Worksheets("Feuil1") 'Nom onglet feuille à adaapter
With .Range("B7:B" & .Range("B65536").End(xlUp).Row)
'création d'une plage nommée, choisis le nom que tu veux.
.Name = "MichDPlg"
'Extrait la date immédiatement supérieure à la date
'd'aujourdhui présente dans la liste.
D = [MIN(IF(TODAY()-MichDPlg<=0,MichDPlg))]
'Attribue la valeur de la plage dans un tableau (array)
Tblo = .Value
End With
End With
'chargement du combobox
With Me.ComboBox1
'la propriété List pour remplir le combobox
.List = Tblo
'si une date a été trouvée,
If D > 0 Then
'le combobox affichera cette date trouvée.
.Value = Format(D, "DD/MM/YYYY")
End If
End With
End Sub
'----------------------------------------------
MichD
------------------------------------------
"JeanYvesGascon" a écrit dans le message de groupe de discussion :
60c4a04d-4a7f-4aa7-918f-0a88e6e7a657@p16g2000yqd.googlegroups.com...
Bonjour,
Sous Excel 2002 ou 2003, dans un formulaire, il y a un combobox qui
doit sélectionné une date.
Je souhaiterai que
1) par défaut, cette date soit la date de jour ("Date") ou celle qui
vient juste après.
2) ensuite en fonction du choix de la Combobox, s'affiche dans la
ListBox les valeurs concernées par cette date sélectionné.
Mes sources sont sur une feuille nommée Formation et les valeurs
recherchées pour alimenter la ListBox sont de A7:G400
Pour l'instant j'en sui arrivé là :
Private Sub UserForm_Initialize()
Dim j As Integer
For j = 1 To Range("Formation!b65536").End(xlUp).Row
CCB_Date_RIF = Range("B7" & j)
If CCB_Date_RIF.ListIndex = -1 Then CCB_Date_RIF.AddItem
Range("B7" & j)
Next j
Voici un bout de code pour le combobox avec les dates de la plage B7:Bx de la feuille "Feuil1"
Cet exemple ne traite que du combobox...
'---------------------------------------------- Private Sub UserForm_Initialize()
Dim Rg As Range, Tblo As Variant, D As Variant, F As String With Worksheets("Feuil1") 'Nom onglet feuille à adaapter With .Range("B7:B" & .Range("B65536").End(xlUp).Row) 'création d'une plage nommée, choisis le nom que tu veux. .Name = "MichDPlg" 'Extrait la date immédiatement supérieure à la date 'd'aujourdhui présente dans la liste. D = [MIN(IF(TODAY()-MichDPlg<=0,MichDPlg))] 'Attribue la valeur de la plage dans un tableau (array) Tblo = .Value End With End With 'chargement du combobox With Me.ComboBox1 'la propriété List pour remplir le combobox .List = Tblo 'si une date a été trouvée, If D > 0 Then 'le combobox affichera cette date trouvée. .Value = Format(D, "DD/MM/YYYY") End If End With End Sub '----------------------------------------------
MichD ------------------------------------------ "JeanYvesGascon" a écrit dans le message de groupe de discussion :
Bonjour,
Sous Excel 2002 ou 2003, dans un formulaire, il y a un combobox qui doit sélectionné une date. Je souhaiterai que 1) par défaut, cette date soit la date de jour ("Date") ou celle qui vient juste après. 2) ensuite en fonction du choix de la Combobox, s'affiche dans la ListBox les valeurs concernées par cette date sélectionné.
Mes sources sont sur une feuille nommée Formation et les valeurs recherchées pour alimenter la ListBox sont de A7:G400
Pour l'instant j'en sui arrivé là :
Private Sub UserForm_Initialize() Dim j As Integer
For j = 1 To Range("Formation!b65536").End(xlUp).Row CCB_Date_RIF = Range("B7" & j) If CCB_Date_RIF.ListIndex = -1 Then CCB_Date_RIF.AddItem Range("B7" & j) Next j
Même si mon niveau s'améliore un peu plus chaque jour, là je coince un peu. J'espère avoir été assez explicite dans ma demande.
Merci de vos éclairages
Cordialement
JeanYves
JeanYvesGascon
On 31 oct, 13:53, "MichD" wrote:
Bonjour,
Voici un bout de code pour le combobox avec les dates de la plage B7:Bx d e la feuille "Feuil1"
Cet exemple ne traite que du combobox...
'---------------------------------------------- Private Sub UserForm_Initialize()
Dim Rg As Range, Tblo As Variant, D As Variant, F As String With Worksheets("Feuil1") 'Nom onglet feuille à adaapter With .Range("B7:B" & .Range("B65536").End(xlUp).Row) 'création d'une plage nommée, choisis le nom que tu v eux. .Name = "MichDPlg" 'Extrait la date immédiatement supérieure à la date 'd'aujourdhui présente dans la liste. D = [MIN(IF(TODAY()-MichDPlg<=0,MichDPlg))] 'Attribue la valeur de la plage dans un tableau (array) Tblo = .Value End With End With 'chargement du combobox With Me.ComboBox1 'la propriété List pour remplir le combobox .List = Tblo 'si une date a été trouvée, If D > 0 Then 'le combobox affichera cette date trouvée. .Value = Format(D, "DD/MM/YYYY") End If End With End Sub '----------------------------------------------
MichD ------------------------------------------ "JeanYvesGascon" a écrit dans le message de groupe de discussion :
Bonjour,
Sous Excel 2002 ou 2003, dans un formulaire, il y a un combobox qui doit sélectionné une date. Je souhaiterai que 1) par défaut, cette date soit la date de jour ("Date") ou celle qui vient juste après. 2) ensuite en fonction du choix de la Combobox, s'affiche dans la ListBox les valeurs concernées par cette date sélectionné.
Mes sources sont sur une feuille nommée Formation et les valeurs recherchées pour alimenter la ListBox sont de A7:G400
Pour l'instant j'en sui arrivé là :
Private Sub UserForm_Initialize() Dim j As Integer
For j = 1 To Range("Formation!b65536").End(xlUp).Row CCB_Date_RIF = Range("B7" & j) If CCB_Date_RIF.ListIndex = -1 Then CCB_Date_RIF.AddIte m Range("B7" & j) Next j
Même si mon niveau s'améliore un peu plus chaque jour, là je coince un peu. J'espère avoir été assez explicite dans ma demande.
Merci de vos éclairages
Cordialement
JeanYves
Merci pour tout
JeanYves
On 31 oct, 13:53, "MichD" <michde...@hotmail.com> wrote:
Bonjour,
Voici un bout de code pour le combobox avec les dates de la plage B7:Bx d e la feuille "Feuil1"
Cet exemple ne traite que du combobox...
'----------------------------------------------
Private Sub UserForm_Initialize()
Dim Rg As Range, Tblo As Variant, D As Variant, F As String
With Worksheets("Feuil1") 'Nom onglet feuille à adaapter
With .Range("B7:B" & .Range("B65536").End(xlUp).Row)
'création d'une plage nommée, choisis le nom que tu v eux.
.Name = "MichDPlg"
'Extrait la date immédiatement supérieure à la date
'd'aujourdhui présente dans la liste.
D = [MIN(IF(TODAY()-MichDPlg<=0,MichDPlg))]
'Attribue la valeur de la plage dans un tableau (array)
Tblo = .Value
End With
End With
'chargement du combobox
With Me.ComboBox1
'la propriété List pour remplir le combobox
.List = Tblo
'si une date a été trouvée,
If D > 0 Then
'le combobox affichera cette date trouvée.
.Value = Format(D, "DD/MM/YYYY")
End If
End With
End Sub
'----------------------------------------------
MichD
------------------------------------------
"JeanYvesGascon" a écrit dans le message de groupe de discussion :
60c4a04d-4a7f-4aa7-918f-0a88e6e7a...@p16g2000yqd.googlegroups.com...
Bonjour,
Sous Excel 2002 ou 2003, dans un formulaire, il y a un combobox qui
doit sélectionné une date.
Je souhaiterai que
1) par défaut, cette date soit la date de jour ("Date") ou celle qui
vient juste après.
2) ensuite en fonction du choix de la Combobox, s'affiche dans la
ListBox les valeurs concernées par cette date sélectionné.
Mes sources sont sur une feuille nommée Formation et les valeurs
recherchées pour alimenter la ListBox sont de A7:G400
Pour l'instant j'en sui arrivé là :
Private Sub UserForm_Initialize()
Dim j As Integer
For j = 1 To Range("Formation!b65536").End(xlUp).Row
CCB_Date_RIF = Range("B7" & j)
If CCB_Date_RIF.ListIndex = -1 Then CCB_Date_RIF.AddIte m
Range("B7" & j)
Next j
Voici un bout de code pour le combobox avec les dates de la plage B7:Bx d e la feuille "Feuil1"
Cet exemple ne traite que du combobox...
'---------------------------------------------- Private Sub UserForm_Initialize()
Dim Rg As Range, Tblo As Variant, D As Variant, F As String With Worksheets("Feuil1") 'Nom onglet feuille à adaapter With .Range("B7:B" & .Range("B65536").End(xlUp).Row) 'création d'une plage nommée, choisis le nom que tu v eux. .Name = "MichDPlg" 'Extrait la date immédiatement supérieure à la date 'd'aujourdhui présente dans la liste. D = [MIN(IF(TODAY()-MichDPlg<=0,MichDPlg))] 'Attribue la valeur de la plage dans un tableau (array) Tblo = .Value End With End With 'chargement du combobox With Me.ComboBox1 'la propriété List pour remplir le combobox .List = Tblo 'si une date a été trouvée, If D > 0 Then 'le combobox affichera cette date trouvée. .Value = Format(D, "DD/MM/YYYY") End If End With End Sub '----------------------------------------------
MichD ------------------------------------------ "JeanYvesGascon" a écrit dans le message de groupe de discussion :
Bonjour,
Sous Excel 2002 ou 2003, dans un formulaire, il y a un combobox qui doit sélectionné une date. Je souhaiterai que 1) par défaut, cette date soit la date de jour ("Date") ou celle qui vient juste après. 2) ensuite en fonction du choix de la Combobox, s'affiche dans la ListBox les valeurs concernées par cette date sélectionné.
Mes sources sont sur une feuille nommée Formation et les valeurs recherchées pour alimenter la ListBox sont de A7:G400
Pour l'instant j'en sui arrivé là :
Private Sub UserForm_Initialize() Dim j As Integer
For j = 1 To Range("Formation!b65536").End(xlUp).Row CCB_Date_RIF = Range("B7" & j) If CCB_Date_RIF.ListIndex = -1 Then CCB_Date_RIF.AddIte m Range("B7" & j) Next j
