Tri

[Marc Patrice]

Bonjour au forum,

ma question est la suivante: est-il possible de trier des colonnes de l'onglet A à partir de l'onglet B - l'onglet A étant rendu invisible(xlSheetHidden) ? Car j'essaie et ca bloque chaque fois.

Merci d'avance pour vos réponses.

@+

 

[Zon]

Salut,

Tu ne peux pas utiliser la méthode sort sur une feuille cachée, mais tu peux passer par un tableau VBA et trier celui ci.


A+++

 

[MARC PATRICE]

Merci zon pour ta réponse;

saurais tu m'expliquer comment creer ce fameux tableau vba?

@++

 

[Zon]

Re,

Par exemple:
sub exemple()
DIm T
T=sheets("lenomdetafeuillecachée").usedrange.value 'ou la plage désirée
'On détermine le nombre de lignes déterminée par Ubound(t,1) et le nombre de colonnes par Ubound(t,2)

trimulti T,2,1,ubound(t) 'Ici on trie la colonne 2
sheets("lenomdelafeuilleNoncachée").[A1].resize(ubound(t,1),ubound(t,2))=t
end sub

Sub TriMulti(Tablo, Col As Byte, Min&, Max&) 'ZOn
Dim I&, J&, K&, M, Chaine
I = Min
J = Max
M = Tablo((Min + Max) / 2, Col)
While (I <= J)
While (Tablo(I, Col) < M And I < Max)
I = I + 1
Wend
While (M < Tablo(J, Col) And J > Min)
J = J - 1
Wend
If (I <= J) Then
For K = LBound(Tablo, 2) To UBound(Tablo, 2)
Chaine = Tablo(I, K)
Tablo(I, K) = Tablo(J, K)
Tablo(J, K) = Chaine
Next K
I = I + 1
J = J - 1
End If
Wend
If (Min < J) Then TriMulti Tablo, Col, Min, J
If (I < Max) Then TriMulti Tablo, Col, I, Max
End Sub


A+++