Ordre alphabétique

Question

Bonjour,

J'ai besoin de votre aide.... !
J'aurai besoin d'une macro me permettant d'ins&#233;rer une plage de cellules directement &#224; sa place dans l'ordre alphab&#233;tique.

Par exemple, je tape un nom et une adresse, et j'ai besoin de stocker cette info dans un r&#233;pertoire, par ordre alphab&#233;tique pour plus de clart&#233;.

Auriez vous une solution?
(je suis TOUTE JEUNE d&#233;butante...)

Merci &#224; vous

mortalino · Answer

Salut,

Essai ça :

    Range("A1:B8").Select  'remplace la bonne plage de données
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

@ ++

Mortalino

Sophie1981 · Answer

&#231;a ne marche pas !! (mais peut-&#234;tre que je m'y prend mal... d'ailleurs c'est s&#251;rement &#231;a !)

Je vous joins une impression d'&#233;cran de ma base, pour que vous voyez bien comment elle fonctionne (parce que ce n'est pas &#233;vident de l'expliquer... chui nulle !!)

merci encore pour votre aide

mortalino · Answer

Désolé mes les images je ne les vois pas.
Je suppose que tu es avec Access, si c'est le cas, ca ne marchera pas car c'est pour Excel,

Je ne connais pas (peu) access donc si c'est ton cas je suis désolé mais j'abdique.

Sophie1981 · Answer

non non, je suis bien sur excel !

bon, alors si les images ne fonctionnent pas, je vais essayer de m'expliquer mieux :

sur ma feuille, dans la zone B2 &#224; F2, j'ai mis les titres suivants : b&#233;n&#233;ficiaire, adresse 1, adresse 2, adresse 3 et ville
dans les cellules B3 &#224; F3, j'entre les infos concernant un nouveau b&#233;n&#233;ficiaire.

sur la zone B7 &#224; F7, j'ai les m&#234;mes titres.
et &#224; partir de B8:F8, jusqu'&#224; ... l'infini, j'ai des infos concernant les b&#233;n&#233;ficiaires d&#233;j&#224; cr&#233;&#233;s.

Donc en fait ce que je voudrais, c'est que les infos que je tape dans mes cellules B3 &#224; F3, une fois valid&#233;es (par ex par un clic s/bouton), s'ins&#232;rent
directement dans la liste des b&#233;n&#233;ficiaires, dans l'ordre alphab&#233;tique...

J'esp&#232;re que c'est plus clair maintenant... et d&#233;sol&#233;e de vous emb&#234;ter...

mortalino · Answer

Alors place un bouton sur ta feuille Excel puis double click dessus puis

Sub CommandButton1_Click()
  Dim PremLiVide As Long
PremLiVide = Columns(2).Find("", [B65500], , , xlByRows, xlPrevious).Row

Range("B3:F3").Copy
Cells(PremLiVide, 2).Select
Selection.Paste

Range("B8:F" & PremLiVide).Select
      Selection.Sort Key1:=Range("B8"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal

End Sub

En gros il cherche la 1ere ligne vide en remontant de B65500, une fois trouvé, tes données placées de B3 à F3 sont mis a la fin de la liste puis le tri est fait de B8 à F derniere ligne.

Dis moi si ca te convient

Mortalino

Sophie1981 · Answer

je suis VRAIMENT d&#233;sol&#233;e, mais j'ai encore un message d'erreur...
"propri&#233;t&#233; ou m&#233;thode non  g&#233;r&#233;e par cet objet"...
et au d&#233;bogage, la ligne "selection.paste" est surlign&#233;e...

sinon, &#231;a me va nickel, peu importent les moyens, du moment que j'ai mon r&#233;sultat...

merci encore pour ce code qui va me permettre de gagner BEAUCOUP de temps....

mortalino · Answer

Resalut (désolé pour le retard)!

à la place de 
Cells(PremLiVide, 2).Select     met
Range("B" & PremLiVide).Select

peut -etre que là il acceptera la syntaxe

Mortalino

Ordre alphabétique

7 réponses

Discussions similaires