Planning avec userform

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

9planning.xlsm (20.66 Ko)

Bonjour,

ci-joint un exemple de planning glissant sur un an qui pourrait vous intéresser.

Bonjour,

ci-joint un exemple de planning glissant sur un an qui pourrait vous intéresser.

merci pour ta réponse.

j'aimerai pouvoir faire la meme chose dans un userform, c'est possible ?

dans mon fichier j'ai essayer de me faire un userform en plan.

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 (voir le code de l' userform initialize)

'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 Sub

crdlt,

André

Rechercher des sujets similaires à "planning userform"