Re : recuperation des donnees d un userform
j'ai eu la même erreur sur le retour j'ai egalement mi ' sur le deuxiéme
Private Sub UserForm_Initialize()
'Calendar2.Value = UserFDepart.Calendar1.Value
End Sub
et j'arrive sur
Private Sub bt1_Click()
Dim fin&
If C1 = "" Or C2 = "" Then MsgBox "Vous devez remplir l'heure et les minutes de Retour pour pouvoir Valider", , "Manque d'Heure": Exit Sub
If UserFDepart.Calendar1 > UserFRetour.Calendar2 Then
MsgBox "La date de retour ne peut pas être Inférieure à la date de départ", , "Mauvaise Date": Exit Sub
End If
Application.ScreenUpdating = 0
With Feuil1
fin = .Range("C" & Rows.Count).End(xlUp).Row + 1
.Cells(fin, 3) = saisieDp.C1: .Cells(fin, 4) = saisieDp.C2: .Cells(fin, 5) = saisieDp.C3:
.Cells(fin, 6) = CDate(UserFDepart.Calendar1): .Cells(fin, 7) = UserFDepart.C1 & "h" & UserFDepart.C2
.Cells(fin, 8) = CDate(UserFRetour.Calendar2): .Cells(fin, 9) = UserFRetour.C1 & "h" & UserFDepart.C2
.Cells(fin, 2) = Application.Proper(Format(CDate(UserFDepart.Calendar1), "mmmm")): .Cells(fin, 1) = fin
End With
Unload UserFRetour
Unload UserFDepart
Unload saisieDp
End Sub
erreur de compilation
membre de methode ou données introuvable
--PS -- je n'ai pas de calendrier dans les userformdepart et retour --
je ne peux donc pas selectionner une date
rappel je suis en excel 2003