Discussion :

[Laskar]

Salut à tous.

Je débute complètement en VBA. Je tente d'écrire une petite routine de stats et je galère avec une erreur qui commence à me soûler ...

Dans le procédure d'initialisation de mon formulaire, je remplis un contrôle TextBox (nommé LaRef) avec la date du jour (jusque là, pas de problème). Dans un second TextBox, je saisis un entier entre 1 et 7.
Dans la procédure Userform_change() du formulaire, j'aimerais faire un bête calcul de date qui fait intervenir l'année de la date. Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Offset_Change()
Dim Annee As Integer
 
        If Me.Offset <> "" Then
            Annee = Year(Me.LaRef) '   -> Ne marche pas
            ...
        End If
End Sub

A l'execution, j'ai une erreur 13 : Incompatibilité de type sur la ligne Annee = Year(Me.LaRef)
Pourtant, Annee est un Integer et LaRef est bien de type Date
Savez-vous pourquoi ?

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Annee = Year(cdate(Me.LaRef) )

[Laskar]

Toujours la même erreur !
D'après la doc, Year renvoie un type INTEGER et accepte en paramètre un type DATE. Ces 2 conditions sont bien remplies dans mon script.
J'ai remplacé la ligne qui merde par ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 if isDate(me.LaRef) then Msg("Il s'agit d'une date !")

J'obtiens bien mon message à l'exécution ...

Comprends pas !

[Invité]

fait ce test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.LaRef=trim("" & me.LaRef)

[Laskar]

Il me semble que je dois passer à coté de quelque chose !
Question :
J'ai une procédure UserForm_Initialize()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
Dim Dt As Date, Annee As Integer
 
    Dt = Date
    Annee = Year(Dt)
    Me.NoSemaine = Format(Dt, "ww", vbMonday, vbFirstFourDays)
    Me.LaRef = DateSemaineFR(Annee, NoSemaine)
 
End Sub

Le problème repéré est que lorsque j'affecte une valeur à Me.NoSemaine, VB déclenche aussitôt la procédure NoSemaine_Change() qui fait appel à Me.LaRef qui n'est pas encore définit (donc vide) !
Ce comportement est-il normal ? Pourquoi VB n'attend-il pas la fin de la procédure d'initialisation ? Comment éviter ça ?

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 private sub NoSemaine_Change() 
if trim("" &  Me.LaRef )="" then exit sub

ça devrai régler ton problème!