D-sub

pas). Public Sub SaisieTempérature() Température = InputBox("Taper une température") Somme = Somme + Température End Sub Les fonctions retournent la valeur de la variable du même nom: Par exemple Carré(7) retournera la valeur 49. Public Function Carré(x) As Single Carré = x * x End Function Enfin la zone des procédures événementielles (chaque procédure est séparée des autres par un trait horizontal). Sub NomContrôle_Evénement() ' ou aussi Private Sub < Instructions > End Sub • Fonctions

procédures peuvent être de type: ◦ Public: elles sont accessibles depuis tous les modules:  Sub proc() équivalant à:  Public Sub proc() ◦ Private: inaccessibles hors du module: 2012/2013 Les procédures (2) Pour exécuter une procédure depuis une autre procédure, on entre son nom: ◦ Private Sub avertissement()     MsgBox "Attention!" End Sub ◦ Sub test()     If Range("A1") = "" Then         avertissement     End If End Sub 2012/2013 Les procédures (3) Pour pouvoir utiliser des valeurs d'une procédure

d'instructions effectuant des actions. Elle commence par Sub + NomDeLaProcédure et se termine par End Sub. Le nom des procédures ne doit pas commencer par une lettre et ne doit pas contenir d'espaces. Utilisez le caractère de soulignement pour séparer les mots. Je vous conseille de les écrire comme des noms propres. Pour déclarer une procédure, taper Sub et son nom puis taper Entrée. VBE ajoute automatiquement les parenthèses et la ligne End Sub. A. Mellouk, Page 7 Le vocabulaire VBA manipule

Attention, on peut avoir une proposition subordonnée relative à l’intérieur d’une principale (car elle suit le nom, si celui-ci est sujet la prop° sub. relative va forcément être intercalée) Exple : Le train qui arrive est en retard. > La prop° sub. relative (soulignée) est à l’intérieur de la prop° principale. ** Fonction de la prop° sub. relative : La relative avec antécédent précise un nom et peut être remplacée par un adjectif qualificatif. Elle a donc les mêmes fonctions que lui :

Module Module1 Dim A, B As Integer Sub Main() A = 1 B = A + 3 A = 3 Console.WriteLine("La valeur des variables est : " & " A = " & A & " ; B = " & B) Console.ReadLine() End Sub End Module 2. Module Module1 Dim A, B, C As Integer Sub Main() A = 5 B = 3 C = A + B A = 2 C = B - A Console.WriteLine("La valeur des variables est : " & " A = " & A & " ; B = " & B & " ; C = " & C) Console.ReadLine() End Sub End Module 3. Module Module1 Dim A, B As Integer Sub Main() A = 5 B = A + 4 A = A + 1 B =

H Private Sub CommandButton10_Click() UserForm18.Hide Modèle.MAIN End Sub H H H C O H Ethanal ou acétaldéhyde Benzaldéhyde Citral Cinnamal C H Private Sub CommandButton10_Click() UserForm18.Hide Modèle.MAIN End Sub H H H C C H Private Sub CommandButton10_Click() UserForm18.Hide Modèle.MAIN End Sub H H Private Sub CommandButton10_Click() UserForm18.Hide Modèle.MAIN End Sub H H Private Sub CommandButton10_Click()

objets graphiques interactifs) • Les événements (signaux système) • Les réflexes ou procédures évenementielles (ou ‘Listeners’) Par défaut: NomControle_NomEvenement Private Sub reflexe(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomControle.nomEvenement ‘Code de l’action à réaliser End Sub Le ou les événements gérés par ce réflexe L’événement émis [PIG] Cours IV Prog. Evt Exemple clic! 9 [PIG] Cours IV Prog. Evt Contrôles 10 • Composants graphique

module peut être appelée à tout endroit du code. VB implémente les fonctions (Function) et les procédures (Sub). La seule différence entre une fonction et une procédure est que contrairement à une fonction, une procédure ne retourne pas de valeur. Public Module modMain L'exécution va démarrer à partir de la procédure Main() : Sub Main() 'Appelle la fonction ci-dessous : MaFonction() End sub MaFonction : une petite fonction afin d'utiliser la classe Chien : Function MaFonction() 'Voici comment

Exemple 1 ‘Indice inférieur égal à 0 Option Base 0 Sub MonPremierTab() ‘Déclaration de tableaux Dim tabF(9) As Double ‘Parcours d’un tableau For i = 0 To 8 tabF(i) = Range("A" & i + 1).Value MsgBox tabF(i) Next i End Sub 3  Exemple 2 ‘Indice inférieur égal à 1 Option Base 1 Sub MonPremierTab() ‘Déclaration de tableaux Dim tab1(9) As Double ‘Parcours d’un tableau For i = 1 To 9 tabF(i) = Range("A" & i ).Value MsgBox tabF(i) Next i End Sub 4  La taille du tableau n’est pas définie

Elle commence par Sub + NomDeLaProcédure et se termine par End Sub. Le nom des procédures ne doit pas commencer par une lettre et ne doit pas contenir d'espaces. Utilisez le caractère de soulignement pour séparer les mots. Je vous conseille de les écrire comme des noms propres. Pour déclarer une procédure, taper Sub et son nom puis taper Entrée. VBE ajoute automatiquement les parenthèses et la ligne End Sub. Exemple de Procédure nommée Essai : Sub Essai() MsgBox "Bonjour" End Sub Une fonction est