Note: The other languages of the website are Google-translated. Back to English

Comment créer une liste déroulante avec plusieurs cases à cocher dans Excel?

De nombreux utilisateurs d'Excel ont tendance à créer une liste déroulante avec plusieurs cases à cocher afin de sélectionner plusieurs éléments de la liste à la fois. En fait, vous ne pouvez pas créer une liste avec plusieurs cases à cocher avec la validation des données. Dans ce didacticiel, nous allons vous montrer deux méthodes pour créer une liste déroulante avec plusieurs cases à cocher dans Excel.

Utilisez la zone de liste pour créer une liste déroulante avec plusieurs cases à cocher
A: Créer une zone de liste avec des données source
B: Nommez la cellule dans laquelle vous localiserez les éléments sélectionnés
C: Insérez une forme pour aider à produire les éléments sélectionnés
Créez facilement une liste déroulante avec des cases à cocher avec un outil incroyable
Plus de tutoriels pour la liste déroulante ...


Utilisez la zone de liste pour créer une liste déroulante avec plusieurs cases à cocher

Comme illustré ci-dessous, dans la feuille de calcul actuelle, tous les noms de la plage A2: A11 seront les données source de la zone de liste. Cliquez sur le bouton dans la cellule C4 pour afficher les éléments sélectionnés, et tous les éléments sélectionnés dans la zone de liste seront affichés dans la cellule E4. Pour ce faire, procédez comme suit.

A. Créer une zone de liste avec les données source

1. Cliquez Développeur > insérer > Zone de liste (contrôle Active X). Voir la capture d'écran:

2. Dessinez une zone de liste dans la feuille de calcul actuelle, cliquez dessus avec le bouton droit de la souris, puis sélectionnez Propriétés dans le menu contextuel.

3. dans le Propriétés boîte de dialogue, vous devez configurer comme suit.

  • 3.1 Dans le ListRemplirPlage , entrez la plage source que vous afficherez dans la liste (ici j'entre A2: A11);
  • 3.2 Dans le Style de liste boîte, sélectionnez 1 - Option de style fmList;
  • 3.3 Dans le Sélection multiple boîte, sélectionnez 1 - fmMultiSelectMulti;
  • 3.4 Fermez le Propriétés boite de dialogue. Voir la capture d'écran:

B: Nommez la cellule dans laquelle vous localiserez les éléments sélectionnés

Si vous avez besoin de sortir tous les éléments sélectionnés dans une cellule spécifiée telle que E4, procédez comme suit.

1. Sélectionnez la cellule E4, entrez ListBoxSortie into the Zone Nom et appuyez sur Entrer clé.

C. Insérez une forme pour aider à produire les éléments sélectionnés

1. Cliquez insérer > Formes > Rectangle. Voir capture d'écran:

2. Dessinez un rectangle dans votre feuille de calcul (ici je dessine le rectangle dans la cellule C4). Puis faites un clic droit sur le rectangle et sélectionnez Attribuer une macro dans le menu contextuel.

3. dans le Attribuer une macro boîte de dialogue, cliquez sur le Nouveautés .

4. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, veuillez remplacer le code d'origine dans le Module fenêtre avec le code VBA ci-dessous.

Code VBA: créer une liste avec plusieurs cases à cocher

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Remarque : Dans le code, Rectangle1 est le nom de la forme; ListBox1 est le nom de la zone de liste; Plus d'options et un Options de ramassage sont les textes affichés de la forme; et le ListBoxSortie est le nom de plage de la cellule de sortie. Vous pouvez les modifier en fonction de vos besoins.

5. presse autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.

6. Cliquez sur le bouton rectangle pour plier ou agrandir la zone de liste. Lorsque la zone de liste se développe, vérifiez les éléments de la zone de liste, puis cliquez à nouveau sur le rectangle pour exporter tous les éléments sélectionnés dans la cellule E4. Voir la démo ci-dessous:

7. Et puis enregistrez le classeur en tant que Classeur Excel MacroEnable pour réutiliser le code dans le futur.


Créez une liste déroulante avec des cases à cocher avec un outil incroyable

La méthode ci-dessus est trop multi-étapes pour être manipulée facilement. Ici, je recommande vivement le Liste déroulante avec cases à cocher utilité de Kutools pour Excel pour vous aider à créer facilement une liste déroulante avec des cases à cocher dans une plage spécifiée, la feuille de calcul actuelle, le classeur actuel ou tous les classeurs ouverts en fonction de vos besoins. Voir la démo ci-dessous:
Téléchargez et essayez-le maintenant! (Parcours gratuit de 30 jours)

Outre la démo ci-dessus, nous fournissons également un guide étape par étape pour montrer comment appliquer cette fonctionnalité pour accomplir cette tâche. Veuillez faire comme suit.

1. Ouvrez la feuille de calcul pour laquelle vous avez défini la liste déroulante de validation des données, cliquez sur Kutools > La liste déroulante > Liste déroulante avec cases à cocher > Paramètres. Voir capture d'écran:

2. dans le Liste déroulante avec les paramètres des cases à cocher boîte de dialogue, veuillez configurer comme suit.

  • 2.1) Dans le Appliquer à , spécifiez la portée d'application dans laquelle vous allez créer des cases à cocher pour les éléments de la liste déroulante. Vous pouvez spécifier un certaine gamme, feuille de calcul actuelle, classeur actuel or tous les classeurs ouverts en fonction de vos besoins.
  • 2.2) Dans le Mode section, choisissez un style dans lequel vous souhaitez sortir les éléments sélectionnés;
  • Ici prend le modifier à titre d'exemple, si vous choisissez cette option, la valeur de la cellule sera modifiée en fonction des éléments sélectionnés.
  • 2.3) Dans le Séparateur , entrez un délimiteur que vous utiliserez pour séparer les multiples éléments;
  • 2.4) Dans le Direction du texte section, sélectionnez une direction du texte en fonction de vos besoins;
  • 2.5) Cliquez sur le OK .

