Résolu 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.
 

Fichiers joints

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas