Histoire d'apprendre

[VB@D]

Bonjour le forum

Je viens de réaliser un modeste programme qui m'affiche des numéro de ligne.
Ce programme marche mais qu'est ce que c long..

Alors si vous pouviez me donner quelques conseils pour progresser ca serait sympa

Merci

@+

VB@D

 

[Ti]

Pour afficher le numéro de ligne, pas besoin d'une macro, il existe la fonction LIGNE() qui fait ça très bien.
Donc en colonne A, tu pourrais mettre la formule :
=LIGNE() - 1
(-1 parce qu'on démarre à la ligne 2), mais qu'on numérote à partir de 1)

Si vraiment tu veux une macro, en voici une qui va plus vite, mais on pourrait faire cela de pleins d'autres façons. En tout cas tu dois apprendre à utiliser les boucles For...Next et bannir les goto et les labels qui sont des reliques d'un autre temps.
Mais bon, il faut bien débuter un jour et cela passe aussi par de multiples erreurs, alors courage

Sub CompteLignes()
Dim Plage As Range, Cel As Range, Index As Long
With ActiveSheet
Set Plage = .Range("B2", .Range("B65536").End(xlUp))
End With
For Each Cel In Plage
Index = Index + 1
Cel.Offset(0, -1) = Index
Next Cel
End Sub

 

[VB@D]

Salut TI

Merci beaucoup pour ta réponse précise et rapide

@+

VB@D