3. La dernière étape, cliquez sur Kutools > La liste déroulante > Liste déroulante avec cases à cocher > Activer la liste déroulante des cases à cocher pour activer cette fonction.

À partir de maintenant, lorsque vous cliquez sur les cellules avec la liste déroulante dans une portée spécifiée, une zone de liste apparaîtra, veuillez sélectionner les éléments en cochant les cases à cocher pour sortir dans la cellule comme la démo ci-dessous montrée (prenez le mode Modifier comme exemple ).

Pour plus de détails sur cette fonctionnalité, veuillez visiter ici.

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.


Articles Liés:

Saisie semi-automatique lors de la saisie dans la liste déroulante Excel
Si vous avez une liste déroulante de validation des données avec de grandes valeurs, vous devez faire défiler la liste vers le bas juste pour trouver la bonne, ou taper le mot entier directement dans la zone de liste. S'il existe une méthode permettant de compléter automatiquement lors de la saisie de la première lettre dans la liste déroulante, tout deviendra plus facile. Ce didacticiel fournit la méthode pour résoudre le problème.

Créer une liste déroulante à partir d'un autre classeur dans Excel
Il est assez facile de créer une liste déroulante de validation des données parmi les feuilles de calcul d'un classeur. Mais si les données de liste dont vous avez besoin pour la validation des données se trouvent dans un autre classeur, que feriez-vous? Dans ce didacticiel, vous apprendrez à créer une liste déroulante à partir d'un autre classeur dans Excel en détail.

Créer une liste déroulante consultable dans Excel
Pour une liste déroulante avec de nombreuses valeurs, trouver la bonne n'est pas une tâche facile. Auparavant, nous avons introduit une méthode de liste déroulante de remplissage automatique lorsque vous entrez la première lettre dans la liste déroulante. Outre la fonction de saisie semi-automatique, vous pouvez également rendre la liste déroulante consultable pour améliorer l'efficacité du travail en trouvant les valeurs appropriées dans la liste déroulante. Pour rendre la liste déroulante consultable, essayez la méthode de ce didacticiel.

Remplir automatiquement d'autres cellules lors de la sélection de valeurs dans la liste déroulante Excel
Supposons que vous ayez créé une liste déroulante basée sur les valeurs de la plage de cellules B8: B14. Lorsque vous sélectionnez une valeur dans la liste déroulante, vous souhaitez que les valeurs correspondantes dans la plage de cellules C8: C14 soient automatiquement renseignées dans une cellule sélectionnée. Pour résoudre le problème, les méthodes de ce didacticiel vous rendront service.

