liste déroulante permettant double ajout

[Flohb]

Bonjour,

Je souhaiterais créer une liste déroulante me permettant d'ajouter, si je le veux, 2 voir 3 mots, choisis dans cette même liste, dans la même cellule.

Merci d'avance pour vos réponses.

 

[wilfried_42]

Re : liste déroulante permettant double ajout

Bonjour Flohb

A mon avis, ce n'est pas possible, la plus part des listes deroulantes, sont en realité des listess de validation

ce qui implique que la cellule doit comprendre une occurence de cette liste ou rien du tout

Si tu veux ajouter un ou deux mots dans cette cellule, il faut modifier la liste de validation, et y integrer ces valeurs, dans ce cas tu perds l'origine de ta liste de validation

C'est neanmoins faisable, mais autrement, via VBA par macro, et sans liste de validation

 

[Tibo]

Re : liste déroulante permettant double ajout

Bonjour,

Un essai avec un fichier trouvé ici (André si ma mémoire est bonne).

Dans la zone de saisie, on peut rajouter une donnée qui est ensuite dispo dans la liste déroulante pour les saisies suivantes.

Le tout, sous réserve d'avoir compris la demande de Flohb

A tester.

@+

 

[BOISGONTIER]

Re : liste déroulante permettant double ajout

Bonjour,


Données/Validation

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" And Target.Count = 1 Then
Application.EnableEvents = False
p = InStr(Target.Offset(0, -1), Target.Value)
If p > 0 Then
Target.Offset(0, -1) = Left(Target.Offset(0, -1), p - 1) & _
Mid(Target.Offset(0, -1), p + Len(Target.Value) + 1)
Else
Target.Offset(0, -1) = Target.Offset(0, -1) & Target.Value & " "
End If
Target.Value = Target.Offset(0, -1)
Application.EnableEvents = True
End If
End Sub

JB
Formation Excel VBA JB

 

[Flohb]

Re : liste déroulante permettant double ajout

c exactement ce quil me fallait, il me reste plus qu'à l'adapter

merci bcp

 

[Flohb]

Re : liste déroulante permettant double ajout

bonjour,

encore juste une petite question, si je veux adapter ce code non plus à une seule cellule mais a plusieurs cellule d'une même colonne, coment dois je configurer le "target.adress"?

 

[BOISGONTIER]

Re : liste déroulante permettant double ajout

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
Application.EnableEvents = False
p = InStr(Target.Offset(0, -1), Target.Value)
If p > 0 Then
Target.Offset(0, -1) = Left(Target.Offset(0, -1), p - 1) & _
Mid(Target.Offset(0, -1), p + Len(Target.Value) + 1)
Else
Target.Offset(0, -1) = Target.Offset(0, -1) & Target.Value & " "
End If
Target.Value = Target.Offset(0, -1)
Application.EnableEvents = True
End If
End Sub

JB

 

[Flohb]

Re : liste déroulante permettant double ajout

bonjour,

encore juste une petite question, si je veux adapter ce code non plus à une seule cellule mais a plusieurs cellule d'une même colonne, coment dois je configurer le "target.adress"?

 

[Flohb]

Re : liste déroulante permettant double ajout

oups jai bugger merci bcp pour ces réponses hyper rapide