excell marc

[bibo219]

programme qui demande 1 nombre, il doit etre plyus petity que 15 et plus grand que 0, ensuite demandez autant de nombre que la valeur entre précédament. calculer la moyenne plus aficher

 

[BavariaBier]

Re : excell marc

Bonsoir et bienvenu sur le forum

Ton message n'est pas très clair mais essais cela:

Sub Excel_Marc()

Dim nombre As Integer
Dim total As Integer
Dim moyenne As Integer
Do
nombre = InputBox("entrez le nombre de nombre")
Loop While nombre > 15

For i = 1 To nombre
    total = total + InputBox("Entrer le nombre")
Next

moyenne = total / nombre
MsgBox (moyenne)

End Sub

Es-ce bien ce que tu voulais?
BavariaBier

 

[bibo219]

Re : excell marc

Créez un petit programme qui selon le nombre du mois entré, donne à l’écran le mois
en lettre. Exemple si je rentre 5 je vais avoir « Ceci est le mois de mai ». Si la personne
entre un nombre plus grand que 12, on inscrit « Erreur » et on lui pose la question à
nouveau.

 

[BavariaBier]

Re : excell marc

REBONSOIR

C'est quoi toute ses questions la?
Essais selectcase..

BavariaBier

 

[hoerwind]

Re : excell marc

Bonjour,

Le nombre en A1
=SI(A1>12;"Erreur";"Ceci est le mois "&SI(OU(A1=4;A1=8;A1=10);"d'";"de ")&TEXTE(DATE(1;A1;1);"mmmm"))

 

[bibo219]

Re : excell marc

comment faire pour revenir au debut faire recommencer

 

[suistrop]

Re : excell marc

Créer un petit programme qui donne les résultats d'un petit jeu à 5 numéro et 2 étoiles et on crédite mon compte directement.

 

[BavariaBier]

Re : excell marc

Comme ceci peut-être??

Sub numero()

Dim a As Single, b As Single, c As Single, d As Single, e As Single

a = WorksheetFunction.RandBetween(1, 10)
b = WorksheetFunction.RandBetween(1, 10)
c = WorksheetFunction.RandBetween(1, 10)
d = WorksheetFunction.RandBetween(1, 10)
e = WorksheetFunction.RandBetween(1, 10)

MsgBox (a)
MsgBox (b)
MsgBox (c)
MsgBox (d)
MsgBox (e)
MsgBox ("étoile 1")
MsgBox ("étoile 2")
MsgBox ("Crédité")


End Sub

XD
BavariaBier

ah et bibo je sais pas pour toiXD

 

[bibo219]

Re : excell marc

voila mes quelques fonctions svp jaimerais avoir une correction si possible
merci Claude

Sub question1()

For i = 0 To 10 Step 2
MsgBox "Test " & i & " réussi!"
Next

End Sub

Sub question2()
Dim Reponse As String

Do While Reponse <> "pomme"
Reponse = InputBox("entrez des nom de fruits")
Loop

MsgBox "tartes au pommes"
End Sub
Sub question3()
Dim i As Integer
Dim b As Integer

For i = 0 To 1
For b = 1 To 3

MsgBox "canadiens" & i & "nordiques" & b & ""
Next b
Next i

End Sub
Sub question4()


Dim note As Integer
Dim nombre As Integer
Dim total As Integer
Dim moyenne As Integer
Do
nombre = InputBox("entrez le nombre de nombre")
Loop While nombre > 15

For i = 1 To nombre
total = total + InputBox("Entrer le nombre", "note")
Next

moyenne = total / nombre
MsgBox (moyenne)

End Sub
Sub question5()
Dim note As Long
Dim note2 As Long
note = InputBox("Entrez un mois en chiffre", "NOTE")


Select Case note
Case 1
MsgBox "ceci est le mois de Janvier"
Case 2
MsgBox "ceci est le mois de février"
Case 3
MsgBox "ceci est le mois de mars"
Case 4
MsgBox "ceci est le mois de avril"
Case 5
MsgBox "ceci est le mois de mai"
Case 6
MsgBox "ceci est le mois de juin"
Case 7
MsgBox " ceci est le mois de juillet"
Case 8
MsgBox " ceci est le mois de aout"
Case 9
MsgBox " ceci est le mois de septembre"
Case 10
MsgBox " ceci est le mois de octobre"
Case 11
MsgBox " ceci est le mois de novembre"
Case 12
MsgBox " ceci est le mois de décembre"
Case Else
MsgBox " erreur réessayer"
End Select


End Sub