D-sub

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 End Sub Enregistrer une copie du classeur Sub SaveCopyAs() ActiveWorkbook.SaveCopyAs "C:\excel\MonDouble.xls" End Sub Fermer tous les classeurs ouverts (sauf le classeur actif) Sub FermeClasseurs()

procédure à partir d'une liste Sub Call ByRef-ByVal Function IsAddin Run Optional Caller Parent Auto_Open Num chaîne Num chaîne2 Position chaîne oc Diff champs Diff Champs Tri Diff Champs Mz Inverse Nom Pr InversePrénom No Sans Doublons Tr Sans Accent NomPropre Concaténe Champ Recherche Tous RechPartie Code Dates Procédures sans paramètre La syntaxe d’une procédure est la suivante : Sub Nom_procédure(Paramètre1,paramètre2,...) ...... ...... End Sub Une procédure peut en appeler une autre

Public aux(1 To 5) As Integer : tableau à une dimension qui permet l’échange de variables entre l’ancienne plus petite valeur et la nouvelle (utilisée dans la fonction tri) III. Présentation des procédures et fonctions Private Sub Form_Load() : Cette procédure commence par dimensionner les agents sur un damier de 6000 points. Elle va ensuite charger une copie de agent(0) pour chaque emplacement du damier. Pour cela elle va définir trois variables : col, lig, ind. Ensuite pour

des programmes réutilisables dans plusieurs classeurs. En exportant ces programmes, vous pourrez aussi les utiliser dans les applications qui exploitent le langage VB. • Ouvrez Visual Basic • Commande : Insertion/Module • Tapez : sub SaisieMessage Votre procédure est prête à être enregistrée. 2 Les variables Emplacement de stockage nommé contenant des données pouvant être modifiées au cours de l'exécution du programme. Chaque variable possède un nom qui l'identifie

False End If Private Sub CommandButton1_Click() Range("A2").Select Do If Selection.Value = TextBox1.Text Then Selection.Interior.Color = vbRed Selection.Offset(0, 2).Font.Color = vbGreen End If Selection.Offset(1, 0).Select Loop While Selection.Value "" End Sub Il nous reste ensuite à programmer le deuxième bouton. Nous n'allons pas compliquer le traitement et annuler la mise en forme sur toute la colonne. Il n'y aura pas de traitement supplémentaire. Private Sub CommandButton2_Click() Range("A:A")

[pic] Private Sub Command1_Click () For i = 1 To 100 If Pr < 100 Then Pr = Pr + 2 Else Form2.Show End If Next End Sub Private Sub Timer1_Timer () Label1.Visible = Not Label1.Visible End Sub Private Sub Timer2_Timer () Label5 = Now End Sub [pic] Private Sub Command1_Click () If T2 = 123 Then MDIForm1.Show Form2.Hide Else MsgBox ("mot de passe incorrect") End If End Sub [pic] Private Sub Command1_Click () Data1.Recordset.AddNew

strSql As String Private ObjetDataTable As DataTable Private ObjetDataRow As DataRow Private RowNumber As Integer Private strConn As String Private ObjetCommandBuilder As OleDbCommandBuilder Dim pu As Integer Private Sub frmBonCommandeClient_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MdiParent = frmMenu strConn = "Provider=SQLNCLI;Driver={SQL Native Client};server=PC-de-SORO;" & _ ";data base=BDGestionStock;user

variables -Instructions Exemple : sub Calcul_Prix() => Titre du programme Const TVA=0.196 => constante Dim PrixHT as single Dim Qte as Integer =>Déclaration des variables Dim PrixTTC as single PrixHT=InputBox(« saisir le prix HT ») => Affichage d’une fenêtre de saisie Qte=InputBox(« saisir la quantité ») => Affichage d’une fenêtre de saisie PrixTTC=PrixHT*Qte*TVA => Calcul Msgbox(« PrixTTC »&PrixTTC) => Affiche le calcul End sub Composition du programme :

Me.Hide() f2.Show() End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Package importer Imports System.Data.SqlClient * Forme mdi parent C’est une forme qui permet le bon fonctionnement de l’application mdiparent gestion client Private Sub GestionClientToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GestionClientToolStripMenuItem.Click

THE SUB-PRIME CRISIS I want to tell you about the subprime crisis because it is a very important financial crisis in the United States since 2006, and it affects the world since 2007. We can wonder what is the subprime crisis. To answer the question, we will studdy, in the first part, the reasons of the sub-prime crisis, and, in the second part, we will see the effects of the sub-prime crisis. I)The reasons of sub-prime crisis The sub-prime mortgage meltdown is a financial crisis, who