Remerciez-le!

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

Cours vba 19 les controles exercice

Cours VBA les contrôles exercice Pour mettre en pratique l'utilisation des contrôles rien de tel qu'un petit exercice Voici le point de départ de l'exercice Le ?chier controles exercice xls Vous l'aurez compris l'objectif est de remplir le tableau via le formulaire Quelques points à prendre en compte Lister les pays en fonction de la liste de la seconde feuille Véri ?er le contenu des contrôles avant d'ajouter un nouveau contact Après insertion réinitialiser les valeurs des contrôles sans fermer le formulaire Prenez un moment pour réaliser cet exercice avant de passer à la solution C Voici une solution pour réaliser cet exercice La première action e ?ectuée a été d'augmenter la propriété Zoom de l'UserForm à pour plus de confort à l'utilisation du formulaire Les tests des boutons d'option ont déjà été vus à la première page des contrôles c'est pour cela qu'une solution plus simple a été utilisée ici Le bouton Mme a été choisi par défaut propriété Value True cela implique qu'il ne sera pas nécessaire de véri ?er si le choix de la civilité a été e ?ectué Le bouton Fermer Private Sub CommandButtonFermerClick Unload Me End Sub Le contenu de la liste déroulante Private Sub UserFormInitialize 'Chargement de la liste au lancement de l'UserForm For i To 'Liste des pays de la feuille Pays ComboBoxPays AddItem Sheets Pays Cells i Next End Sub Achetez les autos d'USA véhicules à choisir Livraison en grands ports Africains auctionexport com Véri ?cation des contrôles Une solution simple consiste à a ?cher une bo? te de dialogue si l'un des contrôles est vide Private Sub CommandButtonAjouterClick If TextBoxNom Value Or TextBoxPrenom Value Or TextBoxAdresse Value Or TextBoxLieu Value Or ComboBoxPays Value Then MsgBox Formulaire incomplet Else 'Instructions pour insérer le contact ici End If End Sub Mais pour compliquer un peu les choses chaque contrôle sera testé individuellement et si l'un d'eux n'est pas rempli son intitulé Label sera coloré en rouge Private Sub CommandButtonAjouterClick 'Coloration des Labels en noir LabelNom ForeColor RGB LabelPrenom ForeColor RGB LabelAdresse ForeColor RGB LabelLieu ForeColor RGB LabelPays ForeColor RGB 'Contrôles de contenu If TextBoxNom Value Then 'SI pas de nom LabelNom ForeColor RGB 'Label nom en rouge ElseIf TextBoxPrenom Value Then LabelPrenom ForeColor RGB CElseIf TextBoxAdresse Value Then LabelAdresse ForeColor RGB ElseIf TextBoxLieu Value Then LabelLieu ForeColor RGB ElseIf ComboBoxPays Value Then LabelPays ForeColor RGB Else 'Instructions pour insérer le contact ici End If End Sub Insertion des données Le code suivant a été inséré à l'emplacement indiqué sur la code précédent sous forme de commentaire Dim noligne As Integer civilite As String 'Choix de civilité For Each boutoncivilite In FrameCivilite Controls If boutoncivilite Value Then civilite boutoncivilite Caption 'Civilité choisie End If Next 'noligne N de ligne de la dernière cellule non vide de la colonne noligne Range A End xlUp Row 'Insertion des valeurs sur la feuille Cells noligne civilite Cells noligne TextBoxNom Value Cells noligne TextBoxPrenom Value Cells noligne TextBoxAdresse Value Cells noligne TextBoxLieu Value Cells noligne ComboBoxPays Value 'Après