Renumérotation automatique

Lisa

XLDnaute Nouveau
Bonjour,

J'ai un tableau avec des numéros d'ordre, de temps en temps, je dois
insérer des lignes

Je voudrais une macro de renumérotation automatique des lignes déjà
existantes...

merci de me mettre sur le piste

Lisa
 

Lisa

XLDnaute Nouveau
Re : Renumérotation automatique

J'ai trouvé en piochant par ci par là, Renumérotation d'une colonne
à partir de la Cellule A3 en fonction du nombre de lignes

Sub ordre()
'
'renumérote
'
Dim derl As Variant
Range("A3").Select
ActiveCell.FormulaR1C1 = "1"
derl = Range("A3").End(xlDown).Row

Selection.AutoFill Destination:=Range("A3:a" & derl), Type:=xlFillSeries
Range("A3:a" & derl).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
End Sub
 
Haut Bas