Autres Optimisation macro numérotation ligne

Oliver77 · 14 Octobre 2024

Bonjour,

J'ai fait une macro pour numéroter les lignes de données dans une feuille, j'ai cherché en vain et j'y suis parvenu mais par contre je la trouve lente quand je l'intègre dans mon priojet. Qu'en pensez-vous ? J'utilise encore excel 2007...
Merci par avance,
Oliver77

Sub NumLignes()
Dim i As Integer
derniere_ligne = Range("B1").CurrentRegion.Rows.Count
For i = 2 To derniere_ligne
Range("A" & i).Value = "=ROW(RC[1])-1"
Range("A" & i).Copy
Range("A" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("A" & i).NumberFormat = "General"
Next i
End Sub

TooFatBoy · 14 Octobre 2024

Bonjour,

Oliver77 à dit:
j'ai cherché en vain et j'y suis parvenu

VB:

Sub NumLignes()
Dim i As Integer

    derniere_ligne = Range("B1").CurrentRegion.Rows.Count
    For i = 2 To derniere_ligne
        Range("A" & i).Value = "=ROW(RC[1])-1"
        Range("A" & i).Copy
        Range("A" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
        Range("A" & i).NumberFormat = "General"
    Next i

End Sub

Oliver77 à dit:
je la trouve lente quand je l'intègre dans mon projet

Commence par ajouter un Application.ScreenUpdating = False au début de ta macro, ça devrait éviter de la ralentir.

Ensuite il y a aussi, je pense, moyen de l'améliorer.
Je te propose ceci :

VB:

Sub NumLignes()
'
    Application.ScreenUpdating = false

    derniere_ligne = Range("B1").CurrentRegion.Rows.Count
    With Range("A2:A" & derniere_ligne)
        .Formula = "=ROW(RC[1])-1"
        .NumberFormat = "General"
        .Value = .Value
    End With

End Sub

Oliver77 · 14 Octobre 2024

Merci, j'ai essayé. Le problème se pose surtout lorsque j'ai plus d'un millier de lignes.

TooFatBoy · 14 Octobre 2024

Oliver77 à dit:
Le problème se pose surtout lorsque j'ai plus d'un millier de lignes.

Et avec mon petit bout de macro, c'est moins lent ?

Staple1600 · 14 Octobre 2024

Bonsoir le fil

@Oliver77
Une version qui n'a pas besoin d'utiliser de formule.
(et également plus courte a rédiger)

Code:

Sub Numeroter_Light()
Dim x&
x = Cells(Rows.Count, "B").End(xlUp).Row - 1
[A2] = 1: [A2].DataSeries 2, 1, 1, 1, x
End Sub

NB: A voir si sur un grand nombre de lignes, c'est plus rapide ou pas.

Phil69970 · 14 Octobre 2024

Bonjour à tous

Edit : Staple J'avais pas vu ton post lorsque j'ai mis mon post

@Olivier77

Nom de la feuille à adapter évidement !!!

VB:

Sub test()
Dim Derlig&
Dim t#
t = Timer
Derlig = Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row
[A2] = 1: Range("A2:A" & Derlig).DataSeries
MsgBox "Macro éxécutée en " & Format(Timer - t, "0.00 \sec")
End Sub

Merci de ton retour

Oliver77 · 14 Octobre 2024

Re-bonjour,
@Staple1600 et @Phil69970, merci.
Vraiment génial car je comptais ajouter une procédure pour enlever la formule dans la cellule.

@Staple1600, en me proposant d'ajouter "Application.ScreenUpdating = False" je me suis souvenu de "Application.Calculation = xlManual" et bien-sûr "Application.Calculation = xlAutomatic".

Là aussi j'ai vu la différence.

A+ plus et encore merci !

TooFatBoy · 14 Octobre 2024

Oliver77 à dit:
Re-bonjour,
@Staple1600 et @Phil69970, merci.
Vraiment génial car je comptais ajouter une procédure pour enlever la formule dans la cellule.

Eh oui, alors que ma proposition ne le fait pas...

Oliver77 à dit:
@Staple1600, en me proposant d'ajouter "Application.ScreenUpdating = False" je me suis souvenu de "Application.Calculation = xlManual" et bien-sûr "Application.Calculation = xlAutomatic".

...

Staple1600 · 14 Octobre 2024

Bonjour le fil

@Oliver77
Je n'ai publié qu'un message dans cette discussion.
Le#5
Les propos que tu me prêtes dans le message#7 ne sont pas les miens
Par contre ce que j'écris ci-dessous c'est bien moi avec mes dix doigts (enfin un peu moins)
Pour optimiser une procédure VBA, le mieux c'est de pas faire de procédure VBA mais de faire confiance aux fonctionnalités natives d'Excel
1) Je saisis 1 en A2
2) Clic-droit et je glisse ma souris, et voilou

crocrocro · 15 Octobre 2024

Bonjour le fil,
en complétant la proposition de Staple

1) Je saisis 1 en A2
2) Clic-droit et je glisse ma souris, et voilou

si on suppose que l'on doit avoir un n° jusqu'à la ligne 10 0000, soyons fou : 100 000, le glisser avec la souris peut être long .
Une proposition (à adapter selon ce que vous souhaitez faire) :
En A1 saisir 0
En A2 saisir = A1+1
Sélectionner A2 - CTRL C (Copier)
F5 (Atteindre)
Saisir A3: A10000
CTRL V (Coller)
F9 (Calculer Maintenant)
CTRL C (Copier)
Clic Droit -> Collage Spécial -> Valeurs
En A2 saisir 1
En A1 saisir "ce que vous voulez"
Quasi instantané !

Phil69970 · 15 Octobre 2024

Re

Pour info :

Et avec le code du post # 6

Pour 100 000 lignes : ==> 31 millièmes de seconde

Et sur 1 million de lignes : ==> 22 centièmes de seconde

Tout cela me semble largement acceptable

crocrocro · 15 Octobre 2024

Pour Phil,

Tout cela me semble largement acceptable

Tout à fait d'accord
Mon post était un complément à la proposition de Staple qui elle, se fait sans VBA.

Autres Optimisation macro numérotation ligne

Oliver77

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Oliver77

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Oliver77

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

crocrocro

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

crocrocro

XLDnaute Occasionnel

Discussions similaires