"copier/coller"+"trier"

fundhor · 30 Juin 2013

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 · 30 Juin 2013

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:

VB:

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 · 30 Juin 2013

Re : "copier/coller"+"trier"

Bonsoir à tous,

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

JHA

"copier/coller"+"trier"

fundhor

Guest

mapomme

XLDnaute Barbatruc

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

"copier/coller"+"trier"

fundhor

Guest

mapomme

XLDnaute Barbatruc

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency