Une autre question de Tri...

[sharkantipav]

Bonjour tt le monde,
J'ai une question de tri originale que je n'arrive pas a resoudre en automatique/macro.

Voici mon cas:
Column A des Noms
Column B des Valeurs qui peuvent positives ou negatives

But
Je voudrais trier ces 2 colonnes de la facon suivante: avoir tt les negatifs tries alphabetiquement, puis en bas tt les positifs tries alphabetiquement

Manuellement d'habitude je trie Column B de facon decroissant puis insert une ligne au passage de valeurs negatives et positives, puis trie les valeurs negatif alphabetiquement et positives et efface la ligne au milieu
Je trouve ca lourd, si quelqu'un peut suggerer autre chose et si possible en VBA

Merci beaucoup

 

[Paritec]

Bonsoir Sharkantipav le forum
tu passes un petit fichier et on te fait cela
a+
Papou

 

[sharkantipav]

Bonsoir
voici un fichier test
Merci beaucoup

 

[BOISGONTIER]

Bonjour,

Sub essai()
  Range("c3:c" & [A65000].End(xlUp).Row).FormulaR1C1 = "=RC[-1]>0"
  Range("a3:c" & [A65000].End(xlUp).Row).Sort key1:=[C3], key2:=[A3], Header:=xlNo
  Cells(Application.Match(True, [C:C], 0), 1).Resize(, 2).Borders(xlEdgeTop).Weight = xlThin
  Range("c3:c" & [A65000].End(xlUp).Row).ClearContents
End Sub

jb

 

[sharkantipav]

Bonjour,

Sub essai()
    Range("c3:c" & [A65000].End(xlUp).Row).FormulaR1C1 = "=RC[-1]>0"
    Range("a3:c" & [A65000].End(xlUp).Row).Sort key1:=[C3], key2:=[A3], Header:=xlNo
    Range("c3:c" & [A65000].End(xlUp).Row).ClearContents
End Sub

jb

Franchement impressione. Merci bcp

 

[Paritec]

Re Sharkantipav le forum
voilà
a+
papou

 

[sharkantipav]

Merci bcp!!