"copier/coller"+"trier"

[fundhor]

Bonjour,

Je souhaite souhaite obtenir un résultat similaire à celui-ci,
B1=GRANDE.VALEUR(A$1:A$99;1)
B2=GRANDE.VALEUR(A$1:A$99;2)
B3=GRANDE.VALEUR(A$1:A$99;3)
=...etc

Le calcul prend beaucoup trop de temps, alors qu'en faisant copier colonne A coller en colonne B et trier par ordre de grandeur c'est rapide.

Je voudrais pouvoir modifier la colonne A et que B s'adapte automatiquement en fait.

Exemple :
A B
10 10
5 8
7 7
6 6
8 5

Merci !

 

[mapomme]

Re : "copier/coller"+"trier"

Bonsoir fundhor et bienvenu sur XLD,

voir un essai dansle fichier joint. La copie et le tri sont déclenchés soit par un clique sur le bouton noir soit par un changement de valeur dans la colonne A.

Le code dans le module de Feuil1:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("A:A"), Target) Is Nothing Then Trier_sans_doublons
End Sub

Sub Trier_sans_doublons()
Application.ScreenUpdating = False
  Range("A:A").Copy Range("B1")
  Range("B:B").Sort key1:=Range("B1"), order1:=xlDescending, Header:=xlNo
  Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[JHA]

Re : "copier/coller"+"trier"

Bonsoir à tous,

En mode tableau, entres des données en col "A" à la suite.

JHA