CODE VBA EXCEL

Karimp54_2122 -  
Bonjour à tous,
Je rencontre un problème avec mon programme.
Ainsi, je viens vers vous pour solliciter votre aide pour résoudre ce problème. Je précise que je suis un débutant dans la programmation VBA.

En effet, je veux numéroter automatiquement ma BDD dans la colonne "L2" en fonction du contenu de la colonne "A".
J'ai donc coder de la façon suivante : 

 Sub num()
Dim nva As Integer
Dim ligne As Integer
nva = Range("A1") + 1
ligne = 1 'Initialisation de la ligne "A3"
Do Until ligne = nva
Range("L" & ligne) = ligne 'Inscrire dans la colonne "L"
ligne = ligne + 1 'Incrémentation de la ligne de 1 à chaque tour de la boucle
Loop

End Sub


Le programme fonctionne, mais le problème est que je souhaiterais que la numérotation commence de "L2"; ce qui ne marche pas.

Merci d'avance pour aide !

Mes salutations cordiales !

2 réponses

  1. franc38
    Bonjour,
    Ne sachant pas la valeur de nva? 
    Sub num()
    Dim nva As Integer
    Dim ligne As Integer
    nva = Range("A1") + 1
    ligne = 2 'Initialisation de la ligne "A3"
    Do Until ligne = nva
    Range("L" & ligne) = ligne-1 'Inscrire dans la colonne "L"
    ligne = ligne + 1 'Incrémentation de la ligne de 1 à chaque tour de la boucle
    Loop

    End Sub

    A+ François
    1. franc38
      Merci Monsieur !
      Cela marche à merveille.
      Je ne sais quoi vous dire. Dieu merci qu'il existe des personnes charitables prêtes à aider leurs semblables sans rien à attendre de retour. Puisse Dieu vous récompenser pour vos bonnes actions.