Plus de tutoriels pour la liste déroulante ...


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (67)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
C'est fantastique. Mais ce sera mieux si la sélection multiple peut être placée à l'endroit où le curseur est actif. Pas nécessairement ce que le code spécifie.
Ce commentaire a été minimisé par le modérateur sur le site
C'est exactement ce que je cherchais, le code peut-il être modifié pour permettre aux données sélectionnées de s'afficher dans des cellules séparées en bas de la colonne ? donc au lieu de : lundi, mardi, mercredi, afficher comme. lundi Mardi Mercredi
Ce commentaire a été minimisé par le modérateur sur le site
C'est exactement ce que je cherchais, y a-t-il une modification du code qui mettra la prochaine sélection de la liste dans la ligne suivante. par exemple un deux trois Au lieu de : un, deux, trois
Ce commentaire a été minimisé par le modérateur sur le site
pouvez-vous s'il vous plaît expliquer comment vous avez ajouté ListBoxOutput sur la cellule E4
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Comment pouvez-vous copier cette zone de liste pour plusieurs cellules. Le simple copier-coller ne fonctionne pas. Pourriez-vous s'il vous plaît expliquer par exemple dans chaque cellule (E5,E6,E7,E8, ...) comment puis-je mettre cette boîte de sélection?
Ce commentaire a été minimisé par le modérateur sur le site
pourriez-vous s'il vous plaît expliquer comment puis-je facilement copier cette zone de liste pour 100 lignes? (zones de liste séparées pour chacune des 100 lignes)
Ce commentaire a été minimisé par le modérateur sur le site
Une fois la sortie terminée et appuyez à nouveau sur le bouton, les éléments précédemment sélectionnés dans la zone de liste ne peuvent pas être modifiés. Comment résoudre ?
Ce commentaire a été minimisé par le modérateur sur le site
Merci! C'est super et ça marche !
Ce commentaire a été minimisé par le modérateur sur le site
Je suis novice dans ce domaine, mais quelqu'un peut-il me dire comment créer une liste déroulante à sélection multiple qui s'ouvrira, par exemple, lorsque je sélectionnerai un nom. Je veux que la zone de liste tienne dans un seul.
EXEMPLE : J'ai une liste de noms avec des informations de contact, etc. Je souhaite créer une liste déroulante en double pour chaque nom de ma liste. J'aimerais qu'il s'ouvre automatiquement lorsque je sélectionne un nom et se replie dans la cellule lorsque je passe à une autre ligne d'informations. S'il vous plaît donnez votre avis. Merci d'avance.
Ce commentaire a été minimisé par le modérateur sur le site
Cher Randy,
Désolé, je ne peux pas résoudre ce problème.
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne parfaitement selon les instructions, Cependant, si je protège la feuille, cela donne une erreur. Une solution de contournement pour cela?
Ce commentaire a été minimisé par le modérateur sur le site
Fonctionne parfaitement selon les instructions. Mais, comment puis-je l'utiliser sur une feuille protégée. Actuellement, si j'utilise ceci après avoir protégé la feuille, cela me donne une erreur "Erreur d'exécution '-2147024809 (80070057)' : la valeur spécifiée est hors plage"
Ce commentaire a été minimisé par le modérateur sur le site
Cher Amit Sood,
Avant de protéger la feuille de calcul, veuillez formater la cellule de sortie comme déverrouillée, puis appliquer le code VBA ci-dessous. Merci pour votre commentaire.

