Fonction vba
Résolu/Fermé
jeremy
-
1 mars 2012 à 18:00
moiced59 Messages postés 1145 Date d'inscription samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 - 3 mars 2012 à 09:27
moiced59 Messages postés 1145 Date d'inscription samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 - 3 mars 2012 à 09:27
A voir également:
- Fonction vba
- Fonction si et - Guide
- Fonction somme excel - Guide
- Fonction moyenne excel - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Fonction filtre excel n'existe pas - Forum Excel
5 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
1 mars 2012 à 18:26
1 mars 2012 à 18:26
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
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
1 mars 2012 à 18:26
1 mars 2012 à 18:26
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
Utilisateur anonyme
1 mars 2012 à 18:40
1 mars 2012 à 18:40
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
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
1 mars 2012 à 18:55
1 mars 2012 à 18:55
Je ne sais pas si faire les "Devoirs" des autres c vraiment les aider.
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
3 mars 2012 à 09:27
3 mars 2012 à 09:27
;)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
