Dim

: Dim Age As Integer Déclare la variable Age comme étant un entier 16 bits. On peut utiliser une seule instruction de déclaration pour déclarer plusieurs variables en les séparant par des virgules. Par exemple la ligne suivante déclare et dimensionne deux variables Nom et Prenom comme étant deux chaînes de caractères : Dim Nom As String, Prenom As String Contrairement à de nombreux autres langages, le type ne se propage pas sur une ligne de déclaration. Ainsi la déclaration : Dim Nom

: Dim Age As Integer Déclare la variable Age comme étant un entier 16 bits. On peut utiliser une seule instruction de déclaration pour déclarer plusieurs variables en les séparant par des virgules. Par exemple la ligne suivante déclare et dimensionne deux variables Nom et Prenom comme étant deux chaînes de caractères : Dim Nom As String, Prenom As String Contrairement à de nombreux autres langages, le type ne se propage pas sur une ligne de déclaration. Ainsi la déclaration : Dim Nom

SNCF (Dp) Manosque gare routière (Dp) Volx Saint-Maime La cité Saint-Maime village Dauphin Mane Forcalquier 09.306 09.40 09.46 09.48 09.50 09.55 10.00 sauf dim et fériés 10.50 11.20 12.10 12.1514 12.209 12.30 12.35 12.38 12.40 12.45 12.40 sauf dim et fériés sauf dim et fériés sauf dim et fériés 14.107 16.358 18.1013 14.15 16.45 18.15 14.25 16.55 18.25 14.31 17.00 18.35 14.33 17.03 18.38 14.35 17.05 18.40 14.40 17.10 18.45 14.50 17.15 18.50 tous

En effet, tout couple (x, y) de E × F avec x = ∑ λiei et y = ∑ µjfj se décompose de manière unique sous la forme : i=1 j=1 p p n (x, y) = ∑ λi (ei, 0F) + ∑ µj (0E, fj) i=1 j=1 On a donc dim E × F = dim E + dim F, formule qu'on retrouve implicitement dans : n + p = dim n+p = dim n × p = dim n + dim p 6– Relation de liaison La méthode ci–dessous permet de rechercher une relation de liaison. On suppose les Wi donnés par leurs coefficients. On fait des combinaisons de façon à disposer d'un triangle

Exemple: Dim MaPlage as Range Set MaPlage = ActiveSheet.Cells(1,1) L'utilisation de "MaPlage" permet un meilleur accès à la cellule que l'utilisation d'ActiveSheet.Cells(1) tout au long du code. L'appel à la méthode Item est implicite, WorkBooks("NomClasseur").Activate et WorkBooks.Item("NomClasseur").Activate sont équivalents. L'énumération Cette technique permet de parcourir une collection. Sa syntaxe est For Each….Next Là encore, typez fortement votre variable d'énumération. Dim MaCellule

14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 PREJAN ROUVIER VADON Temps complet Temps complet Temps complet Temps partiel Jour Mar Mer Jeu Ven Sam Dim Lun Mar Mer Jeu Ven Sam Dim Lun Mar Mer Jeu Ven Sam Dim Lun Mar Mer Jeu Ven Sam Dim Lun Mar Mer HJ 7 8 7 7 HH ABS ABS ABS 7 7 7 8 8 7 7 7 7 7 7 7 8 8 7 Date 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

03/01/2011 Lun 03/01/2011 Mar 04/01/2011 Mar 04/01/2011 Mer 05/01/2011 Mer 05/01/2011 Jeu 06/01/2011 Jeu 06/01/2011 Ven 07/01/2011 Ven 07/01/2011 Sam 08/01/2011 Dim 09/01/2011 Lun 10/01/2011 Lun 10/01/2011 Lun 10/01/2011 Mar 11/01/2011 Mar 11/01/2011 Mer 12/01/2011 Mer 12/01/2011 Jeu 13/01/2011 Jeu 13/01/2011 Ven 14/01/2011 Ven 14/01/2011 Sam 15/01/2011 Dim 16/01/2011 Lun 17/01/2011 Lun 17/01/2011 Mar 18/01/2011 Mar 18/01/2011 Mar 18/01/2011 Mer 19/01/2011 Mer 19/01/2011 début 10h 14h 9h30 14h fin 12h

VB. Cela peut se faire en regroupant le code VB à l'intérieur d'une balise : ' calcul des données à afficher par le code HTML ... .... ' affichage des valeurs calculées par la partie script L'exemple [heure2.aspx] montre cette méthode : Dim maintenant as String=Date.Now.ToString("T") Demo asp.net Il est Introduction au développement asp.net 41/192 Nous plaçons le document [heure2.aspx] dans l'arborescence [\chap2\heure2.aspx] Cassini(,/aspnet) et demandons le document

Fermer tous les classeurs ouverts sauf le classeur actif. Renommer les onglets d'un classeur (Ex. Mois1, Mois2, Mois3, etc...). Trier les onglets d'un classeur. Ajouter des feuilles dans un classeur et les renommer Sub AjouterRenommerFeuilles() Dim cpt As Integer cpt = 1 Do While cpt < 4 ' Ajoute 3 feuilles ' Ajout d'une feuille Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet ' Renomme la feuille Application.ActiveSheet.Name = "Semaine " & CStr(cpt) cpt = cpt + 1 Loop

utiliser pour crée un nouveau Type ........................................................ 25 5.6 Déclaration et portée des variables ............................................................... 26 5.6.1 5.6.2 5.6.3 5.6.4 5.6.5 5.6.6 Instruction Dim ........................................................................................................ 26 Instruction Public ..................................................................................................... 26 Appel de procédures