D-sub

2 Taxation and the growth of mobile services in sub-Saharan Africa Introduction from the GSMA Introduction from the GSMA The mobile industry in sub-Saharan Africa has pledged to invest some $50 billion over the next five years to extend coverage to rural areas and roll out mobile broadband services. This represents about a five-fold average increase in annual investment since the beginning of the decade. This private sector commitment is something of a windfall for governments. Not only

Depuis les années 1970, l'économie mondiale connait une multplicaton des crises fnancières dont la plus récente est la crise des « subprimes », qui a débuté aux Etats-Unis en 2008, avant de s'étendre à une grande parte des pays. Les années 1980 marquent un tournant dans l'économie et la fnance mondiale, puisque c'est l'époque de la déréglementaton des marchés. La déréglementaton représentait une réponse aux failles du système. La déréglementaton est la suppression progressive de règles, fxées par

l’existence de sub-cultures disparates offre aux acteurs sociaux la possibilité de développer des comparaisons et, par voie de conséquence, de prendre des distances par rapport à leur propre culture d’origine. Aujourd’hui un gros dilemme apparaît dans toutes les cultures. De simples différences (langues, couleur de peau…) peuvent provoquer de grandes disparités dans une même culture d’origine. Dans cette phrase, on nous explique que dans les sociétés actuelles des différences (création de sub-cultures)

commence par Sub + NomDeLaProcédure et se termine par End Sub. Le nom des procédures ne doit pas commencer par un chiffre et ne doit pas contenir d'espaces. Utilisez le caractère de soulignement pour séparer les mots. Le mieux est 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

!!Contents Table for 87C2, row doesn't match sub-object: irow = 15, RowID = 2140A4 !!Contents Table for 87C2, row doesn't match sub-object: irow = 14, RowID = 213A84 !!Contents Table for 87C2, row doesn't match sub-object: irow = 13, RowID = 213424 !!Contents Table for 87C2, row doesn't match sub-object: irow = 12, RowID = 2121E4 !!Contents Table for 87C2, row doesn't match sub-object: irow = 11, RowID = 2121C4

procédures courtes 1 et 2) Utilisation des boites de dialogues sans utiliser de données du tableur 1) Sub pair() Rem déterminer si pair ou impair NombreN = InputBox("Entrez un nombre entier, SVP :") If NombreN / 2 =

Les programmes suivants se trouvent dans Module1 ' Option Explicit Sub Liste_les_commandes() Application.ListCommands ListAllCommands:=True End Sub Sub sel0() 'Dim sel As Selection 'Set sel = Application.Selection 'MsgBox sel 'MsgBox Application.Selection MsgBox Selection End Sub Sub sel1() Dim i Dim sel As Selection Set sel = Application.Selection MsgBox sel For i = 1 To 4 sel.MoveRight unit:=wdCharacter, Count:=1 MsgBox sel 'sel.MoveRight unit:=wdWord, Count:=1 'sel.MoveRight

• Objectif : – Associer à un bouton de commande l’ensemble de ces étapes. 5 Exemple de code Public Sub denis() Selection.Range.Copy 'copie la selction dans le presse papier Documents.Add 'Crée un nouveau doc Selection.Range.Paste ' copie presse papier dans new doc Dialogs(wdDialogFileSaveAs).Show ' affiche boite de dialogue enregistrer sous ActiveDocument.Close 'ferme le new doc End Sub 6 Appel de Visual Basic Editor dans Excel 7 Faire apparaître le UserForm 8 Faire apparaître la fenêtre

correspondant pour chaque bouton. 4. Tester votre application. Solution : Private Sub CmdAnnuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAnnuler.Click txt1.ResetText() ‘ vider la zone de texte txt2.ResetText() txt3.ResetText() txt1.Select() ‘ pour donner le focus a l’objet txt1 End Sub El ANZI Page 7 sur 58 TSDI1 VB.NET C’EST LA PRATIQUE OFPPT / ISGI / BENI MELLAL Private Sub Cmdquit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

code will be run Private Sub CmdClearGrid_Click() Call ClearGrid End Sub Private Sub CmdFillGrid_Click() Call FillGridLine End Sub Private Sub CmdStart_Click() Me.TxtNumberOfGenerations.Enabled = False If Me.TxtNumberOfGenerations.Text = "" Then Me.TxtNumberOfGenerations.Text = "0" Call GridLineGameOfLife End Sub Private Sub CommandButton1_Click() StopGame = True End Sub Private Sub TxtNumberOfGenerations_Change() End Sub Private Sub Worksheet_SelectionChange(ByVal