Discussion :

[lmc71]

Bonjour le Forum
Tout d'abord meilleurs voeux à tous.
J'ai une feuille de calcul qui en colonne A comporte des Noms et je voudrais que ces Noms servent à une liste déroulante triée pour cette même colonne. Je ne peux pas trier sur place la colonne A donc dans la colonne AA je me sers de la formule =A2 pour trier les noms et j'ai basé la liste déroulante sur la colonne AA.
Le soucis est que je ne peux pas effectuer de tri, de filtre ou tout autre chose pour trier cette colonne AA par ordre ascendant.
Est-ce qu'il existe une meilleur façon ?
Merci
Cordialement
PS : je joint une esquisse d'idée

[unparia]

Bonjour

Le soucis est que je ne peux pas effectuer de tri, de filtre ou tout autre chose pour trier cette colonne AA par ordre ascendant.

Et qu'est-ce qui t'en empêche donc ?
Précise-le

[Pierre Fauconnier]

Salut.

La question qui me vient à l'esprit: Pourquoi donc ne peux-tu pas trier en A?

Cette "interdiction" m'amène à penser à un défaut de conception. Peux-tu expliquer le contexte? (copie d'écran, ...)

PS: Le classeur lors de la demande, c'est bof bof...

[lmc71]

Re
Merci pour votre rapidité de réponse.
Je viens de me rendre compte qu'il est impossible de faire le tri sur une valeur qui n'existe pas encore.
En effet si je veux renseigner la cellule A2 avec la valeur de la plage A1:A50 que je renseigne moi-même je fais une boucle.
Pourquoi je ne peux pas trier en A, tout simplement que A fait partie d'un tableau qui ne doit pas être trié.
Il faut que je créer ma liste déroulante sur une valeur indépendante de ce tableau.
mille excuses pour le fichier joint. J'avais totalement oublié que c'était à la demande du répondeur.
merci

[lmc71]

Bonjour,
Dans le précédent post je me suis expliqué en donnant comme valeur que la liste déroulante devait provenir d'une source indépendante de la colonne où se trouve les cellules avec liste déroulante.
Après avoir cherché sur les forums j'ai trouvé ces codes qui fonctionnent mais que je n'arrive pas à finaliser à ma demande.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Activate()
valeur = Range("B6")
End Sub
 
Private Sub Worksheet_Calculate()
If Range("B6") <> valeur Then
MsgBox "B6 a changé"
valeur = Range("B6")
End If
End Sub

Je ne veux pas de MsgBox comme le propose le deuxième code.
Les valeurs à copier sont dans la feuille Factures des cellules E6:E240 et sont à recopier dans la même feuille dans les cellules AK6:AK240.
J'ai crée un code avec l'assistant me permettant de faire le copier/coller et de voudrais que cette action soit appliquée lorsqu'une cellule de E6:E240 soit modifiée.
Cette action me permettrait de faire le tri sur la colonne AK6:AK240 et que ces cellules soient la référence de ma liste déroulante.
Mon souci est que je ne maîtrise pas amplement le VBA pour pouvoir modifier ce code. Les modifications que j'ai apportées me font une boucle sans fin que je suis obligé d'arrêter manuellement.
Encore une fois merci
Cordialement

[kidone]

Bonjour,
Voila ce que j'ai pu vous faire, il ne reste plus qu'a déclenchez la macro avec un bouton ou autre
je ne suis pas un expert, mais j'ai essayé et ça fonctionne
Cordialement
Kidone

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Private Sub Worksheet_Activate()
'
' Macro1 Macro
'
Dim Fin As Long
'
    Range("E6:E240").Select
'si 240 = fixe
'    Fin = 240
'
' ou si la dernière cellule varie enlever la ligne "fin=240" et mettre les 2 lignes ci-dessous en enlevant le '
   Fin = Range("E" & Rows.Count).End(xlUp).Row
   Range("E6:E" & Fin).Select
'
    Selection.Copy
    Range("AK6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("AK6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("AK6:AK" & Fin)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
'
    Sheets("Feuil2").Select
    With Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=("=Feuil1!AK6:AK" & Fin)
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

[lmc71]

Bonjour Kidone
Je te remercie de ton travail qui fonctionne très bien. Si tu n'es pas un expert je suis encore plus nul que toi.
Je voudrais te demander pourquoi lorsque je quitte la feuil1 et que j'essaie de revenir dessus, je n'y arrive pas. J'ai été obligé de supprimer ce code et de le replacer dans Feuill1 et maintenant tout va bien.
Et est-ce qu'il est possible de supprimer les doublons dans la liste et de la classer par ordre alphabétique.
J'ai essayé de comprendre ton code. A quoi sert le Feuil2 et AK6 en feuill1 ?
Si je comprend bien AK en feuill1 sert au copiage, mais actuellement je ne vois rien.
et en A1 feuill2 itou
Merci
Cordialement