liste déroulante permettant double ajout

wilfried_42

XLDnaute Barbatruc

• 9 Octobre 2007

• #2

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

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 9 Octobre 2007

• #3

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.

@+

 

Pièces jointes

• Liste_auto_maj_auto.zip

  3.4 KB · Affichages: 52
• Liste_auto_maj_auto.zip

  3.4 KB · Affichages: 50
• Liste_auto_maj_auto.zip

  3.4 KB · Affichages: 51

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Octobre 2007

• #4

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

 

Vote positif 0 Vote négatif

F

Flohb

Guest

• 10 Octobre 2007

• #5

Re : liste déroulante permettant double ajout

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

merci bcp

 

Vote positif 0 Vote négatif

F

Flohb

Guest

• 10 Octobre 2007

• #6

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"?

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 10 Octobre 2007

• #7

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

 

Pièces jointes

• DVChoixSuccessifs.xls

  39.5 KB · Affichages: 89
• DVChoixSuccessifs.xls

  39.5 KB · Affichages: 95
• DVChoixSuccessifs.xls

  39.5 KB · Affichages: 94

Vote positif 0 Vote négatif

F

Flohb

Guest

• 10 Octobre 2007

• #8

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"?

 

Vote positif 0 Vote négatif

F

Flohb

Guest

• 10 Octobre 2007

• #9

Re : liste déroulante permettant double ajout

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

 

Vote positif 0 Vote négatif