D-sub

'------------------------------------------------------------------------------------ 'Amaury SPOREN et Mickael AMERIO 'Projet d'informatique FIMGP 1A 'Année 2010-2011 '------------------------------------------------------------------------------------ Public Sub Workbook_Open() ' Initialisation Choix de l'équipe Dim cellule As Range Set cellule = Worksheets("Données").Range("A4") Dim i As Integer Dim j As Integer i = 0 Worksheets("Commande").Label7.Caption = "Equipe" Worksheets("Commande").Label1

il se trompe est certain PROP SUB SUJET b)Mascule condition est qu'elle soit honnete PROP SUB ATTRIBUT DE SUJET c)je me demande s'ils parlent bien le francais COD interrogatif indirecte d)J doute qu'il soit content PROP SUB COMPL D'OBJ DIR e)Je t'aimerai tant que je vivraiPROP SUB CIRC DE TEMPS f)J'evite la reponse, non que je l'ignore, mais parce que je n'en veux pas parler PROP SUB CIRC DE CAUSE g)Il pleuvait tout le temps, si bien que je m'ennuyais PROP SUB CONSECUTIVES h)Il vous evite

remplacer la ligne x=3*x+2*i par x=qui(x,i) et la ligne y=y+x-i par y=quoi(y,x,i). Exercice 2 Question 1: sub tirage() Dim x as integer x=pileface() if x=1 then MsgBox(″face″) Else MsgBox(″Pile″) End If End Sub Question 2: sub centirage() Dim nbface As integer Dim i As integer Dim x As integer nbface=0 For i=1 to 100 nbface=nbface+pileface() Next MsgBox(″il y a eu ″& nbface&″ % de face″ ) End Sub Question 3 Function propface(n as integer) As double Dim nbface As integer Dim i As integer Dim x As integer

.................................................. 6 2 Enregistrement d’une macro ........................................................................ 7 2.1 Sub .................................................................................................................. 8 2.2 Règles d'affectation de noms aux procédures Sub .......................................... 9 3 Utilisation des Objets : Propriétés, Méthodes, Événements .................... 11 3.1 Les objets et collections d'objets

While … Wend For i=1 to 3 … Next Rappel de la structure d’un algorithme Var : nom_variable : type_variable Début Suites d’instructions Fin /* Déclaration de variables Rappel de la structure d’un programme Sub nom_programme() Dim nom_var as type_variable Suites d’instructions End Sub /* Déclaration de variables Rappel sur l’environnement de programmation I. Ouvrez l’interface d’écriture de programme. Pour cela affichez l’onglet développeur (Bouton Office / Options Excel) Ensuite ouvrez

Empty         Public ReadOnly Property CheminFichier() As String             Get                 Return (Me.privateCheminFichier)             End Get         End Property         Public Sub New(ByVal fichier As String)             Me.privateCheminFichier = fichier         End Sub         Public Sub CopieFichier(ByVal cheminFichierDestination As String, ByVal ecrasement As Boolean)             ' On vérifie si le fichier de destination n'existe pas déjà             If File.Exists(cheminFichierDestination)

notoriety and awareness of consumer , Armani could develop an stretching strategy , an other word an extending strategy , by creating many sub – brand which follow the same directions, the same concept , the unifying thread of strategy Armani ... Giorgio Armani is the pioneer , who brought the concept of brand extending which consist to develop different sub-brand of a same brand covering the whole market . It’s the concept of segmentation , the brand want to target each segment of accessible

notion voisines . Tout d'abord un droit Sub se distingue d'une liberté . Juridiquement la liberté consiste à faire tout ce qui ne nuis pas à autrui. La notion de liberté est une notion trés vague qui apparait lorsque l'on essaie d lui fixer des limites ( par ex : la liberté d'aller et venir ; On fait apparitre son contenu lorsque lon definit ses limites = detention) Les libertés sont accordés de façon égalitaire à tous les individus alors que les droits SUB sont accordés de façon inégalitaires

Range(« C8 »).Activate RangeCell.Offset(3,2).Select Exemples Sub Macro1() Début d’un programme VB ‘copier et coler 1 cellule avec RANGE l’apostrophe sert à faire ignorer ce qui se trouve derrière Range (« B3 »).Select Sélectionne la cellule Selection.Copy copie la sélection Range(« D7 »).Select sélectionne la cellule de destination Activesheet.Paste Colle le résultat dans la cellule active End Sub Fin du programme VB Sub Macro1bis() ‘Copier et coller 1 cellule avec CELLS

concernant les cours passés. Ainsi, on ne peut pas prévoir les cours futurs. Code . Option Base 1 Public u, v, h, z, j, l As Double Public Matrice_Coefft_Corr() As Double Public longueur () As Double Public vecteur_rentas() As Double Sub programme() ReDim Matrice_Coefft_Corr(39, 3) ReDim longueur(3, 1) longueur(1, 1) = 900 longueur(2, 1) = 1800 longueur(3, 1) = 3600 Nous faisons ces déclarations ici car ce sont des objets qui ne changeront pas de taille tout au long du projet