Référence unique numéro de ligne

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:

---

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:

---

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

Citation:

---

Envoyé par Mickamax

---

Bonjour,

Et en récupérant à chaque fois, le max de la colonne ?

Bonjour

Citation:

---

pour donner comme référence le numéro de la ligne

---

Code:

---

1 2 3

Dligne = Range("A1000").End(xlUp).Row Cells(Dligne + 1, 1) = Dligne + 1

---

bonjour,

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) Target.Parent.Cells(Target.Row, "A")=Target .Row End Sub

---

Merci à tous pour votre aide,
J'ai opté pour la solution de Halaster08 qui s'approchait le plus de mon code d'origine…

@eric Kergresse: Ta solution est probablement la plus optimisée pour avoir forcément des références qui se suivent de 1 en 1... Ce qui ne sera pas le cas ici puisque les utilisateurs risquent toujours de sauter des lignes, mais enfin le problème est moindre qu'avant ma demande.

J'ai réfléchi à la façon de définir la cellule avec la valeur max et j'avoue que pour ma culture personnelle j'aimerai bien savoir quelle technique est la plus simple. Du peu d'expérience que j'ai je vois deux solutions:

- Utiliser la function Max+1. Mais est-il possible de variabiliser une fonction avec VBA par rapport à la dernière ligne ?

- Faire une boucle sur toutes mes cellules en colonne 1, stocker la cellule avec la plus forte valeur, et pour chaque cellule dans ma boucle tester si la valeur > la valeur stockée, le cas échéant la valeur de ma cellule prends la place de la valeur stockée…



Mickamax

Citation:

---

Envoyé par Mickamax

---

A tester

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Test()   MsgBox NumeroChantier(Sheets("Feuil2"), 1)     End Sub     Function NumeroChantier(ByVal ShSuivi As Worksheet, ByVal ColonneNumero As Long) As Long   NumeroChantier = WorksheetFunction.Max(ShSuivi.Columns(ColonneNumero)) + 1   End Function

---

bonsoir
peut être empêcher toute tentative de sauter une ligne
si je comprends bien ton énoncé le formulaire c'est une plage de cellules
donc exemple en considérant que le formulaire c'est la plage A1:E10
dans le module de la feuille du formulaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set plage = ActiveSheet.Range("A1:E10") ' le formulaire est en A1:E10 If Target.Count > 1 Then Exit Sub If Not Intersect(Target, plage) Is Nothing Then Set c = plage.Columns(1).Find("*", SearchDirection:=xlPrevious) If c.Row < Target.Row Or Target.Row = plage.Row Then Application.EnableEvents = True If WorksheetFunction.CountBlank(c.Resize(1, plage.Columns.Count)) <> 0 Then plage.Cells(c.Row, 1).Select Else plage.Cells(c.Offset(1).Row, 1).Select End If End If End If Range(Selection.Address).Value = Val(Range(Selection.Address).Offset(-1).Value) + 1 Application.EnableEvents = True End Sub

---

Pièce jointe 492092