fonction vba Résolu/Fermé

Question

Bonjour, 
je dois creer une fonction booleenne en Vba qui prend un nombre quelconque: si le nombre est pair la valeur "Vrai" s'affiche, et si le nombre est impair, la valeur "faux" s'affiche. 

merci de votre aide



Configuration: Windows 7 / Firefox 9.0.1

f894009 · Answer

Bonjour

Sub test_paire()
nombre = 11
'test reste division par 2: >0 impaire, =0 paire
If (nombre Mod 2) > 0 Then
  'impaire
  x = 1
Else
  'paire
  x = 0
End If

'ou
'test du bit 0: =1 impaire, =0 paire
If nombre And 1 Then
  'impaire
  a = 1
Else
  'paire
  a = 0
End If
End Sub

A transformer en fonction

Bonne suite

moiced59 · Answer

Bonjour

Pour le nombre aléatoire regarde du cote de random

pour pair impair utilise la fonction modulo si le reste est différent de zéro c dc impair

voila tu as tte les clefs en main

@ + sur CCM

Utilisateur anonyme · Answer

Bonjour,

Et de façon explicite :


Option Explicit

Public Function EstPair(ByVal Cible As Range) As String

    Application.Volatile

    Dim Nombre As Integer
    Dim Resultat As Integer
    
    EstPair = "Vrai"
    Nombre = Val(Cible.Value)
    Resultat = Nombre Mod 2
    If (Resultat > 0) Then
        EstPair = "Faux"
    End If

End Function
'


Cdt

Lupin

moiced59 · Answer

Je ne sais pas si faire les "Devoirs" des autres c vraiment les aider.

jeremy · Answer

merci, c bon j'ai compris le fonctionnement

Fonction vba

5 réponses

Discussions similaires