Fonction vba
Résolu
jeremy
-
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Fonction vba
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Fonction remplacer sur word - Guide
5 réponses
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
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
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 :
Cdt
Lupin
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
