Bonjour à tous,

Problème probablement très facile à régler:

J'ai actuellement un fichier partagé dans mon entreprise (je sais que ce support n'est pas l'idéal mais bon…) dans lequel les utilisateurs remplissent un formulaire.

Ma colonne A renvoie une référence grâce à ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Dligne = Range("A15000").End(xlUp).Row 'Va chercher la derni?re ligne du tableau
Cells(Dligne + 1, 1) = Cells(Dligne, 1) + 1 'prends le N? de la derni?re ligne +1 de la colonne 1

Celui-ci prends la Ref de la ligne précedente et y ajoute +1 pour avoir des numéros uniques. Cependant, les utilisateurs ont la fâcheuse tendance de sauter des lignes parfois… Ce qui renvoie les références à 0...



J'ai voulu créer un code pour donner comme référence le numéro de la ligne, et jusqu'ici ça donne ça:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub Nligne()
Dligne = Range("A1000").End(xlUp).Row
 
Cells(Dligne + 1, 1) = Rows(Dligne + 1).Value
 
End Sub

Comme vous vous en doutez, cela ne fonctionne pas... Auriez-vous des pistes pour adapter ce code ?

Merci,
Mickamax