Liste déroulante avec longueur (Mid)

[Jefekoi]

Bonjour,

Un peu trop tard mais Meilleur vœux à vous tous.

Je ne vais pas dire que je suis débutant en macro Excel (car c'est ce que l'on retrouve le plus souvent dans divers forum de demande d'aide)

Je n'arrive pas à me concentrer pour trouver la solution :

Faire une liste déroulante sans doublon et en récupérant les 5 première lettres des cellules.
Je vous laisse mon exemple, vous comprendrez surement mieux que mes commentaires à 2 balles.

Merci à tous

Eric

 

[job75]

Bonjour jefekoi,

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

A+

 

[Jefekoi]

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

 

[job75]

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

 

[Jefekoi]

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

 

[job75]

mais il ne se passe rien.

Comment ça ? J'ai bien écrit :

Validez ou modifiez une cellule quelconque

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

 

[Jefekoi]

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

 

[Jefekoi]

Et pour info je suis sur PC

 

[BOISGONTIER]

Bonjour,

Compatible MAC

Boisgontier

 

[job75]

Bonjour JB,

Merci pour ta solution pour ceux qui utilisent MAC.

Mais pourquoi ne pas restituer la collection dans la feuille ?

Car en utilisant :

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

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

Edit : non c'est 255 caractères :

https://excel-downloads.com/threads/macro-liste-deroulante-bug.20083737/#post-20651694

A+

 

[Jefekoi]

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

 

[BOISGONTIER]

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

Boisgontier

 

[Jefekoi]

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

 

[Jefekoi]

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

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

 

[Jefekoi]

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