2. Boîte de liste
List Box est un élément de contrôle qui sert à afficher une liste de sélections, permettant à l’utilisateur de sélectionner un ou plusieurs éléments. Ceci est particulièrement utile dans les formulaires de saisie de données ou pour la navigation entre les pages dans les applications qui utilisent Excel VBA.
Comment faire pour ajouter des données à une zone de liste dans Excel VBA
- Ouvrez l’ onglet Developer dans Excel.
- Sélectionnez Insert > List Box (ActiveX Controls).
- Cliquez et faites glisser pour placer le List Box sur la feuille de calcul.
- Faites un clic droit sur List Box > Properties.
Exemple de code VBA pour ajouter des éléments à la zone de liste
Utilisez le code VBA suivant pour ajouter plusieurs noms de ville à l’List Box :
With Sheet1.ListBox1
.AddItem “Jakarta”
.AddItem “Surabaya”
.AddItem “Bandung”
End With
Ce code peut être placé dans Workbook_Open événement afin que les données soient chargées automatiquement lors de l’ouverture du fichier.
Connexion de zones de liste avec des cellules dans Excel
Pour afficher les éléments sélectionnés de l’List Box dans une cellule spécifique, effectuez les opérations suivantes :
- Faites un clic droit sur List Box, puis sélectionnez Properties.
- Recherchez la propriété LinkedCell, puis entrez l’adresse de la cellule (exemple : D3).
- Désormais, chaque fois que l’utilisateur sélectionne un élément dans le List Box, la valeur apparaîtra dans la cellule D3.
Si vous souhaitez récupérer la valeur sélectionnée à l’aide de VBA, utilisez le code suivant :
Range(“D3”).Value =ListBox1.Value
Autres articles intéressants
3. Boîte combo
Combo Box est un contrôle ActiveX dans Excel VBA qui sert de liste d’options qui peuvent être déroulées. Les utilisateurs peuvent sélectionner un seul élément dans la liste ou taper son texte. Un Combo Box est souvent utilisé dans les formulaires de saisie pour minimiser les erreurs lors de la saisie des données, car les utilisateurs ne peuvent choisir que parmi les options qui ont été fournies.
Comment ajouter des données dynamiques à une liste déroulante
Pour ajouter un Combo Box à une feuille de calcul, procédez comme suit :
- Ouvrez Excel et assurez-vous que l’ onglet Developer est activé.
- Cliquez sur Developer > Insert > Combo Box (ActiveX Controls).
- Cliquez et faites glisser pour dessiner Combo Box dans la feuille de calcul.
- Faites un clic droit sur Combo Box, puis sélectionnez Properties.
Exemple de code VBA pour ajouter dynamiquement des éléments à une liste déroulante
Utilisez le code suivant pour ajouter automatiquement des éléments au Combo Box lorsque le classeur est ouvert ou que l’on clique sur le bouton :
ComboBox.Add Item “Option 1”
ComboBox1.Add Item “Option 2”
ComboBox1.Add Item “Option 3”
Connexion de zones de liste déroulante avec des cellules dans Excel
Pour enregistrer la valeur sélectionnée dans le Combo Box dans une cellule spécifique, procédez comme suit :
- Faites un clic droit sur Combo Box, puis sélectionnez Properties.
- Recherchez la propriété LinkedCell, puis entrez l’adresse de la cellule (par exemple, D3).
- Désormais, chaque fois que l’utilisateur sélectionne un élément dans le Combo Box, cette valeur apparaîtra dans la cellule D3.
Vous pouvez également utiliser le code VBA suivant pour enregistrer la valeur de l’option dans la cellule :
Range(“D3”).Value ComboBox1.Value
4. Case à cocher
Check Box est un contrôle qui permet à l’utilisateur de sélectionner l’option Ya/Tidak ou True/False. Ceci est utile pour les entrées binaires telles que la confirmation du consentement, la sélection d’une fonctionnalité ou l’activation/désactivation d’une fonction dans un formulaire.
Utilisation de la case à cocher pour enregistrer les valeurs vrai/faux
Pour ajouter un Check Box dans Excel VBA, procédez comme suit :
- Ouvrez l’ onglet Developer dans Excel.
- Cliquez sur Insert > Check Box (ActiveX Controls).
- Cliquez et faites glisser pour placer le Check Box sur la feuille de calcul.
- Faites un clic droit sur Check Box > Properties.
Exemple de code VBA pour connecter une case à cocher à une cellule
Pour que Check Box stocker des valeurs dans des cellules en fonction de leur état, utilisez le code suivant :
If CheckBox1.Value =True Then
Range(“D2”).Value 1
Else
Range(“D2”).Value = 0
End If
Ce code remplira D2 cellules avec 1 si le Check Box est coché et 0 s’il n’est pas coché.
Pour que cette fonction s’exécute automatiquement lorsque l’utilisateur clique sur Check Box, utilisez event Change à l’intérieur du VBA Editor :