Discussion :

[al_le_magnific]

bonjour !
je voudrais programmer la fonction suivante sur xl :

if ((Reglages.spina.value)/4) "est un nombre entier" then
b=1
Else b=0
Endif

le problème est que je ne sais pas comment l'écrire en VBA ni quelle(s) Dim je dois avoir prévu au départ de mon module.
Quelqu'un peut-il me conseiller ?
Merci par avance de votre aide !

@pluche!!

[ouskel'n'or]

Avant de penser à autre chose...

Code :

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

1
2
3
4
5
if Reglages.spina.value/4 - Int(Reglages.spina.value/4) = 0 Then 'c'est un nombre entier
     b=1
  Else
     b=0
Endif

[al_le_magnific]

c'est impeccable : c'est ce que je cherchais ! je ne connaissais pas cette fonction pour extraire la partie entière d'un nombre.
merci beaucoup !
@ trés bientôt !

[ouskel'n'or]

Une autre solution sans Int

Code :

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

if Reglages.spina.value/4 - Reglages.spina.value\4 = 0 then