Modifier automatiquement macro pour ajouter des lignes.

DAVID-44-

XLDnaute Junior
Bonjour,
J'ai un petit souci, j'ai créé une macro afin de trier par ordre alphabétique la feuille "STOCK" en plusieurs parties.
Malheureusement dès que je rajoute une ou plusieurs lignes, évidemment tout se décale.
J'aimerais savoir s'il y a un code dans la macro pour éviter cela.
Merci de votre aide.
 

Pièces jointes

  • STOCK. 1..xlsm
    126.4 KB · Affichages: 11

sousou

XLDnaute Barbatruc
Bonsoir
en respectant la forme de ton fichier (discutable), essai ce code

Sub meszones() 'recherche des zones à trier
With Sheets("STOCK")
deb = 8
While .Cells(deb, 2) <> ""


Set zone = .Range(.Cells(deb + 1, 3), .Cells(deb + .Cells(deb, 3).CurrentRegion.Rows.Count - 1, .Cells(deb, 2).CurrentRegion.Columns.Count + 1))
zone.Select
deb = .Cells(deb, 3).CurrentRegion.Rows.Count + 3 + deb
Call trie(zone)
Wend
End With
End Sub


Sub trie(zone)
zone.Sort key1:=zone.Columns(1), Orientation:=xlAscending
End Sub
 
Haut Bas