Incrémenter les lignes d'une colonne en VBA

Bonjour,

En remplissant une fenêtre Userform, je complète une ou plusieurs lignes automatiquement dans une feuille excel 2010.
Dans la colonne A, je souhaite numéroter les lignes en commençant à la ligne 4.

J'ai beau cherché, je bloque.

La ligne 3 est masquée et vide. Elle peut donc être utilisé si besoin.

Merci de votre aide.

Bonjour et bienvenue au forum !

Citation:

---

J'ai beau chercher, je bloque.

---

Où est-ce que tu bloques ? Qu'as-tu fait pour l'instant ? Est-ce que tu as un code avec une message d'erreur ? Si oui, lequel ?
Si non, qu'est-ce que tu ne sais pas faire ?

Citation:

---

je souhaite numéroter les lignes en commençant à la ligne 4.

---

Et quand est-ce que tu dois t'arrêter ?

Bonsoir,

J'ai réussi à faire une incrémentation par validation de mon userform.
A chaque validation, la nouvelle ligne permet la valeur de la dernière ligne de la colonne +1. Le problème est que lorsque le userform crée 2 lignes, mes 2 nouvelles lignes ont le même numéro.

Je n'ai donc pas de message d'erreur mais pas le résultat voulu non plus.

Il n'y a pas de limite à mon tableau car cela dépend du nombre de défaut rencontré. Si j'ai 100 défauts, mon tableau ne doit avoir que 100 lignes pour pouvoir faire des tris par destinataires.

L’idée que j'avais était de mettre la valeur 0 dans la cellule A3 qui est libre. Puis dans ma macro, si la cellule B (à partir de B4) est non vide faire:
valeur de la cellule Ax= (valeur de la cellule Ax-1)+1.

En esperant etre comprehensible.
Merci

Bonjour,

si on réfléchit d'abord côté excel, on peut penser à la fonction LIGNE() qui renvoie (quand on ne lui fournis aucun argument) la ligne courante
ainsi, l'incrémentation automatique serait la formule =LIGNE()-3 puisqu'on commence à la ligne 4

en utilisant un tableau structuré (Objet Listobject côté VBA ou dans le menu Insertion>>Tableau sur l'interface Excel), on pourrait donc conditionner automatiquement chaque ligne sous cette formule via une colonne calculée, sans parler de la facilité derrière de transférer les valeurs saisies dans le userform ... et les traitements/analyses postérieurs qu'on pourrait avoir envie de faire avec ces données.


Sinon, bah on fait à l'ancienne, on utilise la propriété .Row - 3 de la cellule où on écrit, genre (à adapter)

Code:

---

1 2 3

With Cells(Rows.Count,1).End(xlup)(2) ' ou Cells(4, 1).End(xlDown)(2) en partant d'en haut .Value = .Row - 3 End With

---

Bonjour,

J'ai utilisé la solution excel.
J'ai selectionné toute la colonne puis déselectionné les premiers lignes et tapé =ligne()-3.
Cette formule est recopié automatiquement dans les nouvelles lignes qui sont créées par la macro.

Merci pour l'aide!!