CODE VBA EXCEL

Fermé
Karimp54_2122 Messages postés 1 Date d'inscription lundi 20 avril 2020 Statut Membre Dernière intervention 1 mai 2020 - Modifié le 1 mai 2020 à 01:38
 franc38 - 6 mai 2020 à 19:50
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 !
A voir également:

2 réponses

Réponse 1 / 2
franc38
6 mai 2020 à 19:50
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.
1
Réponse 2 / 2
franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 38
1 mai 2020 à 05:59
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
0