Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Ch4 les conditions vba Cours VBA les conditions Les conditions sont très utiles en programmation elles nous serviront à e ?ectuer des actions en fonction de critères précis même principe que la fonction SI La principale fonction est If voici comment elle

Cours VBA les conditions Les conditions sont très utiles en programmation elles nous serviront à e ?ectuer des actions en fonction de critères précis même principe que la fonction SI La principale fonction est If voici comment elle fonctionne If CONDITION ICI Then ' SI condition validée ALORS 'Instructions si vrai Else ' SINON 'Instructions si faux End If Passons directement à la pratique et reprenons l'exemple développé à la leçon sur les variables Il avait pour but d'a ?cher dans une boite de dialogue la ligne du tableau correspondant au numéro indiqué dans la cellule F Fichier source conditions xls Si vous entrez une lettre en F cela génère un bug Nous voulons éviter cela Sub variables 'Déclaration des variables Dim nom As String prenom As String age As Integer numeroligne As Integer 'Valeurs des variables numeroligne Range F nom Cells numeroligne prenom Cells numeroligne age Cells numero ligne 'Bo? te de dialogue MsgBox nom prenom age ans End Sub CNous allons commencer par ajouter une condition pour véri ?er que la valeur de la cellule F est numérique avant d'exécuter le code La fonction IsNumeric sera utilisée dans cette condition Sub variables 'SI la valeur entre parenthèses cellule F est numérique DONC SI CONDITION VRAIE alors on 'exécute les instructions placées après THEN If IsNumeric Range F Then 'Déclaration des variables Dim nom As String prenom As String age As Integer numeroligne As Integer 'Valeurs des variables numeroligne Range F nom Cells numeroligne prenom Cells numeroligne age Cells numeroligne 'Bo? te de dialogue MsgBox nom prenom age ans End If End Sub Ajoutons également des instructions pour le cas o? la condition n'est pas remplie Sub variables If IsNumeric Range F Then 'SI CONDITION VRAIE 'Déclaration des variables Dim nom As String prenom As String age As Integer numeroligne As Integer 'Valeurs des variables numeroligne Range F nom Cells numeroligne prenom Cells numeroligne age Cells numeroligne 'Bo? te de dialogue MsgBox nom prenom age ans Else 'SI CONDITION FAUSSE 'Bo? te de dialogue avertissement MsgBox L'entrée Range F n'est pas valide 'Suppression du contenu de la cellule F Range F ClearContents End If End Sub Les valeurs non numériques ne sont désormais plus un problème CNotre tableau contient lignes de données nous allons donc véri ?er que la variable numero ligne soit plus grande ou égale à et plus petite ou égale à Mais avant voici les opérateurs de comparaison est égal à est di ?érent de est plus petit que est plus petit ou égal à est plus grand que est plus grand ou égal à Ainsi que d'autres opérateurs utiles AND et condition AND condition Les conditions doivent être vraies OR ou condition OR condition Au moins des conditions doit être vraie NOT faux NOT condition La condition doit être fausse Ajoutons maintenant les conditions indiquées un peu plus haut en utilisant AND ainsi que les opérateurs de comparaison détaillés ci-dessus Sub variables If IsNumeric Range F Then 'SI NUMERIQUE Dim nom As String prenom As