Macro VGA sous excel

[invite9789dd03]

Bonjour à vous,

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

a = p/4
If a = réel Then
    u = a / 100
        If u = non.réel Then
            f = 29
        Else
            f = 28
        End If
Else
    f = 28
End If

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
-----

[invite670fd5e2]

Pour la condition il faut que tu utilise le modulo.

    Sub Main()

        'Je déclare mes variables
        Dim p As Integer
        Dim a As Integer
        Dim u As Integer
        Dim f As Integer

        'J'attribue une valeur à "a"
        a = p / 4

        'J'applique la première condition : si p/4 a un reste de 0 alors...
        If p Mod 4 = 0 Then

            'J'attribue une valeur à "u"
            u = a / 100

            'J'applique une seconde condition : si a / 100 a un reste diffèrent de 0 alors...
            If a Mod 100 <> 0 Then
                f = 29
            Else
                f = 28
            End If

        Else
            f = 28
        End If

    End Sub

En espérant que c'est ce que tu cherches.

[invite9789dd03]

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.

[bisou10]

TypeName() http://msdn.microsoft.com/fr-fr/libr...=vs.90%29.aspx

ex. If TypeName(i) = "Integer"

Mais c'est un faux ami. Car il teste le typage, pas le fait que ton nombre n'ai ou pas de décimales.

[A voir en vidéo sur Futura]

[invite9789dd03]

Ok, je vois oui.
Je pensais que excel saurais faire ça ^^

Au final je m'en sort avec modulo.

Merci à vous en tous cas

[invite3222ab58]

Bonjour à tous,
Il y a une solution mathématique applicable dans une cellule Excel ou en vba.
Il me semble que c'est plus jolie :
Test si a est entier :
Si a=ent(a) alors a est entier

Je laisse à tous l'écriture de l'instruction exacte.

Fred.