Vos high & low de la journée

C'est un avatar de voyeur ça :o

EN TAULE LES VOYEURS §§

L : Il pleut :o c'est plustot chian :/

Vh : Mon avatar a été accepté :love:

C'est un avatar de voyeur ça :o

EN TAULE LES VOYEURS §§[/quotemsg]

Tu vas voir où tu vas te la prendre la tôle toi! :o

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.

Quand est-ce que tu remets Ballmer, ago ? [:ak2spawn]

Les yeux rouges c'est fnu :o

Quand est-ce que tu remets Ballmer, ago ? [:ak2spawn][/quotemsg]

[:ag0nie:8]

L : début d'panari au doigt, je demande l'amputation :o

accordée

Apportez la tronçonneuse

Aaaah, panari :D

J'vais gerber.

c'est Bô !

J'ai bien dit début, c'est juste tout rouge, c'est pas immonde :D

L : je viens de regarder l'état de mes comptes ...

j'ai 250€ pour tenir les deux mois des vacances et tout septembre jusqu'à être payé... sachant que faut que j'prenne le train (au moins 6 billets )... j'vais devoir jouer serré :/

il faut acheter 250 bancos, tu tomberas peut-être sur un 1000€

hem...

mais comment ça se fait que tu sois payé qu'en septembre ?

bah je bosse pas pendant les vacances ( trop de truc à faire ), donc comme je bosserais en septembre, j'devrais attendre fin septembre pour avoir des thunes :D

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..

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

Surtout quand on utilise une boucle Do Until qui ne sert à rien...

t'aurais fait ça comment ?

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 ;)

J'ai pas de transport, et tous les gens que je connais rattrapent tout comme moi leur sommeil..

Et si j'étais allé au cinéma, ça m'aurait fait chier d'y aller seul :/

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...

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"

Oui, en effet, c'est parce que c'est l'inverse d'un While en fait.

Par contre, c'est bien, tu déclares tes variables :D