Modifier automatiquement macro pour ajouter des lignes.

DAVID-44-

XLDnaute Occasionnel
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: 21

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
 

Discussions similaires

Réponses
1
Affichages
311

Statistiques des forums

Discussions
311 720
Messages
2 081 898
Membres
101 834
dernier inscrit
Jeremy06510