Sélection multiple dans une cellule

Bonjour,

Dans Un fichier Excel j'aimerai pouvoir sélectionner plusieurs choix dans quelques cellules seulement.

Par exemple dans les cellules A1 B12 et C16 je voudrais pouvoir sélectionner plusieurs choix d'une liste deroulante mais dans tout le reste du classeur mes cellules doivent rester classiques.

J'ai trouver cette formule mais deux problèmes;

Comment mettre plusieurs cellules au lieux du A1

Quand je teste la formule, impossible d'effacer la sélection par la suite (touche effacer, supp... rien ne fonctionne)

Pouvez vous m'aider?

merci

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cell As Range

Dim OldValue As String

Dim NewValue As String

On Error Resume Next

If Not Intersect(Target, Me.Range("A1")) Is Nothing Then ' Remplacez "A1" par la cellule contenant la liste déroulante

Application.EnableEvents = False

NewValue = Target.Value

Application.Undo

OldValue = Target.Value

If OldValue = "" Then

Target.Value = NewValue

Else

If NewValue = "" Then

Target.Value = OldValue

Else

Target.Value = OldValue & ", " & NewValue

End If

End If

Application.EnableEvents = True

End If

End Sub

Edit modo = merci d'utiliser les balises de code pour poster un code en cliquant sur l'icone </> disponible dans la barre de menu

Bonjour

Je n'ai pas trop compris la finalité quand vous écrivez "pouvoir sélectionner plusieurs choix d'une liste deroulante"

Là votre code fait ceci: Si par exemple vous entrez la valeur 1 en A1 et que vous la remplacez par la valeur 2, le code vous mettra 1, 2 en A1.
Est- ce bien cela qui est recherché ?

Sinon testez le code comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OldValue As String
Dim NewValue As String

On Error GoTo fin

If Not Intersect(Target, Range("A1,B12,C16")) Is Nothing Then
    If Target.Value = vbNullString Then Exit Sub
    Application.EnableEvents = False
    NewValue = Target.Value
    Application.Undo
    OldValue = Target.Value

    If OldValue = "" Then
        Target.Value = NewValue
    Else
        If NewValue = "" Then
            Target.Value = OldValue
        Else
            Target.Value = OldValue & ", " & NewValue
        End If
    End If
End If
fin:
Application.EnableEvents = True
End Sub

Au besoin mettez un fichier sans données confidentielles

Crdlt

Bonjour PTUT,
Salut à toi Dan, au grand modo

D'après la demande et de ce que j'ai compris, à partir d'une validation de donnée (liste) dans 3 cellules différentes

Bonne soirée

Re
Bonjour JExcel2FR,

Avec liste déroulante cela donne le même résultat que ma proposition.
D'ailleurs cela me rappelle que j'ai fait un truc identique il y a quelques années... mais bon comment retrouver le fil...

Crdlt

Edit : ah ben si tiens voilà le fil --> https://forum.excel-pratique.com/s/goto/995976. On évitait même de rentrer deux fois la même chose. Ce qui n'est pas prévu ici.

Bonjour à tous!

J'ai trouver ma réponse dans le lien donné par Dan.

Merciii beaucoup pour vos réponses rapides!

Bonjour

Merci du retour

Pensez à cloturer votre fil

Cordialement