Planning avec userform
y
Bonjour
Je souhaiterai faire un planning avec un userforme
je souhaiterai refaire l'onglet feuil1 en userforme
avec une liste déroulante pour les mois et une autre pour les années
en fonction des mois et année sa renseigne les intitulé en mode planning mensuel
et les zone des texte a remplir.
jespere etre compréhensible
merci pour vos réponse
cordialement
thevPassionné d'Excel
- Messages
- 4'088
- Excel
- 2021 FR 64 bits
- Inscrit
- 13/06/2016
- Emploi
- bénévole associations Goutte d'Or
Bonjour,
ci-joint un exemple de planning glissant sur un an qui pourrait vous intéresser.
y
Andre13Membre impliqué
- Messages
- 2'415
- Excel
- 2019
- Inscrit
- 13/07/2017
- Emploi
- Formateur, animateur,tech.informatique
Bonjour toutes et tous
un début
coucou Thev
@yannick26100
Note: il reste à le compléter de N7 à AH7 ^pour les textbox idem pour les labels de N6 à AH6 de ton classeur celui, de Thev je n'ai pas réussi à l'adapter
'https://forum.excel-pratique.com/viewtopic.php?f=2&t=142452
Private Sub ComboBox1_Change()
On Error Resume Next
If Me.ComboBox1.Value = "1" Then
Me.ComboBox1.Value = "Janvier (01)"
ElseIf Me.ComboBox1.Value = "2" Then
Me.ComboBox1.Value = "Février (02)"
ElseIf Me.ComboBox1.Value = "3" Then
Me.ComboBox1.Value = "Mars (03)"
ElseIf Me.ComboBox1.Value = "4" Then
Me.ComboBox1.Value = "Avril (04)"
ElseIf Me.ComboBox1.Value = "5" Then
Me.ComboBox1.Value = "Mai (05)"
ElseIf Me.ComboBox1.Value = "6" Then
Me.ComboBox1.Value = "Juin (06)"
ElseIf Me.ComboBox1.Value = "7" Then
Me.ComboBox1.Value = "Juillet (07)"
ElseIf Me.ComboBox1.Value = "8" Then
Me.ComboBox1.Value = "Août (08)"
ElseIf Me.ComboBox1.Value = "9" Then
Me.ComboBox1.Value = "Septembre (09)"
ElseIf Me.ComboBox1.Value = "10" Then
Me.ComboBox1.Value = "Octobre (10)"
ElseIf Me.ComboBox1.Value = "11" Then
Me.ComboBox1.Value = "Novembre (11)"
ElseIf Me.ComboBox1.Value = "12" Then
Me.ComboBox1.Value = "Décembre (12)"
End If
On Error GoTo 0
End Sub
Private Sub CommandButton1_Click()
'bouton fermer
Unload Me
End Sub
' ----------
' =DATE(ANNEE;MOIS;1)-1 cellule c6 feuil1
'------------
Private Sub Label36_Click()
End Sub
Private Sub UserForm_Initialize()
' pour les textbox
UserForm1.TextBox1.Value = Sheets("Feuil1").Range("C7").Value
UserForm1.TextBox2.Value = Sheets("Feuil1").Range("D7").Value
UserForm1.TextBox3.Value = Sheets("Feuil1").Range("E7").Value
UserForm1.TextBox4.Value = Sheets("Feuil1").Range("F7").Value
UserForm1.TextBox5.Value = Sheets("Feuil1").Range("G7").Value
UserForm1.TextBox6.Value = Sheets("Feuil1").Range("H7").Value
UserForm1.TextBox7.Value = Sheets("Feuil1").Range("I7").Value
UserForm1.TextBox8.Value = Sheets("Feuil1").Range("J7").Value
UserForm1.TextBox9.Value = Sheets("Feuil1").Range("K7").Value
UserForm1.TextBox10.Value = Sheets("Feuil1").Range("L7").Value
UserForm1.TextBox11.Value = Sheets("Feuil1").Range("M7").Value
'etc textbox12 N7, Textbox13 O7 etc..... jusqu'à AH7
'
'etc
'pour les labels
UserForm1.Label36.Caption = Sheets("Feuil1").Range("C6").Value
UserForm1.Label37.Caption = Sheets("Feuil1").Range("D6").Value
UserForm1.Label38.Caption = Sheets("Feuil1").Range("E6").Value
UserForm1.Label39.Caption = Sheets("Feuil1").Range("F6").Value
UserForm1.Label40.Caption = Sheets("Feuil1").Range("G6").Value
UserForm1.Label41.Caption = Sheets("Feuil1").Range("H6").Value
UserForm1.Label42.Caption = Sheets("Feuil1").Range("I6").Value
UserForm1.Label43.Caption = Sheets("Feuil1").Range("J6").Value
UserForm1.Label44.Caption = Sheets("Feuil1").Range("K6").Value
UserForm1.Label45.Caption = Sheets("Feuil1").Range("L6").Value
UserForm1.Label46.Caption = Sheets("Feuil1").Range("M6").Value
' etc Label47 N6, Label48 O6 etc. jusqu'à AH6
End Subcrdlt,
André