OVH Cloud OVH Cloud

Boucle date pour Combobox

4 réponses
Avatar
Michel.Girard
Bonsoir
j'essaie d'intégrer une boucle dans un combo, de 2000 à 2010
avec au lancement la date de l'année soit 2005
Merci
Michel

4 réponses

Avatar
Rai
Bonsoir,

Tu as 2 choix :
- utiliser la propriété RowSource de ton combobox pour pointer vers
une plage d'une des feuilles de ton classeur, comportant les années 2000
à 2010

ou

- Créer les items de ta combobox à l'initialisation de ta UF

Ceci pourrait se présenter comme suit :
Private Sub UserForm_Initialize()
For d = 2000 To 2010
ComboBox1.AddItem d
Next d
ComboBox1.ListIndex = 5
'Place l'année 2005
End Sub


Bonne soirée

Rai


Bonsoir
j'essaie d'intégrer une boucle dans un combo, de 2000 à 2010
avec au lancement la date de l'année soit 2005
Merci
Michel






Avatar
Michel.Girard
Bonsoir Raimond
En fait je souhaite (s'il est possible) avoir la date automatiquement
Merci
Michel

"Rai" a écrit dans le message de news:

Bonsoir,

Tu as 2 choix :
- utiliser la propriété RowSource de ton combobox pour pointer vers une
plage d'une des feuilles de ton classeur, comportant les années 2000 à
2010

ou

- Créer les items de ta combobox à l'initialisation de ta UF

Ceci pourrait se présenter comme suit :
Private Sub UserForm_Initialize()
For d = 2000 To 2010
ComboBox1.AddItem d
Next d
ComboBox1.ListIndex = 5
'Place l'année 2005
End Sub


Bonne soirée

Rai


Bonsoir
j'essaie d'intégrer une boucle dans un combo, de 2000 à 2010
avec au lancement la date de l'année soit 2005
Merci
Michel







Avatar
Rai
re-,

Private Sub UserForm_Initialize()
For i = 2000 To 2010
ComboBox1.AddItem i
Next i
ComboBox1 = Year(Date)
End Sub


Te place automatiquement sur l'année en cours

Si ça n'est pas ce que tu veux, peux-tu être un peu plus explicite dans
ta question ?

Rai

Bonsoir Raimond
En fait je souhaite (s'il est possible) avoir la date automatiquement
Merci
Michel

"Rai" a écrit dans le message de news:


Bonsoir,

Tu as 2 choix :
- utiliser la propriété RowSource de ton combobox pour pointer vers une
plage d'une des feuilles de ton classeur, comportant les années 2000 à
2010

ou

- Créer les items de ta combobox à l'initialisation de ta UF

Ceci pourrait se présenter comme suit :
Private Sub UserForm_Initialize()
For d = 2000 To 2010
ComboBox1.AddItem d
Next d
ComboBox1.ListIndex = 5
'Place l'année 2005
End Sub


Bonne soirée

Rai



Bonsoir
j'essaie d'intégrer une boucle dans un combo, de 2000 à 2010
avec au lancement la date de l'année soit 2005
Merci
Michel











Avatar
Michel.Girard
Merci beaucoup Raimond
Michel


"Rai" a écrit dans le message de news:

re-,

Private Sub UserForm_Initialize()
For i = 2000 To 2010
ComboBox1.AddItem i
Next i
ComboBox1 = Year(Date)
End Sub


Te place automatiquement sur l'année en cours

Si ça n'est pas ce que tu veux, peux-tu être un peu plus explicite dans ta
question ?

Rai

Bonsoir Raimond
En fait je souhaite (s'il est possible) avoir la date automatiquement
Merci
Michel

"Rai" a écrit dans le message de news:


Bonsoir,

Tu as 2 choix :
- utiliser la propriété RowSource de ton combobox pour pointer vers une
plage d'une des feuilles de ton classeur, comportant les années 2000 à
2010

ou

- Créer les items de ta combobox à l'initialisation de ta UF

Ceci pourrait se présenter comme suit :
Private Sub UserForm_Initialize()
For d = 2000 To 2010
ComboBox1.AddItem d
Next d
ComboBox1.ListIndex = 5
'Place l'année 2005
End Sub


Bonne soirée

Rai



Bonsoir
j'essaie d'intégrer une boucle dans un combo, de 2000 à 2010
avec au lancement la date de l'année soit 2005
Merci
Michel