L Lisa XLDnaute Nouveau 29 Novembre 2007 #1 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
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
L Lisa XLDnaute Nouveau 29 Novembre 2007 #2 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 Vote positif 0 Vote négatif
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