Tri alpha en commençant par une lettre autre que A

job75

XLDnaute Barbatruc

• 14 Janvier 2015

• #2

Re : Tri alpha en commençant par une lettre autre que A

Bonsoir yannlion,

yannlion à dit:

faut-il faire un tri de A à Z puis déplacer les lignes ? 😕

Cliquez pour agrandir...

Oui, et il faut une macro qui :

- trie d'abord le tableau en ordre croissant

- détermine la 1ère ligne commençant par "G" ou la 1ère lettre qui suit "G" si "G" est absent

- coupe la fin du tableau à partir de cette ligne et l'insère au début du tableau.

Bon petit exercice pour les amateurs de VBA 🙄

Bonne fin de soiée.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Janvier 2015

• #3

Re : Tri alpha en commençant par une lettre autre que A

Re,

Au cas où vous trainiez un peu pour écrire la macro :

Code:

Sub TRI()
Dim lettre$, P As Range, i&, lig&
lettre = "G" 'paramétrable
Set P = [B10:C24]
P.Copy P.Offset(, 3): Set P = P.Offset(, 3)  'facultatif, met le tableau à côté
P.Sort P(, 2), xlAscending, Header:=xlYes
For i = 2 To P.Rows.Count
 If UCase(P(i, 2)) >= UCase(lettre) Then lig = i: Exit For
Next
If lig Then
  Range(P.Rows(lig), P.Rows(P.Rows.Count)).Cut
  P.Rows(2).Insert xlDown
End If
End Sub

Fichier joint.

A+

 

Pièces jointes

• TRI_SPECIAL(1).xls

  51 KB · Affichages: 31

Vote positif 0 Vote négatif

Y

yannlion

XLDnaute Junior

• 14 Janvier 2015

• #4

Re : Tri alpha en commençant par une lettre autre que A

Job75,

C'est tout simplement bluffant !

Encore merci à toi
Yannnlion

 

Dernière édition: 14 Janvier 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Janvier 2015

• #5

Re : Tri alpha en commençant par une lettre autre que A

Re,

yannlion à dit:

Juste pour corser l'affaire, possible de trier directement le tableau sans faire de copie ?

Cliquez pour agrandir...

J'ai mis un commentaire dans la macro justement pour ça...

A+

 

Vote positif 0 Vote négatif

Y

yannlion

XLDnaute Junior

• 15 Janvier 2015

• #6

Re : Tri alpha en commençant par une lettre autre que A

Oui j'ai vu ça marche très bien merci !

 

Dernière édition: 16 Janvier 2015

Vote positif 0 Vote négatif