rastafouette
XLDnaute Junior
Bonjour à tous en ce matin pluvieux !
J'ai aujourd'hui un pb d'appel de fonction (ou de Sub).
Je m'essaie à une explication synthétique :
J'ai une grosse UserForm où j'ai plusieurs DTPicker.
Lors du CloseUp d'une DTPicker, j'ai deux fonctions
La première foncitonne très bien :
Mais pas la seconde :
J'ai le mesage d'erreur : "Erreur de compilation, Qualificateur incorrect"
En fait, cette Sub a fonctionné une fois au début et quand je l'ai insérée dans mes autres DTPicker (j'en ai 16 qui bvont utiliser cette fonction), ben ça n'a plus fonctionné. Du coup, j'ai essayé avec Public, Private, Function, j'ai changé "Momo" et ben ça marche plus.
Quelqu'un aurait-il une idée ?
Merci d'avance à tous
J'ai aujourd'hui un pb d'appel de fonction (ou de Sub).
Je m'essaie à une explication synthétique :
J'ai une grosse UserForm où j'ai plusieurs DTPicker.
Lors du CloseUp d'une DTPicker, j'ai deux fonctions
Code:
Private Sub DTPicker_f_0000_CloseUp()
Nb_Semaines_0000 = [COLOR="Blue"]Calcul_Nb_Semaines[/COLOR](DTPicker_0000, DTPicker_f_0000)
Label_Sem_0000.Caption = Round((Val(Label95.Caption) * Nb_Semaines_0000 / Nb_Semaines_Projet_Th))
Label_Pers_0000.Caption = Round((TextBox_0000 / Label_Sem_0000.Caption / 35), 1)
MsgBox "eeeeeeeeee"
[COLOR="blue"]Verif_Date_Fin_Correcte[/COLOR] (DTPicker_f_0000)
End Sub
La première foncitonne très bien :
Code:
[SIZE="2"]Private Function Calcul_Nb_Semaines(Debut As Date, Fin As Date) As Integer
Semaine1 = DatePart("ww", Debut, 2, 2)
Annee1 = DatePart("yyyy", Debut)
Semaine2 = DatePart("ww", Fin, 2, 2)
Annee2 = DatePart("yyyy", Fin)
If Annee1 = Annee2 Then: Nb_Sem = Semaine2 - Semaine1
If Annee1 > Annee2 Then
MsgBox "Problème, annee de debut postérieure !!"
Exit Function
End If
If Annee1 = (Annee2 - 1) Then: Nb_Sem = Semaine2 + (52 - Semaine1)
If Annee1 = (Annee2 - 2) Then: Nb_Sem = Semaine2 + (52 - Semaine1) + 52
' Nombre de semaines du projet
Calcul_Nb_Semaines = Nb_Sem
MsgBox "nb_sem" & Nb_Sem
End Function[/SIZE]
Code:
Private Sub Verif_Date_Fin_Correcte(Momo As Date)
MsgBox "Momo" & Momo
If Momo.Value > DTPicker2.Value Then
Momo.CalendarTitleBackColor = RGB(255, 0, 0)
Momo.Font.Bold = True
Momo.Font.Strikethrough = True
Else
Momo.CalendarTitleBackColor = RGB(255, 255, 255)
Momo.Font.Bold = False
Momo.Font.Strikethrough = False
End If
End Sub
J'ai le mesage d'erreur : "Erreur de compilation, Qualificateur incorrect"
En fait, cette Sub a fonctionné une fois au début et quand je l'ai insérée dans mes autres DTPicker (j'en ai 16 qui bvont utiliser cette fonction), ben ça n'a plus fonctionné. Du coup, j'ai essayé avec Public, Private, Function, j'ai changé "Momo" et ben ça marche plus.
Quelqu'un aurait-il une idée ?
Merci d'avance à tous
Dernière édition: