shadockgreg
Messages postés18Date d'inscriptionmardi 18 juillet 2006StatutMembreDernière intervention 5 septembre 2006
-
28 juil. 2006 à 17:28
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
28 juil. 2006 à 18:07
Bonjour, je viens de creer un formulaire avec :
2 combobox et 1 textbox.
Une combobox pour l'annee, une combobox pour le mois.
Le textbox doit retourner le premier jour du mois/ annee selectionnee.
Mon probleme c ke ma date ne saffiche que quand je ferme mon textbox.
Dc ca ne marche pas ... lol
Si vous avez des idees...
Greg
' Code marchant avec 2 combobox et 1 textbox
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim a As Integer
Dim b As IntegerComboBox1.RowSource = "G2:G7"
ComboBox1.ControlSource = "G15"
a = Range("G15").Value
ComboBox2.RowSource = "J2:J13"
ComboBox2.ControlSource = "J15"
b = Range("K15").Value
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 28 juil. 2006 à 18:07
Tiens, essaie ça :
<small>
Coloration syntaxique automatique </small>
Dim a As Long
Dim b As Long
Private Sub ComboBox2_Change()
Dim MonMois As String
a = ComboBox1.Text
MonMois = ComboBox2.Text
Select Case MonMois
Case "Janvier": b = 1
Case "Février": b = 2
Case "Mars": b = 3
Case "Avril": b = 4
Case "Mai": b = 5
Case "Juin": b = 6
Case "Juillet": b = 7
Case "Août": b = 8
Case "Septembre": b = 9
Case "Octobre": b = 10
Case "Novembre": b = 11
Case "Décembre": b = 12
End Select