{"id":8040,"date":"2019-02-10T18:51:22","date_gmt":"2019-02-10T17:51:22","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=8040"},"modified":"2019-02-11T00:22:18","modified_gmt":"2019-02-10T23:22:18","slug":"tests-conditionnels-en-basic-et-vba-structure-select-case-end-select","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=8040","title":{"rendered":"Tests conditionnels en Basic et VBA avec la structure Select Case&#8230; End Select"},"content":{"rendered":"<p style=\"text-align: justify;\">Les <a href=\"https:\/\/www.auditsi.eu\/?p=1797\">tests conditionnels<\/a> sont incontournables en programmation. La structure <a href=\"https:\/\/www.auditsi.eu\/?p=1797\"><em>If&#8230; Then&#8230; Else&#8230;<\/em><\/a>\u00a0(soit en fran\u00e7ais si\u2026 alors\u2026 sinon\u2026) est la plus commun\u00e9ment utilis\u00e9e. Toutefois, dans de nombreux cas, la structure <em>Select Case&#8230; End Select<\/em>, utilisable aussi bien en Basic et qu&#8217;en VBA, est bien plus appropri\u00e9e pour l&#8217;efficacit\u00e9 et la lisibilit\u00e9 du code que la structure <em>If&#8230; Then&#8230; Else&#8230;<\/em><\/p>\n<p style=\"text-align: justify;\">Cette structure de programmation permet d&#8217;effectuer une action selon qu&#8217;une condition est remplie ou non. La syntaxe de base est la suivante avec une <strong>variable num\u00e9rique<\/strong> :<\/p>\n<pre class=\"lang:vb decode:true\">Dim nombre As Integer\r\nSelect Case number\r\n    Case 1 To 10\r\n        ...\r\n    Case 11, 12, 13\r\n        ...\r\n    Case Else\r\n        ...\r\nEnd Select<\/pre>\n<p>Dans l&#8217;exemple pr\u00e9c\u00e9dent:<\/p>\n<ul>\n<li><em>Case 1 To 10<\/em> : la condition est r\u00e9alis\u00e9e si la valeur de la variable nombre est comprise entre 1 et 10 (bornes comprises) ;<\/li>\n<li><em>Case 11, 12, 13<\/em> : la condition est r\u00e9alis\u00e9e si la valeur de la variable nombre\u00a0\u00e9gale 11, 12 ou 13 ;<\/li>\n<li><em>Case Else<\/em> : la condition est r\u00e9alis\u00e9e si aucune autre ne l&#8217;a \u00e9t\u00e9.<\/li>\n<\/ul>\n<p style=\"text-align: justify;\">Avec une <strong>variable de type <em>String<\/em><\/strong>, le fonctionnement de Select Case est similaire :<\/p>\n<pre class=\"lang:vb decode:true\">Dim chaine as String\r\nSelect Case chaine\r\n    Case \"chaine 1\"\r\n        ...\r\n    Case \"chaine 2\", \"chaine 3\"\r\n        ...\r\n    Case Else\r\n        ...\r\nEnd Select<\/pre>\n<p style=\"text-align: justify;\">Les <a href=\"https:\/\/www.auditsi.eu\/?p=1797\">op\u00e9rateurs de comparaison<\/a> peuvent \u00eatre utilis\u00e9s pour r\u00e9diger les conditions.<\/p>\n<p style=\"text-align: justify;\">Approfondir le sujet\u00a0: <a href=\"https:\/\/www.auditsi.eu\/?cat=1207\">Initiation au langage Basic (s\u00e9rie d\u2019articles)<\/a>, <a title=\"Programmer en VBA\" href=\"http:\/\/www.auditsi.eu\/?cat=1569\">Programmer en VBA<\/a><\/p>\n<div style=\"padding-bottom:20px; padding-top:10px;\" class=\"hupso-share-buttons\"><!-- Hupso Share Buttons - https:\/\/www.hupso.com\/share\/ --><a class=\"hupso_counters\" href=\"https:\/\/www.hupso.com\/share\/\"><img decoding=\"async\" src=\"https:\/\/static.hupso.com\/share\/buttons\/lang\/fr\/share-small.png\" style=\"border:0px; padding-top:2px; float:left;\" alt=\"Share Button\"\/><\/a><script type=\"text\/javascript\">var hupso_services_c=new Array(\"twitter\",\"facebook_like\",\"facebook_send\",\"email\",\"print\",\"linkedin\");var hupso_counters_lang = \"fr_FR\";var hupso_image_folder_url = \"\";var hupso_twitter_via=\"BenoitRiviere14\";var hupso_url_c=\"\";var hupso_title_c=\"Tests%20conditionnels%20en%20Basic%20et%20VBA%20avec%20la%20structure%20Select%20Case...%20End%20Select\";<\/script><script type=\"text\/javascript\" src=\"https:\/\/static.hupso.com\/share\/js\/counters.js\"><\/script><!-- Hupso Share Buttons --><\/div>","protected":false},"excerpt":{"rendered":"<p>Les tests conditionnels sont incontournables en programmation. La structure If&#8230; Then&#8230; Else&#8230;\u00a0(soit en fran\u00e7ais si\u2026 alors\u2026 sinon\u2026) est la plus commun\u00e9ment utilis\u00e9e. Toutefois, dans de nombreux cas, la structure Select Case&#8230; End Select, utilisable aussi bien en Basic et qu&#8217;en VBA, est bien plus appropri\u00e9e pour l&#8217;efficacit\u00e9 et la lisibilit\u00e9 du code que la structure &#8230;<\/p>\n<p><a href=\"https:\/\/www.auditsi.eu\/?p=8040\" class=\"more-link\">Continue reading &lsquo;Tests conditionnels en Basic et VBA avec la structure Select Case&#8230; End Select&rsquo; &raquo;<\/a><\/p>\n<div style=\"padding-bottom:20px; padding-top:10px;\" class=\"hupso-share-buttons\"><!-- Hupso Share Buttons - https:\/\/www.hupso.com\/share\/ --><a class=\"hupso_counters\" href=\"https:\/\/www.hupso.com\/share\/\"><img src=\"https:\/\/static.hupso.com\/share\/buttons\/lang\/fr\/share-small.png\" style=\"border:0px; padding-top:2px; float:left;\" alt=\"Share Button\"\/><\/a><script type=\"text\/javascript\">var hupso_services_c=new Array(\"twitter\",\"facebook_like\",\"facebook_send\",\"email\",\"print\",\"linkedin\");var hupso_counters_lang = \"fr_FR\";var hupso_image_folder_url = \"\";var hupso_twitter_via=\"BenoitRiviere14\";var hupso_url_c=\"\";var hupso_title_c=\"Tests%20conditionnels%20en%20Basic%20et%20VBA%20avec%20la%20structure%20Select%20Case...%20End%20Select\";<\/script><script type=\"text\/javascript\" src=\"https:\/\/static.hupso.com\/share\/js\/counters.js\"><\/script><!-- Hupso Share Buttons --><\/div>","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"advanced_seo_description":"","jetpack_seo_html_title":"","jetpack_seo_noindex":false,"ngg_post_thumbnail":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","_links_to":"","_links_to_target":""},"categories":[442,215],"tags":[1647,388,222,1641],"class_list":["post-8040","post","type-post","status-publish","format-standard","hentry","category-basic","category-vba","tag-basic","tag-select-case","tag-tests-conditionnels","tag-vba"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_likes_enabled":false,"_links":{"self":[{"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/posts\/8040","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=8040"}],"version-history":[{"count":4,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/posts\/8040\/revisions"}],"predecessor-version":[{"id":8058,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=\/wp\/v2\/posts\/8040\/revisions\/8058"}],"wp:attachment":[{"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=8040"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=8040"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.auditsi.eu\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=8040"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}