Liste déroulante avec longueur (Mid)

job75

XLDnaute Barbatruc

• 2 Février 2019

• #2

Bonjour jefekoi,

2 solutions par formule et par VBA dans les fichiers joints.

A+

 

Pièces jointes

• essai par formule(1).xlsx

  17.5 KB · Affichages: 9
• essai par VBA(1).xlsm

  24.2 KB · Affichages: 13

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 2 Février 2019

• #3

Merci Job75, toujours présent pour répondre à mes demandes

J'ai peut être oublié de préciser que c'est du VBA (macro)

Merci quand même je garde ta formule

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Février 2019

• #4

C'est bien sûr à vous de choisir la solution qui vous convient.

 

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 2 Février 2019

• #5

Merci Job je n'avais pas vu la version Macro, mais il ne se passe rien.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Février 2019

• #6

Jefekoi à dit:

mais il ne se passe rien.

Cliquez pour agrandir...

Comment ça ? J'ai bien écrit :

Validez ou modifiez une cellule quelconque

Cliquez pour agrandir...

Maintenant si vous êtes sur MAC tant pis pour vous, changez d'ordinateur...

 

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 2 Février 2019

• #7

Oupsss désolé je viens de voir qu'il faut ajouter ... mais ce n'est pas mon but d'ajouter j'importe les données et je voudrais cette liste déroulante

 

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 2 Février 2019

• #8

Et pour info je suis sur PC

 

Pièces jointes

• 2.PNG

  99 KB · Affichages: 20

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 2 Février 2019

• #9

Bonjour,

Compatible MAC

Boisgontier

 

Pièces jointes

• Copie de essai.xlsm

  19.1 KB · Affichages: 12

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Février 2019

• #10

Bonjour JB,

Merci pour ta solution pour ceux qui utilisent MAC.

Mais pourquoi ne pas restituer la collection dans la feuille ?

Car en utilisant :

Code:

Target.Validation.Add xlValidateList, Formula1:=Join(a, ",")

il ne faut pas que Formula1 dépasse la limite de 8192 caractères.

A+

 

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 2 Février 2019

• #11

En tout cas vous m'aidez déjà bien merci à vous deux en plus j'aurais les 2 versions, bien que je préfère bosser sur la MAC histoire de confort comme vous pouvez voir sur la photo

 

Pièces jointes

• IMG_4983.jpg

  617.7 KB · Affichages: 21

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 2 Février 2019

• #12

Si la liste est longue, version avec ComboBox qui réduit la liste si on frappe les premières lettres.

Boisgontier

 

Pièces jointes

• Copie de essai2.xlsm

  32.1 KB · Affichages: 10

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 2 Février 2019

• #13

Merci beaucoup de ton aide BOISGONTIER je garde ta solution, mais pour l'instant j'ai opté pour la version MAC qui est compatible avec la version PC

 

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 5 Février 2019

• #14

Merci pour la version MAC

Je voudrais modifier une chose

Ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Le mettre dans un Sub et non pas dans un Private sub ...

Quelqu'un pourrait m'aider ?

Je pense que vous avez compris ma demande car moi et les termes d'Excel ...

Merci

PS: En fait je n'ai pas besoin d'actionner cette liste pour qu'elle en prenne compte vu que j'ai un bouton pour valider à coté....


Voici la source

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$G$5" Then
      Set f = Sheets("feuil2")
      Dim a()
      a = Application.Transpose(f.Range("D1:D" & f.[D65000].End(xlUp).Row).Value)
      For i = 1 To UBound(a): a(i) = Left(a(i), 5): Next i
      a = SansDoublonsMAC(a())
      Target.Validation.Delete
      Target.Validation.Add xlValidateList, Formula1:=Join(a, ",")
     End If
End Sub
Function SansDoublonsMAC(a())
   Dim Maliste As New Collection
   On Error Resume Next
   For i = LBound(a) To UBound(a)
     Maliste.Add Item:=a(i), Key:=a(i)
   Next i
   On Error GoTo 0
   Dim b(): ReDim b(1 To Maliste.Count)
   For i = 1 To Maliste.Count
     b(i) = Maliste(i)
   Next i
   SansDoublonsMAC = b
End Function

 

Dernière édition: 5 Février 2019

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 5 Février 2019

• #15

C'est bon finalement j'ai trouvé, je laisse le fichier pour les personnes qui cherche à créer une liste déroulante Compatible MAC.

 

Pièces jointes

• MenuMac.xlsm

  20 KB · Affichages: 9

Vote positif 0 Vote négatif