Dans un userform j'ai un combobox avec tous les mois de=20
l'ann=E9e. Comment faire en sorte qu'=E0 l'ouverture du=20
userform le combobox affiche le mois en cours?
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
Rai
Kyvu wrote:
Bonjour,
Dans un userform j'ai un combobox avec tous les mois de l'année. Comment faire en sorte qu'à l'ouverture du userform le combobox affiche le mois en cours?
Merci pour votre aide.
@micalement.
Kyvu On Line!
Hello,
ComboBox1.ListIndex = Month(Now()) - 1
devrait t'aider... à placer dans l'évennement 'initialize' de ta UserForm
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
Kyvu wrote:
Bonjour,
Dans un userform j'ai un combobox avec tous les mois de
l'année. Comment faire en sorte qu'à l'ouverture du
userform le combobox affiche le mois en cours?
Merci pour votre aide.
@micalement.
Kyvu On Line!
Hello,
ComboBox1.ListIndex = Month(Now()) - 1
devrait t'aider... à placer dans l'évennement 'initialize' de ta UserForm
--
Cordialement,
Rai
Remplacer point par la ponctuation appropriée pour répondre...
Dans un userform j'ai un combobox avec tous les mois de l'année. Comment faire en sorte qu'à l'ouverture du userform le combobox affiche le mois en cours?
Merci pour votre aide.
@micalement.
Kyvu On Line!
Hello,
ComboBox1.ListIndex = Month(Now()) - 1
devrait t'aider... à placer dans l'évennement 'initialize' de ta UserForm
-- Cordialement,
Rai Remplacer point par la ponctuation appropriée pour répondre...
michdenis
Bonjour Kyvu,
Adapte le nom de ton combobox selon celui de ton application
'-------------------- Private Sub UserForm_Initialize()
Dim Tblo(0 To 11) Dim B As Integer, A As String
For B = 0 To 11 Tblo(B) = Application.Proper _ (Format(DateSerial(2004, B + 1, 1), "MMMM")) Next
A = Format(Date, "MMMM")
With Me.ComboBox1 .List = Application.Transpose(Tblo) .ListIndex = Application.Match(A, Tblo, 0) - 1 End With
End Sub '--------------------------
Salutations!
"Kyvu" a écrit dans le message de news:1845101c44a25$19796cd0$ Bonjour,
Dans un userform j'ai un combobox avec tous les mois de l'année. Comment faire en sorte qu'à l'ouverture du userform le combobox affiche le mois en cours?
Merci pour votre aide.
@micalement.
Kyvu On Line!
Bonjour Kyvu,
Adapte le nom de ton combobox selon celui de ton application
'--------------------
Private Sub UserForm_Initialize()
Dim Tblo(0 To 11)
Dim B As Integer, A As String
For B = 0 To 11
Tblo(B) = Application.Proper _
(Format(DateSerial(2004, B + 1, 1), "MMMM"))
Next
A = Format(Date, "MMMM")
With Me.ComboBox1
.List = Application.Transpose(Tblo)
.ListIndex = Application.Match(A, Tblo, 0) - 1
End With
End Sub
'--------------------------
Salutations!
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de news:1845101c44a25$19796cd0$a001280a@phx.gbl...
Bonjour,
Dans un userform j'ai un combobox avec tous les mois de
l'année. Comment faire en sorte qu'à l'ouverture du
userform le combobox affiche le mois en cours?
Adapte le nom de ton combobox selon celui de ton application
'-------------------- Private Sub UserForm_Initialize()
Dim Tblo(0 To 11) Dim B As Integer, A As String
For B = 0 To 11 Tblo(B) = Application.Proper _ (Format(DateSerial(2004, B + 1, 1), "MMMM")) Next
A = Format(Date, "MMMM")
With Me.ComboBox1 .List = Application.Transpose(Tblo) .ListIndex = Application.Match(A, Tblo, 0) - 1 End With
End Sub '--------------------------
Salutations!
"Kyvu" a écrit dans le message de news:1845101c44a25$19796cd0$ Bonjour,
Dans un userform j'ai un combobox avec tous les mois de l'année. Comment faire en sorte qu'à l'ouverture du userform le combobox affiche le mois en cours?
