Discussion :

[BDA53]

à tous !

J'ai réalisé la macro suivante qui me permet de déterminer une période (normal, vacance d'été, vacance de noël, etc...) de l'année à partir d'une date donnée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Periode()
    Dim val, c As Integer
    val = Worksheets(1).Cells(36, 6)
    For c = 2 To 30
        If Month(Worksheets(2).Cells(29, c)) = val Then
            Select Case val
                Case Is = 1, 3, 5, 6, 9, 11
                    Worksheets(8).Cells(2, c) = "normal"
                Case Is = 2
                    Worksheets(8).Cells(2, c) = "fevrier"
                Case Is = 4
                    Worksheets(8).Cells(2, c) = "paques"
                Case 7 To 8
                    Worksheets(8).Cells(2, c) = "été"
                Case Is = 10
                    Worksheets(8).Cells(2, c) = "toussaint"
                Case Is = 12
                    Worksheets(8).Cells(2, c) = "noël"
            End Select
        End If
    Next c
End Sub

Le problème c'est que la macro fonctionne, mais elle m'affiche un message d'erreur à la fin "incompatibilité de type" et marque un point d'arrêt à la ligne suivante :

Code :

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

If Month(Worksheets(2).Cells(29, c)) = val Then

Au début j'ai pensé que la fonction month() renvoie un type Date.
Mais ce n'est pas le cas, elle renvoie un entier étant le numéro du mois.
La variable val contient bien sur le numéro du mois de type entier.
Alors je ne comprends pas vraiment pourquoi la macro fontionne s'il y a une erreur dans le programme.

Quelqu'un peut-il m'aider ?

[pasdechances]

Bonjour,
Dissocie cette ligne

Code :

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

If Month(Worksheets(2).Cells(29, c)) = val Then

en

Code :

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

1
2
test = Worksheets(2).Cells(29, c)
If Month(test) = val Then

et regarde le type de la valeur de la variable "test".
(point rouge sur la ligne du "if" et affichage> variable local)
on aura un ordre d'idée du problème.

[BDA53]

Fait !

Du coup lors du premier test, la variable test est égale à "23/03/15"

[BDA53]

C'est bon j'ai trouvé mon erreur !

En fait quand je n'ai pas de date j'ai mis une valeur de texte. D'où le message d'erreur.

Merci quand même pour ton aide, elle m'a été très utile

[Theze]

Bonjour,

Val est une fonction de VB il est donc très fortement déconseillé d'utiliser une variable portant ce nom !
extrait de l'aide :
Renvoie le nombre contenu dans une chaîne de caractère sous la forme d'une valeur numérique d'un type approprié.

[pasdechances]

Bonjour,

Val est une fonction de VB il est donc très fortement déconseillé d'utiliser une variable portant ce nom !
extrait de l'aide :
Renvoie le nombre contenu dans une chaîne de caractère sous la forme d'une valeur numérique d'un type approprié.

effectivement, et si c'est pas ça, converti ta chaine de caractère en date car la fonction month() demande une variable de type date en entrée.

Code :

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

Public Function Month(ByVal DateValue As DateTime) As Integer

Code :

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

test = CDate(test)