Fonction vba

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

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

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

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

merci, c bon j'ai compris le fonctionnement