perdu code caledrier

[wrndid]

bonjour
j ai perdu ce code
Sub maj() avez vous un lien merci

date1 = CDate("01 " & UserForm2.ComboBox1.Value & " " & UserForm2.TextBox1.Value)
date2 = date1
joursem = Weekday(date1)
For J = 2 To 43
Set c = UserForm2.Controls(J)
c.Visible = True
If Len(c.Name) = 14 And CInt(Right(c.Name, 1)) <= joursem Then
c.Visible = False
Else
If Month(date1) = Month(date2) Then
c.Caption = Day(date1)
Else
c.Visible = False
End If
date1 = date1 + 1
End If
Next
End Sub

Sub affcalendar()
UserForm2.Show
End Sub

Sub affdate()
If Len(UserFor2.ActiveControl.Name) = 14 Then
jour1 = Right(UserForm2.ActiveControl.Caption, 1)
Else
jour1 = Right(UserForm2.ActiveControl.Caption, 2)
End If
mois1 = UserForm2.ComboBox1.Value
an1 = UserForm2.TextBox1.Value
'ActiveCell.Value = CDate(jour1 & " " & mois1 & " " & an1)
UserForm2.txtDate.Value = CDate(jour1 & "/" & mois1 & "/" & an1)
' UserForm1.Hide
End Sub

 

[wrndid]

Re : perdu code caledrier

tester
feuille mois et nouvelle action ,click sue comm

erreur

merci

 

[JNP]

Re : perdu code caledrier

Bonsoir Wrndid ,

bonjour
j ai perdu ce code

Euh, tu l'as pas perdu, vu que tu l'as collé dans ce post ???
Si tu cherches tes anciens posts, tu cliques sur ton nom et tu as "Voir ses messages", tu devrais retrouver ton bonheur ...
Bonne nuit

 

[wrndid]

Re : perdu code caledrier

bonjour
retouver le fichier fontionne bien en userform1 , mai quand je kl=l adapte au mien en userform2 ce bloque sur c.Caption = Day(date1)

pour essayer
feuille mois(ex=janvier= et nouvelle action ,click sur comm
Merci

 

[JNP]

Re : perdu code caledrier

Re ,
Modifie déjà cette ligne

      If Month(date1) = Month(date2) And c.Object = False Then

ça te permettra de ne pas gérer les combobox à la place des commandbutton ...
Bon courage