Vos high & low de la journée


Messages recommandés

Posté(e)

Me suis reveillé à je sais pas quelle heure pour fermer le velux de la chambre du haut.... et d'eponger l'inondation qu'il y avais eu -_-

Toujours autant de mal a bosser.

Toujours autant malade.

Toujours aussi distant...

C'est la fete quoi.

Posté(e)

High : J'ai dormi assez longtemps aujourd'hui pour rattraper un peu le sommeil, et histoire de me remettre de ma soirée. Ca fait du bien.

Low : Temps de merde qui me fout la déprime, j'aime pas les dimanches comme ça où on fout strictement rien en sachant qu'on ne voit personne..

Posté(e)

L :

Function fib(ByVal x As Long) As String

Dim prems As Long

Dim deuz As Long

Dim troiz As Long

prems = 0

deuz = 1

troiz = 0

fib = "0"

If x <= 0 Then

MsgBox "x doit être > à 0"

Else

Do Until x = 1

fib = fib & " " & deuz

troiz = deuz

deuz = deuz + prems

prems = troiz

x = x - 1

Loop

End If

End Function

VBA ça suce des truites :D

Posté(e)
High : J'ai dormi assez longtemps aujourd'hui pour rattraper un peu le sommeil, et histoire de me remettre de ma soirée. Ca fait du bien.

Low : Temps de merde qui me fout la déprime, j'aime pas les dimanches comme ça où on fout strictement rien en sachant qu'on ne voit personne..[/quotemsg]

Fallait aller au cinema ^^

C'est la fete du cinema ;)

Posté(e)

Déjà, on comprend pas du premier coup ce que tu veux faire.

L :

Function fib(ByVal x As Long) As String

Dim prems As Long

Dim deuz As Long

Dim troiz As Long

prems = 0

deuz = 1

troiz = 0

fib = "0"

If x

MsgBox "x doit être > à 0"

Else

Do Until x = 1

fib = fib & " " & deuz

troiz = deuz

deuz = deuz + prems

prems = troiz

x = x - 1

Loop

End If

End Function

VBA ça suce des truites :D[/quotemsg]

Ensuite, tu fais une boucle, mais tu en sors obligatoirement après le premier appel... comme s'il n'y avait donc pas de boucle. Et encore... elle n'est appelé que si x = 1.

Le nom de ta fonction n'aide pas non plus à deviner le but de celle-ci...

Posté(e)

Bah non la fonction fonctionne bien.

Et la boucle marche impec, si on veux les 5 premiers nombres de fibo ( j'ai pas mis d'explication sur sa fonction pasqu'à priori ça sera dans l'énnoncé à mes partiels )

Si j'ai un x = 5 au début ça donne bien 4 boucles ( et fib prend direct la première valeur )

On en sors pas aprés la première boucle, le compteur se fait en décroissance c'est tout :D

edith : je crois que "until" sous VBA ne fonctionne pas comme "While"

Rejoindre la conversation

Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

Chargement