Sous Rectangle2_Clic()
Dim xSelShp As Shape, xSelLst As Variant, I As Integer
On Error Resume Next
Définir xSelShp = ActiveSheet.Shapes(Application.Caller)
Définir xLstBox = ActiveSheet.ListBox1
Si xLstBox.Visible = False Alors
xLstBox.Visible = Vrai
xSelShp.TextFrame2.TextRange.Characters.Text = "Options de ramassage"
autre
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Sélectionner les options"
Pour I = xLstBox.ListCount - 1 à 0 pas -1
Si xLstBox.Selected(I) = Vrai Alors
xSelLst = xLstBox.List(I) & ";" & xSelLst
Si fin
Ensuite je
Si xSelLst <> "" Alors
Plage("ListBoxOutput") = Milieu(xSelLst, 1, Len(xSelLst) - 1)
autre
Range("ListBoxOutput") = ""
Si fin
Si fin
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
"J'ai créé un fichier en utilisant la zone de liste ActiveX comme vous l'avez expliqué, j'y ai entré des données et ajouté des propriétés également. J'ai vérifié certaines données à l'aide de la case à cocher dans la liste, puis enregistré et quitté le fichier. Mais alors que en rouvrant le fichier, il n'affiche aucune donnée vérifiée... quelqu'un peut-il me suggérer de sauvegarder ces mises à jour."
Est-ce que quelqu'un peut m'aider s'il vous plaît.
Ce commentaire a été minimisé par le modérateur sur le site
Good Day,
Veuillez placer le code VBA ci-dessous dans la fenêtre de code ThisWorkbook.
Dans le code, Sheet6 est le nom par défaut de la feuille de calcul qui contient la zone de liste dont vous souhaitez conserver les sélections, comme illustré ci-dessous. Et ListBox1 est le nom de la zone de liste. Veuillez les modifier selon vos besoins.

Private Sub Workbook_BeforeSave (ByVal SaveAsUI en tant que booléen, Cancel As Boolean)
Appeler les sélections d'enregistrement
End Sub

Sous-carnet de travail privé_Open ()
Appeler les sélections de restauration
End Sub

Private Sub SaveSelections()

Dim arr() As Variant, i As Long, j As Long

Avec Sheet6.OLEObjects("ListBox1").Object
Si .ListIndex > 0 Alors
Pour i = 0 To .ListCount - 1
Si .Sélectionné(i) Alors
j = j + 1
ReDim Preserve arr(1 à j)
arr(j) = je
Si fin
Suivant
Names.Add Name:="Selections", RefersTo:=arr, Visible:=False
Si fin
Terminer par

End Sub

Private Sub RestoreSelections()

Dim arr As Variant, i As Integer

arr = [Sélections]

Avec Sheet6.OLEObjects("ListBox1").Object
Pour i = 1 Vers UBound(arr)
.Selected(arr(i)) = Vrai
Suivant
Terminer par

End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour la réponse monsieur, mais cela ne fonctionne pas dans le cas de mon fichier, pouvez-vous s'il vous plaît envoyer votre identifiant de messagerie, afin que je puisse vous envoyer mon fichier.
Merci d'avance
Ce commentaire a été minimisé par le modérateur sur le site
Cher manjusha isac,
Veuillez envoyer votre fichier à zxm@addin99.com. J'espère que je peux aider.
Ce commentaire a été minimisé par le modérateur sur le site
En outre, vous devez enregistrer le classeur en tant que classeur Excel prenant en charge les macros et activer le code chaque fois que vous modifiez les sélections de la zone de liste.
Ce commentaire a été minimisé par le modérateur sur le site
je veux mettre à jour automatiquement les noms dans différentes colonnes. est-ce possible si possible merci de me partager le code.
Ce commentaire a été minimisé par le modérateur sur le site
INCROYABLE son fonctionnement, mais après avoir fermé Excel et l'avoir rouvert, la vérification de la case à cocher a disparu, donc si je clique sur le bouton, toute la liste disparaîtra, toute solution pour cela
s'il vous plaît, aidez-moi
Merci beaucoup d'avance
Ce commentaire a été minimisé par le modérateur sur le site
Cher ange,
Nous avons publié un article "Comment enregistrer ou conserver des sélections de list box ActiveX dans Excel ?" qui introduit la méthode d'enregistrement des sélections de zones de liste après la fermeture et la réouverture du classeur.
Vous pouvez suivre ce lien pour obtenir plus d'informations : https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Ce commentaire a été minimisé par le modérateur sur le site
incroyable ça marche mais j'ai un problème après avoir enregistré le fichier et l'avoir ouvert à nouveau le tout contrôle de la liste des cases à cocher est parti
pouvez-vous m'aider à celui-ci merci beaucoup
Ce commentaire a été minimisé par le modérateur sur le site
aussi, il change la taille de la zone de liste et la forme toujours après avoir enregistré et ouvert à nouveau le fichier si quelqu'un a une solution à ce problème, aidez-moi s'il vous plaît

