Demander un chiffre impair

[Mouchty85]

bonsoir a tous, je réalise un petit programme pour les cours, et j'ai un probléme.
J'ai un bouton qui m'ouve une inputbox, on saisie la valeur de n et et programme fait la somme des terme de 1 à n.
je que je souaiterai c'est qu'il me fasse la somme des nombre impair, et que ca me marque un messge d'erreur si je saisie un chifre pair pour n.

Merci de votre aide

 

[myDearFriend!]

Re : Demander un chiffre impair

Bonjour Mouchty85,

Tu peux essayer :

[SIZE=2][COLOR=NAVY]Sub[/COLOR] Test()
[COLOR=NAVY]Dim[/COLOR] R [COLOR=NAVY]As Variant[/COLOR]
    R = Application.InputBox("Entrez le nombre impair", "Test", [COLOR=NAVY]Type[/COLOR]:=1)
    [COLOR=NAVY]If[/COLOR] R = [COLOR=NAVY]False Then Exit Sub
    If[/COLOR] [B]R Mod 2 > 0[/B] [COLOR=NAVY]Then[/COLOR]
        MsgBox "ICI, le code pour le traitement à effectuer"
        [COLOR=GREEN]'...[/COLOR]
        [COLOR=GREEN]'...[/COLOR]
        [COLOR=GREEN]'...[/COLOR]
    [COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]

Cordialement,

 

[ODVJ]

Re : Demander un chiffre impair

Bonjour,

as-tu besoin des formules pour calculer les différentes sommes des nombres pairs, impairs inférieurs ou égaux au R de MDF?

A+