XL 2013 Liste déroulante sans doublons triée alphabétiquement

job75

XLDnaute Barbatruc

• 13 Décembre 2022

• #2

Bonsoir goube,

C'est bien simple.

La liste de validation en G23 est construite en dur par concaténation de cellules avec la virgule comme séparateur.

Or certaines cellules en G9:G967 de la feuille BDD_Stock contiennent des virgules, celles-ci sont donc considérées comme des séparateurs pour la liste de validation.

Une solution est de remplacer ces virgules par des points.

A+

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 14 Décembre 2022

• #3

Bonsoir,

Merci pour la réponse, c'est noté.
Bonne soirée,
Cordialement.
EDIT:
Remplacement fait, le problème persiste
Cordialement.

 

Dernière édition: 14 Décembre 2022

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Décembre 2022

• #4

Bonjour goube, le forum,

goube à dit:

Remplacement fait, le problème persiste

Cliquez pour agrandir...

Dans la liste de validation quels textes ne conviennent pas ?

A+

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 14 Décembre 2022

• #5

Bonjour job75,

Début de la liste déroulante


Début de la liste alpha issue du filtre

de plus, la validation de données saute lors de l'ouverture du fichier.

Cordialement.

 

Pièces jointes

• gestion-stock.xlsm

  212.6 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Décembre 2022

• #6

En colonne G de BDD_Stock il restait encore 65 virgules à remplacer par des points.

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 14 Décembre 2022

• #7

Re,

Bien vu, l'option Remplacer est à passer deux fois.
Merci.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Décembre 2022

• #8

goube à dit:

de plus, la validation de données saute lors de l'ouverture du fichier.

Cliquez pour agrandir...

Oui Excel supprime la liste de validation parce qu'il "répare" le fichier.

Je ne sais pas pourquoi mais d'évidence Excel n'aime pas du tout cette liste.

Alors il ne faut pas être plus royaliste que le roi, utilisez cette macro :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, r As Range, f$, a
Set cel = [G20] 'à adapter
cel.Validation.Delete 'RAZ
If Target.Address <> cel.Address Then Exit Sub
Set r = Feuil2.Range("G9", Feuil2.Range("G" & Rows.Count).End(xlUp)) 'à adapter
If r.Row < 9 Then Exit Sub
For Each r In r
    If r <> "" Then If InStr(f & Chr(1), Chr(1) & r & Chr(1)) = 0 Then f = f & Chr(1) & r
Next
a = Split(Mid(f, 2), Chr(1))
tri a, 0, UBound(a)
[J:J].ClearContents 'colonne masquée
[J1].Resize(UBound(a) + 1) = Application.Transpose(a) 'Transpose est limitée à 65536 lignes
cel.Validation.Add xlValidateList, Formula1:="=$J$1:$J$" & UBound(a) + 1 'création de la liste
End Sub

La liste est maintenant définie à partir de la plage en colonne J (masquée).

Il n'est plus question de virgules, je les ai donc remises en colonne G de la feuille BDD_Stock.

Pour cela j'ai dû afficher toutes les lignes qui étaient filtrées.

 

Pièces jointes

• gestion-stock(1).xlsm

  220.7 KB · Affichages: 2

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 14 Décembre 2022

• #9

Re,
Merci job75 pour cette proposition. Mais curieusement, les 65 virgules restantes supprimées, le fichier semble fonctionner sans problème.
Je garde ta proposition au cas où.
Encore merci, bonne soirée.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Décembre 2022

• #10

goube à dit:

Mais curieusement, les 65 virgules restantes supprimées, le fichier semble fonctionner sans problème.

Cliquez pour agrandir...

Chez moi après enregistrement il y a toujours l'alerte de réparation quand on rouvre le fichier.

Bonne nuit.

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 15 Décembre 2022

• #11

Bonsoir,
Voici la dernière mouture du fichier qui fonctionne sur mon poste.
A voir si le problème persiste sur le votre.
Cordialement.

 

Pièces jointes

• gestion-stock.xlsm

  209.3 KB · Affichages: 5

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Décembre 2022

• #12

Bonsoir goube,

goube à dit:

A voir si le problème persiste sur le votre.

Cliquez pour agrandir...

Cf post #10.

A+

 

Vote positif 0 Vote négatif