demande d'exos vba

Version imprimable

27/01/2008, 14h03
bolltt

demande d'exos vba

Bonjour à tous
Etant un débutant en VBA. J'aimerai que vous me donniez des exos pour que je puisse un peu coder sous Excel. Dans un premier temps je cherche et puis je proposerai des solutions. Ainsi on peut discuter des erreurs. Je pense que c'est une bonne idée pour que je puisse avancer en VBA.
Merci de votre coopération. :oops:
27/01/2008, 18h26
bolltt

Il n' y a personne qui veut m'aider s'il vous plaît? :( :( :( :(

Bonsoir,

L'autre sujet que tu as ouvert donnant à penser que tu n'as pas encore vu le fonctionnement et l'utilisation de fonctions, je te propose de te pencher d'abord sur ce sujet (les fonctions sont utiles à plus d'un titre).

Reprenons ici le code auquel "tu ne comprenais rien" :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Command1_Click() Dim x As Single, y As Single, z As Single x = 112.25 y = 28.2 z = 125.33 MsgBox lpg(x, y, z) End Sub Private Function lpg(x As Single, y As Single, z As Single), as single lpg = x If y > lpg Then lpg = y If z > lpg Then lpg = z end function
Ce code est composé :
- d'une procédure évènementielle (le click sur ton CommandButton Command1)
c'est dans cette procédure que tu as tes 3 valeurs (elles ont ici "en dur", mais pourraient provenir d'ailleurs - d'une textbox, d'une feuille Excel, etc...)
Ces trois valeurs sont passées (en paramètres) à une fonction que nous avons appelée ici lpg (pour le plus grand).

lpg(x,y,z) a pour but de déterminer le plus grand de x,y et z...
en règle générale une fonction
- reçoit des paramètres en entrée (ici x,y et z)
- retourne une valeur dont le type est défini
- la valeur de retour est celle de la fonction elle-même (lpg)

Reprenons le code de la fonction. j'y mets en rouge la fonction, en vert ses paramètres, en bleu le type de la valeur retournée par la fonction :
Code:

1 2 3 4 5 Private Function lpg(x As Single, y As Single, z As Single), as single lpg = x If y > lpg Then lpg = y If z > lpg Then lpg = z end function
[/CODE]

la valeur retournée par lpg sera donc de type single
La fonction prend la valeur du 1er paramètre (x)
elle évalue ensuite la valeur de y et si y est plus grand que sa valeur précédente (lpg), elle prend la valeur de y
etc...
à sa sortie, lpg a donc ainsdi forcément la valeur du plus grand des 3, valeur qui est utilisée dans la procédure d'appel (ton click) ... et y est affichée par un msgbox lpg( .... et ses 3 paramètres d'entrée...)

Voilà tout.
Tu veux des exercices ?
1) commence par analyser ce qui précède
2) impose-toi des exercices simples utilisant des fonctions, tel : rechercher maintenant le plus petit des 3, faire faire à une fonction des calculs impliquant plusieurs paramètres d'entrée, etc ...etc...

Bonne étude.

27/01/2008, 20h32
bolltt

Merci. En fait lorsque je regarde vos deux programmes, il n'y a aucun moment vous utilisez

Code:

End If

.
27/01/2008, 20h34
bolltt

Je remarque dans votre premiere programme vous appelez directement les valeurs et non une variable. Ce n'est pas plus facile d'écrire un programme avec des variables puis à la fin on fait des jeux de tests pour utliser?
27/01/2008, 22h17
Qwazerty

Citation:

Envoyé par bolltt

Merci. En fait lorsque je regarde vos deux programmes, il n'y a aucun moment vous utilisez

Code:

End If

.

SAlut
Regarde sur ton autre Topic, quelqu'un a mis une explicatyion a cette syntaxe particuliere du If, il me semble que c'est BigAlO.
A++
Qwaz
28/01/2008, 18h36
bolltt

oui, c'est vrai quand on a

Code:

If condition Then traitement

sur la même ligne on n'a pas besoin de End If c'est ca?
28/01/2008, 18h37
bolltt

Citation:

Envoyé par bolltt

Je remarque dans votre premiere programme vous appelez directement les valeurs et non une variable. Ce n'est pas plus facile d'écrire un programme avec des variables puis à la fin on fait des jeux de tests pour utliser?
28/01/2008, 19h00
Qwazerty

SAlut
Oui c'est ca.
Par contre en se qui concerne ta 2eme question, désolé mais je ne la comprend pas, donne le bout de code sur lequel tu te pose la question et essaie de reformuler ta question ;)
A++
Qwaz

Citation:

Envoyé par ucfoutu

Bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
  Dim x As Single, y As Single, z As Single
  x = 112.25
  y = 28.2
  z = 125.33
  MsgBox lpg(x, y, z)
End Sub
 
Private Function lpg(x As Single, y As Single, z As Single), as single
 lpg = x
 If y > lpg Then lpg = y
 If z > lpg Then lpg = z
end function

Je ne comprends pas les termes private sub command1 click.

29/01/2008, 07h12
Qwazerty
SAlut
Et bien on ppeut decomposer ainsi
- Private : cette procedure est declarer uniquement dans ce module
- Sub : c'est une procedure, contrerement a une fonction (Function) elle ne renvoie pas de valeur.
- Command1_Click(): c'est le nom de la procedure, et ici cas "particulier" c'est une procedure evenmentiel, elle est appeler automatiquement par VBA Lors d'un appui sur le bouton 1.
En esperant t'avoir aidé sans dire de betise ;)
A++
Qwaz
29/01/2008, 07h56
Invité
Bonjour

Nous n'allons pas t'expliquer chaque mot qui se trouve dans VBA.

Merci avant de poser des question de :
- Utiliser la touche :f1: sans modération, il te suffit de double-cliquer sur le mot recherché et de cliquer sur cette touche.
- De lire les tutoriaux : Office, les :faq: FAQ Office et les :faq: FAQ VB.
C'est pourquoi je cloture cette discussion.

Tu pourras cependant poser des questions quand un code ne fonctionne pas, les membres seront là pour t'aider.

Starec