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 😎