inserer une ligne execel selon ordre alphabétique

Question

bonjour!

je travaille sous vb editor (VBA) pour excel.
J'ai cr&#233;&#233; une interface o&#249; le user rentre un titre. Dans la feuille Excel, il y a d&#233;j&#224; des titres ins&#233;r&#233;s, un par case, dans une m&#234;me colonne.
Il faut que le titre du user s'ins&#232;re dans la feuille Excel d'apr&#232;s l'ordre alphab&#233;tique.

Comment dois-je faire trouver la ligne Excel en dessous de laquelle je dois ins&#233;rer ce titre?

merci de votre aide.
  Daydayerement V&#244;tre

Molenn · Answer

Je pense qu'il y a plus simple à faire.

TU fais ajouter le titre automatiquement à la dernière ligne (avec une formule du style =NBVAL(...) tu as le nombre de ligne, à partir de là tu déduis la dernière et tu écris ton nouveau titre à la dernière ligne + 1).

Ensuite, dans une macro, tu sélectionne l'ensemble de tes titres

(range("A1:Adernièreligne +1").select 

et tu effectues un tri par ordra alphabétique sur ta zone

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Ca sera aussi simple je pense.

Molenn

RicoDeLaVega · Answer

Bonjour,

lignes=rows.count

for i=1 to lignes
   if cells(i,Lacolonne)>Variable   then
      Rows("i:i").Select
      Selection.Insert Shift:=xlUp
      cells(i,Lacolonne)=variable
  end if
next

Essaie Ca.
A+

Daydayer · Answer

ok, merci a tous les deux. je vais voir comment je peux faire avec ce que vous me conseillez.




  Daydayerement V&#244;tre

Inserer une ligne execel selon ordre alphabétique

3 réponses

Discussions similaires