D-sub

l'accès aux bases de données, ainsi que la création de contrôles ou d'objets ActiveX. Je pense qu'avec ces possibilités, on va déjà pouvoir créer de petites choses. Le traditionnel « hello world » en Visual Basic : Code : Autre Sub Main() MsgBox("Hello World !") End Sub Ce code ouvre une MsgBox (comme un message d'erreur Windows) dans laquelle est contenu le message « Hello World ! ». Nous allons rapidement résumer tout ce que Wikipédia nous a appris. Il faut savoir que le BASIC, ancêtre du Visual

complexe en une suite de tâche plus simple. IF : si ELSE : sinon ELSEIF : sinon si Sub ech2v() Dim aux As Integer Dim a As Integer Dim b As Integer a = InputBox("entrez la valeur de a:", "saisie", 0) b = InputBox("entrez la valeur de b:", "saisie", 0) aux = a a = b b = aux msg = MsgBox("lanouvelle valeur de a est : " & a) msg = MsgBox("la nouvelle valeur de b est : " & b) End Sub Sub ech3v() Dim aux As Integer Dim a As Integer Dim b As Integer Dim c As Integer a = InputBox("entrez

Les macros : Sub nom_prenom() ' ' nom_Prenom Macro ' Macro enregistrée le ' 30/09/2005 par Mr Range("B1") = " VBA " Range("B2") =  " Excel" End Sub Début Nom de la macro Commentaires Les instructions Fin de la macro Une macro qui ne fait rien • Ouvrez Visual Basic Editor (menu Macros/Visual Basic Editor) • Choisissez votre module (à priori, module1, s’il n’y en a pas insérez un nouveau module) • Allez ay début ou à la fin de votre module. • Tapez votre macro : Sub polie() End sub Une macro

l’élément soit -1 dans le cas ou l’élément n’existe pas dans le ComboBox. Evénements : SelectedIndexChanged : se déclenche en changeant l’élément sélectionné dans le comboBox Correction Exercice 3 TP N°3 Public Class Form1 Dim nbr As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Remplir ComboBox dés le chargement de la fenêtre. ComboBox1.Items.Add("Element1") ComboBox1.Items.Add("Element2") ComboBox1.Items.Add("Element3") ComboBox1.Items

_ContexteDonnees End Get Set(ByVal value As DotnetFranceEntities) ContexteDAO._ContexteDonnees = value End Set End Property Shared Sub New() ContexteDAO.ContexteDonnees = New DotnetFranceEntities(ConfigurationManager.ConnectionStrings("CS_DotnetFra nce").ConnectionString) End Sub Public Shared Sub Enregistrer() ContexteDAO.ContexteDonnees.SaveChanges() End Sub End Class Pour utiliser la classe ConfigurationManager, il est nécessaire de référencer l’assembly System.Configuration.dll du

Caption l TextBox1.Text l Evénements l CommandButton1_Click()Etape 3 – Ecriture des évènements (programmes) Private Sub CommandButton1_Click() L = 2 While Cells(L, 1) <> "" L = L + 1 Wend Cells(L, 1) = TextBox1.Text Cells(L, 2) = TextBox2.Text Cells(L, 3) = TextBox3.Text End Sub Private Sub CommandButton2_Click() End End SubEtape 4 – Vérification de la saisie à la validation Private Sub CommandButton1_Click() If Not IsNumeric(TextBox3.Text) Then MsgBox ("Age non numérique") TextBox3.SetFocus Else

Private Sub Control_Event ( paramètres éventuels) End Sub On remarque que la syntaxe d’écriture des procédures et fonctions est développée dans le chapitre suivant. 1.4 Environnement de Développement Visual Basic Boîte à Outils Barre d’Outils Explorateur de projets Fenêtre Propriétés Fenêtre Présentation des Feuilles Fenêtre du Projet Feuille de l’application III. Les fenêtres principales: La fenêtre de mots de passe : Le code de coecter : Private Sub Command1_Click()

de l'utilisateur. Ainsi, le code suivant va écrire des valeurs de 1 à 10 dans la plage A1:A10 : Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 20/06/2002 par XXXX ' ' Range("A1").Select ActiveCell.FormulaR1C1 = "1" Range("A2").Select ActiveCell.FormulaR1C1 = "2" Range("A1:A2").Select Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillDefault Range("A1:A10").Select End Sub Si le côté pratique de l'enregistreur est difficilement contestable, le code généré est de très

de l'utilisateur. Ainsi, le code suivant va écrire des valeurs de 1 à 10 dans la plage A1:A10 : Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 20/06/2002 par XXXX ' ' Range("A1").Select ActiveCell.FormulaR1C1 = "1" Range("A2").Select ActiveCell.FormulaR1C1 = "2" Range("A1:A2").Select Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillDefault Range("A1:A10").Select End Sub Si le côté pratique de l'enregistreur est difficilement contestable, le code généré est de très

et un numéro de colonne ‘ et qui modifie la couleur de fond de la cellule aléatoirement Sub ChangeCouleur(ByVal ligne As Integer, ByVal colonne As Integer) Cells(ligne, colonne).Interior.ColorIndex = couleur End Sub ‘ définition d’une procédure sans paramètre (ou macro) qui demande à l’utilisateur les coordonnées ‘ d’une cellule et qui modifie 10 fois son fond, avec un intervalle de 1 seconde entre 2 couleurs Sub test() Dim l, c As Integer Dim nb As Integer nb = 0 Randomize l = InputBox("ligne?") c