Branchements conditionnels en VBA

Dans cette vidéo on montre l'utilisation des instructions suivantes: If Then End If If Then Else End If IIF If Then ElseIf Else End If
Select Case end select

Code source:
Option Explicit

Sub test1()
Dim i As Integer
i = WorksheetFunction.RandBetween(0, 100)
If i Mod 2 = 0 Then Beep: Debug.Print i & " est paire"
End Sub

Sub test2()
Dim i As Integer
i = WorksheetFunction.RandBetween(0, 100)
If i Mod 2 = 0 Then
    Debug.Print i & " est paire"
Else
    Debug.Print i & " est impaire"
End If
End Sub

Sub test3()
Dim i As Integer
i = WorksheetFunction.RandBetween(0, 100)
Debug.Print i & " est " & IIf(i Mod 2 = 0, "paire", "impaire")
End Sub

Sub test4()
Dim i As Integer
i = WorksheetFunction.RandBetween(0, 100)
Debug.Print i & " est " & IIf(i Mod 2 = 0, "", "im") & "paire"
End Sub

Sub test5()
Dim i
i = InputBox("Taper un nombre entre 0 et 100")
If IsNumeric(i) Then
    Debug.Print i & " est " & IIf(i Mod 2 = 0, "", "im") & "paire"
Else
    MsgBox "Taper un nombre entre 0 et 100"
End If
End Sub

Function IGR(revenu As Currency) As Currency
'Revenu annuel
If revenu < 30000 Then
    IGR = 0
ElseIf revenu >= 30001 And revenu <= 50000 Then
    IGR = revenu * 0.1
ElseIf revenu >= 50001 And revenu <= 60000 Then
    IGR = revenu * 0.2
ElseIf revenu >= 60001 And revenu <= 80000 Then
    IGR = revenu * 0.3
ElseIf revenu >= 80001 And revenu <= 180000 Then
    IGR = revenu * 0.34
Else
    IGR = revenu * 0.38
End If
End Function

Sub test6()
Dim salairebrut As Currency
salairebrut = 50001
Debug.Print "Salairebrut=" & salairebrut & ",IGR=" & IGR2(salairebrut) & _
",Reste=" & salairebrut - IGR2(salairebrut) & ",Mensuel Net=" & _
(salairebrut - IGR2(salairebrut)) / 12 & " DH"
End Sub

Function IGR2(revenu As Currency) As Currency
'Revenu annuel
Select Case revenu
    Case Is < 30000
        IGR2 = 0
    Case 30000 To 50000
        IGR2 = revenu * 0.1
    Case 50000 To 60000
        IGR2 = revenu * 0.2
    Case 60000 To 80000
        IGR2 = revenu * 0.3
    Case 80000 To 180000
        IGR2 = revenu * 0.34
    Case Else
        IGR2 = revenu * 0.38
End Select
End Function

Commentaires

Enregistrer un commentaire

Posts les plus consultés de ce blog

Nom des services Windows en Français et en Anglais

Nom long anglais Nom court Nom long français ActiveX Installer (AxInstSV) AxInstSV Programme d’installation ActiveX (AxInstSV) Adaptive Brightness SensrSvc Brillance adaptative Application Experience AeLookupSvc Expérience d’application Application Host Helper Service AppHostSvc Application Host Helper Service Application Identity AppIDSvc Identité de l’application Application Information Appinfo Informations d’application Application Layer Gateway Service ALG Service de la passerelle de la couche Application Application Management AppMgmt Gestion d’applications ASP.NET State Service aspnet_state Service d'état ASP.NET Background Intelligent Transfer Service BITS Service de transfert intelligent en arrière-plan Base Filtering Engine BFE Moteur de filtrage de base BitLocker Drive Encryption Service BDESVC Servic...
Lire la suite

Comment afficher le mot de passe d’une connexion wifi mémorisé sur une machine Windows

Image
Problème : Je me suis connecté une fois sur un réseau wifi à partir de mon PC. Plus tard, j’ai voulu me connecter en utilisant mon mobile mais le problème c’est que je ne me rappelle plus du mot de passe. Dans ce qui suit je vous montre comment récupérer le mot de passe sauvegardé sur le PC. Procédure Aller sur Centre Réseau et Partage (cliquer avec le bouton droit sur l'icone du wifi sur la barre de taches). Cliquer sur la connexion wifi Cliquer sur le bouton Propriétés sans fil. Choisir l’onglet Sécurité Cliquer sur la case à cocher Afficher les caractères
Lire la suite

Techniques de Recherche sur google

Image
L'histoire a commencé par deux jeunes chercheurs à Stanford qui ont travaillé sur un projet appelé "Digital Library" Sergey Brin (21 ans) et Larry Page (22 ans) Ils ont développé un puissant algorithme appelé PageRank (pour rendre hommage à Larry Page). Ce qui a permis à passer d'une simple machine en Lego remarquer au passage les couleurs utilisées par google à un des plus grands data centers au monde Le premier serveur utilisé par les fondateurs de google est maintenant exposé dans le musée de l’informatique de l’université de Stanford est composé de  10 disques durs de 4Go  (la capacité maximale à l’époque). (Voir: http://infolab.stanford.edu/pub/voy/museum/pictures/display/0-4-Google.htm) Et qui fait passer l'action de 85$US au lancement de la société Google à plus de 740 $US aujourd’hui. En fait, depuis le 2 octobre une nouvelle société a été fondée (Alphabet Inc.) et son PDG est Larry Page alors que google est présidée par l’hind...
Lire la suite