Modifier automatiquement macro pour ajouter des lignes.

[DAVID-44-]

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.

 

[sousou]

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

 

[DAVID-44-]

Bonjour, ça marche.
Merci beaucoup.
Bonne journée.