Discussion :

[safami]

Bonjour à vous,

voilà je fais une petite macro vga sous excel dont voici un bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
a = p/4
If a = entier Then
    u = a / 100
        If u = non.entier Then
            f = 29
        Else
            f = 28
        End If
Else
    f = 28
End If

a est un entier (par ex 2014 ^^)

Vous l'aurez surement compris, ce code n'est pas bon ^^
En fait je cherche à savoir dans un 1er temps si le résulta de p/4 (donc a) est un nombre entier
si c'est le cas je cherche a savoir si a/100 (donc u) n'est pas un entier.

Le problème c'est que mes cours de VBA remontent un peu et que je ne sais plus comment regarder si un nombre est entier ou pas.

Pouvez-vous m'aider ?

Je reste disponible pour plus d'info ^^

Merci d'avance

[Theze]

Bonjour,

Regarde du coté de Mod :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Test()
 
    Dim p As Integer
    Dim a As Integer
 
    p = 2000
    a = p Mod 4
 
    MsgBox IIf(a <> 0, "'a' n'est pas un entier !", "'a' est un entier !")
 
End Sub

Hervé.

[safami]

Merci !!

ça ne répond pas au pb mais ça le résoud ^^

[eriiic]

Bonjour,

(a mod 1) =>0 si a entier

eric

[Theze]

Bonjour,

ça ne répond pas au pb mais ça le résoud ^^

C'est ceci que tu cherche ? Dans mon premier code, j'ai fais une erreur, j'ai déclaré a comme Integer alors qu'il fallait le déclarer Single !

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
24
25
26
27
28
 
Sub Test()
 
    Dim p As Integer
    Dim a As Single
    Dim f As Integer
 
    p = 420
 
    If p Mod 4 = 0 Then
 
        If p / 4 Mod 100 <> 0 Then
 
            f = 29
 
        Else
 
            f = 28
 
        End If
 
    Else
 
        f = 28
 
    End If
 
End Sub

Hervé.

[safami]

Mod permet de résoudre mon problème en effet.

mais je pensai qu'excel était capable de reconnaître un entier.
Car si je me souviens bien,
il y a une propriété comme "integer" qui permet de voir ou dire que "a" est un entier.

Mes souvenirs sont sûrement faux mais j'aimerai que vous me renseigniez sur ce point.

Merci pour vos réponses en tout cas.