je vous remercie beaucoup
Ce commentaire a été minimisé par le modérateur sur le site
Cher Mark,
Nous avons publié un article "Comment enregistrer ou conserver des sélections de list box ActiveX dans Excel ?" qui introduit la méthode d'enregistrement des sélections de zones de liste après la fermeture et la réouverture du classeur.
Vous pouvez suivre ce lien pour obtenir plus d'informations : https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

Je me demande s'il existe un moyen de diriger les options de ramassage vers plus d'une cellule (pas seulement E4), ou de faire des sélections une liste de contrôle déroulante afin que je puisse sélectionner plusieurs options dans une liste de contrôle, mais le faire à plusieurs reprises et indépendamment de la autres sélections que j'ai faites. Par exemple, comment pourrais-je utiliser la même liste d'options de ramassage pour entrer une sélection différente d'articles dans E5, E6, E7, etc. à partir de la même liste de ramassage.

Merci
Ce commentaire a été minimisé par le modérateur sur le site
Salut LizKats,
Veuillez essayer le code ci-dessous. J'espère que je peux aider. Merci.

Sous Rectangle2_Clic()

'Mis à jour par Extendoffice 20200529

Dim xSelShp As Shape, xSelLst As Variant, i As Integer

Définir xSelShp = ActiveSheet.Shapes(Application.Caller)

Définir xLstBox = ActiveSheet.ListBox1

Dim xRg As Range

Dim xCount, xFNum, xR, xC As Integer

Dim xStr As String

Si xLstBox.Visible = False Alors

xLstBox.Visible = Vrai

xSelShp.TextFrame2.TextRange.Characters.Text = "Options de ramassage"

autre

xLstBox.Visible = False

xSelShp.TextFrame2.TextRange.Characters.Text = "Sélectionner les options"

Définir xRg = Range("ListBoxOutput")

xCount = xLstBox.ListCount - 1

xStr = ""

Pour i = xLstBox.ListCount - 1 à 0 Étape -1

Si xLstBox.Selected(i) = Vrai Alors

xStr = xLstBox.List(i) & ";" & xStr

Si fin

Suivant i



Si xRg.Valeur = "" Alors

xRg.Valeur = xStr

autre

Définir xRg = xRg. Décalage(1, 0)

Faire tant que xRg.Valeur <> ""

Définir xRg = xRg. Décalage(1, 0)

boucle

xRg.Valeur = xStr

Si fin

Si fin

End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne bien, merci beaucoup pour votre aide. J'ai un problème ici, c'est que toute la sortie arrive dans la même cellule E4, comment pouvons-nous obtenir la sortie dans différentes cellules, par exemple : sortie pour C4 en E4, C5 en E5, C6 en E6, etc.
Ce commentaire a été minimisé par le modérateur sur le site
Good Day,
Le problème que vous avez mentionné ne peut pas encore être résolu.
Ce commentaire a été minimisé par le modérateur sur le site
Добрый день! Прошу помочь.
Как сделать так чтобы каждое значение выходило на новой клетке? чтобы по выходило по вертикали?
Ce commentaire a été minimisé par le modérateur sur le site
AIDER!!! comment sortie dans différentes gammes (verticalement)?
Ce commentaire a été minimisé par le modérateur sur le site
Sous Rectangle2_Clic()
'Mis à jour par Extendoffice 20190924
Dim xSelShp As Shape, xSelLst As Variant, I As Integer
Dim xRg As Range
Définir xSelShp = ActiveSheet.Shapes(Application.Caller)
Définir xLstBox = ActiveSheet.ListBox1
Si xLstBox.Visible = False Alors
xLstBox.Visible = Vrai
xSelShp.TextFrame2.TextRange.Characters.Text = "Options de ramassage"
autre
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Sélectionner les options"
Définir xRg = Range("ListBoxOutput")
Pour je = 0 Vers xLstBox.ListCount - 1
Si xLstBox.Selected(I) = Vrai Alors
xSelLst = xLstBox.Liste(I)
xRg.Value = Mid(xSelLst, 1, Len(xSelLst))
Définir xRg = xRg. Décalage(1, 0)
Si fin
Ensuite je
Si fin
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Como puedo replicar éste ejercicio en las filas superiores ?
Comment puis-je reproduire cet exercice dans les lignes ci-dessous ?
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés