XL 2021 Cellule avec plusieurs options

[denistoulon]

Bonjour tout le monde,

Est-il possible de faire plusieurs choix dans une cellule?

Je m'explique: en A1 il est inscrit: Réunion du 14 janvier, en A2 j'ai la possibilité de choisir (cocher) plusieurs prénoms dans une liste et par exemple je coche Denis, Paul, Mélanie ont participé. Dans la cellule A2 il y a ces 3 prénoms.

Merci pour votre réponse.

 

[job75]

Bonjour denistoulon,

Voyez le fichier joint, les cases à cocher et cette formule en A2 :

=SUPPRESPACE(REPT("Denis";B1)&" "&REPT("Paul";C1)&" "&REPT("Mélanie";D1))

A+

 

[denistoulon]

Bonjour denistoulon,

Voyez le fichier joint, les cases à cocher et cette formule en A2 :

=SUPPRESPACE(REPT("Denis";B1)&" "&REPT("Paul";C1)&" "&REPT("Mélanie";D1))

A+

Merci pour ta réponse 🙂 mais est 'il possible que dans la cellule tu coches ces options pour éviter B1 C1 D1? Parce que si j,ai une autre réunion il va m'inscrire la même chose que dans la réunion du 14 janvier

 

[job75]

Ici les cellules liées sont B2 C2 D2 et les colonnes B C D sont masquées.

 

[denistoulon]

Ici les cellules liées sont B2 C2 D2 et les colonnes B C D sont masquées.

Merci pour ton travail mais comme je ne suis pas le seul à l'utiliser je souhaiterai si possible autre chose.
Dans le fichier que je t'ai renvoyé, j'ai G2 ou tu as les prénoms de la réunion du 14 janvier. Au lieu de liste ce sont des cases à cocher et ce que tu as coché est présent en G2.
Idem en H2
J'espère que je me suis fait bien comprendre.
Merci

 

[job75]

Allons allons en G2 vous avez mis une liste de validation : un seul nom peut être sélectionné !

 

[denistoulon]

Allons allons en G2 vous avez mis une liste de validation : un seul nom peut être sélectionné !

Oui je sais mais je ne veux pas une liste de validation mais la possibilité de cocher.
Je suis désolé mais je ne sais absolument pas faire

 

[job75]

Bon voici une solution VBA, voyez le fichier .xlsm joint et ces macros dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s, i%
With ListBox1
    If ActiveCell.Row <> 2 Then .Visible = False: Exit Sub
    .Top = ActiveCell.Top
    .Left = ActiveCell.Offset(, 1).Left
    s = Split(ActiveCell)
    For i = 0 To .ListCount - 1
        If UBound(s) = -1 Then .Selected(i) = False Else .Selected(i) = IsNumeric(Application.Match(.List(i, 0), s, 0))
    Next
    .Visible = True
End With
End Sub

Private Sub ListBox1_Change()
Dim i%
ActiveCell = ""
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then ActiveCell = Trim(ActiveCell & " " & .List(i, 0))
    Next
End With
End Sub

La ListBox s'affiche quand on sélectionne une cellule en ligne 2.

 

[denistoulon]

Bon voici une solution VBA, voyez le fichier .xlsm joint et ces macros dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s, i%
With ListBox1
    If ActiveCell.Row <> 2 Then .Visible = False: Exit Sub
    .Top = ActiveCell.Top
    .Left = ActiveCell.Offset(, 1).Left
    s = Split(ActiveCell)
    For i = 0 To .ListCount - 1
        If UBound(s) = -1 Then .Selected(i) = False Else .Selected(i) = IsNumeric(Application.Match(.List(i, 0), s, 0))
    Next
    .Visible = True
End With
End Sub

Private Sub ListBox1_Change()
Dim i%
ActiveCell = ""
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then ActiveCell = Trim(ActiveCell & " " & .List(i, 0))
    Next
End With
End Sub

La ListBox s'affiche quand on sélectionne une cellule en ligne 2.

Merci beaucoup pour votre attention mais la macro affiche un message d'erreur

Je suis désolé

 

[job75]

Ce message n'est pas normal car toutes les variables sont définies.

Dans VBA cliquez sur le menu Outils puis sur Référence, y a-t-il une référence MANQUANTE ? Laquelle ?

Si oui décochez-la et sélectionnez de nouveau une cellule en ligne 2.

 

[denistoulon]

Ce message n'est pas normal car toutes les variables sont définies.

Dans VBA cliquez sur le menu Outils puis sur Référence, y a-t-il une référence MANQUANTE ? Laquelle ?

Si oui décochez-la et sélectionnez de nouveau une cellule en ligne 2.

J'ai réussi mais comment fait on pour agrandir la fenêtre de sélection

Et comment je fais pour rajouter d'autres prénoms?

Merci pour votre aide

 

[job75]

Pour modifier la ListBox menu Développeur => Mode Création :

- modifiez la taille en redimensionnant le rectangle directement

- clic droit pour accéder aux propriétés et les modifier (Height, Width, ListFillRange, Font pour la police)

 

[job75]

Avec la ListBox dans la feuille il est préférable de ne pas toucher au Zoom 100 sinon cela modifie les dimensions de la ListBox.

Il vaut mieux modifier les tailles des polices, voyez le fichier joint avec une taille de 16 pour la feuille et pour la ListBox.

 

[denistoulon]

Pour modifier la ListBox menu Développeur => Mode Création :

- modifiez la taille en redimensionnant le rectangle directement

- clic droit pour accéder aux propriétés et les modifier (Height, Width, ListFillRange, Font pour la police)

merci

 

[denistoulon]

Avec la ListBox dans la feuille il est préférable de ne pas toucher au Zoom 100 sinon cela modifie les dimensions de la ListBox.

Il vaut mieux modifier les tailles des polices, voyez le fichier joint avec une taille de 16 pour la feuille et pour la ListBox.

Pfff tout cela pour rien parce que c'est un fichier sous teams et il ne prend pas en compte le VBA...
Je suis un peu démoralisé