Problème avec numérotation automatique

Bonjour à toutes et tous


J'ai un tableau structuré "Tab_Devis" dont l'entête est ligne 4 de ma feuille.
J'y reprends un ensemble de données du devis (nom, adresse, ...).
Dans la colonne "N°" je cherche à générer automatiquement le numéro d'ordre du devis.

Pour ce faire, j'ai le code suivant :

Code:

---

1 2 3

' Incrémenation du compteur Devis (D pour Devis )Colonne "N°" DerCelD = Cells(Rows.Count, "C").End(xlUp).Row Cells(DerCelD + 1, "C").Value = DerCelD - 3 ' 3 = pourquoi ?

---

Ce code fonctionne à partir du 2d devis ligne 6. Mais pas pour le premier devis ligne 5. En effet, le compteur m'indique 2 cellule C6, alors qu'il devrait m'indiquer 1 cellule C5.

Auriez-vous une solution ?
Merci
Philippe

Bonjour,
Pour obtenir 1 en ligne 5 il faut faire "ligne – 4", pas -3. Il y a une confusion car vous écrivez 1 ligne sous la valeur "DerCel". Aussi vous faites référence à la feuille active, faites attention à ce qu'il s'agisse bien de celle du tableau.
J'écrirai simplement :

Code:

---

1 2 3

With ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Offset(1) .Value = .Row - 4 End With

---

Hello,

Une simple formule dans la 1er cellule fera l'affaire:

Code:

---

=ROW() - ROW(Tab_Devis[[#Headers], [N°]])

---

Ou en français:

Code:

---

=LIGNE() - LIGNE(Tab_Devis[[#En-têtes]; [N°]])

---

Ensuite, plus besoin de s'en occuper, l'extension automatique du tableau fera le job.

Bonjour à tous

A noter néanmoins qu'avec une formule, tout tri, insertion ou suppression de lignes, volontaire ou non, renumérote tout donc plus aucun repère avec l'état précédent...

On n'utilise pas .End(xlUp).Row avec un TS...

Bonjour je rejoint la position de Chris.
Très mauvaise idée que de numéroter par rapport au numéro de ligne.
A l'instar de Access il faut leur donner un identifiant unique, la fonction Max s'y prête bien. Cela permet en cas de suppression de ne pas avoir de doublon ou autre.
Si l'on prends comme exemple la colonne ID d'un tableau structuré deux petites fonctions feront l'affaire. Ces fonctions sont à mettre dans un module

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

'@Description "Récupère la valeur maximale des index incrémentés de 1 en option." Public Function GetMaxID(ByVal Table As Excel.ListObject, ByVal Column As Variant, Optional ByVal WithIncrement As Boolean) As Long Private Const COLUMN_NAME As String = "ID" If Not Table Is Nothing Then If Table.ListRows.Count > 0 Then   Dim Index As Long Index = IndexColumn(Table, Column) If Index > 0 Then Dim IdMax As Long IdMax = Application.WorksheetFunction.Max(Table.ListColumns(Index).DataBodyRange) GetMaxID = IdMax + IIf(WithIncrement = True, 1, 0) Else GetMaxID = 0 End If Else GetMaxID = 1 End If Else GetMaxID = 0 End If End Function

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

'@Description "Vérifie l'index d'une colonne. Si Column n'est pas renseigné la fonction renvoie la première colonne si elle existe." Public Function IndexColumn(ByVal Table As Excel.ListObject, ByVal Column As Variant) As Long If Not Table Is Nothing Then With Table If Column = vbNullString Or Column = 0 Then Dim Index If .ListColumns.Count > 0 Then Index = 1 Else If TypeName(Column) = "String" Then Dim Counter As Long Counter = 1 Do While Counter <= .ListColumns.Count And Not Index If StrComp(Table.ListColumns(Counter).Name, Column, vbTextCompare) = 0 Then Index = Counter Counter = Counter + 1 Loop ElseIf TypeName(Column) = "Long" Or TypeName(Column) = "Integer" Then If Column > 0 And Column <= .ListColumns.Count Then Index = Column End If End If End If   End With IndexColumn = Index Else IndexColumn = False End If End Function

---

EDIT : Correction d'un bug potentiel Merci à Philippe.

Certains code sont tirés du très bon travail de Laurent OTT :

Bonjour Jean-Paul,
Il y a un petit souci avec ces deux fonctions.
L'argument Column de GetMaxID est optionnel alors que l'argument Column de la fonction IndexColumn invoquée par la première ne l'est pas. Donc si l'on appelle la fonction GetMaxId sans utiliser l'argument Column, il y aura inévitablement une erreur à la ligne If Column = vbNullString Or Column = 0 Then de la fonction IndexColumn

Bonjour Philippe,
Merci. C'est bien d'avoir une relecture. :zoubi:

Bonjour à toutes et tous,

Merci pour vos réponses, je vais regarder cela.

Mon tableau sera filtré.

Cela va donc être l'occasion de travailler avec des formules, chose que je n'ai jamais fait.

Je vous tiens au courant

Philippe

Bonjour à toutes et tous,

Je ne m'en sort pas.

Dans le premier code de Valtrase, je ne comprends pas la ligne suivante :
Private Const COLUMN_NAME As String = "ID"

De plus, je n'arrive pas à lancer la fonction.
En effet, je ne sais où la mettre dans ma macro

Code:

---

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

Sub Tableau_Devis()   Sheets("Suivi Devis").Activate   Range("D1").FormulaR1C1 = "=TODAY()" ' Date Devis Range("D1").Value = Range("D1").Value   ' Fonctionne à partir du second devis / ne marche pas pour le premier ' Alimentation tableau à partir des données issues de l'onglet Devis cellules F11 et N34 DerCell = Cells(Rows.Count, "B").End(xlUp).Row Cells(DerCell + 1, "B").Value = Range("D1").Value ' Date Cells(DerCell + 1, "D").Value = Sheets("Devis").Range("F11").Value ' Nom Client F11 Cells(DerCell + 1, "E").Value = Sheets("Devis").Range("H32").Value ' Montant N34 Cells(DerCell + 1, "G").Value = Range("G1").Value ' N° Devis Range("A1").Select   Sheets("Devis").Activate Range("A1").Select   End Sub

---

Enfin selon la remarque de 78Chris "On n'utilise pas .End(xlUp).Row avec un TS..." que faut-il utiliser ?

Merci pour votre aide
Philippe

Bonjour Phil

Citation:

---

Dans le premier code de Valtrase, je ne comprends pas la ligne suivante :
Private Const COLUMN_NAME As String = "ID"

---

Déjà enlève le Private...
Je déclare une constante pour le nom de la colonne des index de devis. Ici c'est "ID" (Ce que j'utilise pour ma part) Mais cela peut être "N°" ou autres. le fait de déclarer des constantes facilite la maintenance du code en cas de changements.
Pour le reste le mieux serait d'avoir un fichier (Anonymisé) sur lequel travailler.

Bonjour à toutes et tous,

A force de chercher et bidouiller je suis arrivé à ce code qui à l'air de fonctionner.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Sub Tableau_Devis() ' 28/02/25 Fonctionne   Sheets("Suivi Devis").Activate   Range("D1").FormulaR1C1 = "=TODAY()" ' Date Devis Range("D1").Value = Range("D1").Value   Dim ws As Worksheet Dim tableau As ListObject Dim nouvelleLigne As ListRow Dim nouvelleValeur As Long   ' Accéder à la feuille et au tableau Set ws = ThisWorkbook.Sheets("Suivi Devis") Set tableau = ws.ListObjects("Tab_Devis")   ' Ajouter une nouvelle ligne au tableau Set nouvelleLigne = tableau.ListRows.Add   ' Vérifier si le tableau a déjà des lignes pour déterminer la nouvelle valeur If tableau.ListRows.Count > 1 Then nouvelleValeur = tableau.ListColumns("N°").DataBodyRange.Cells(tableau.ListRows.Count - 1, 1).Value + 1 Else nouvelleValeur = 1 End If   ' Mettre à jour la colonne "N°" dans la nouvelle ligne nouvelleLigne.Range.Cells(1, 2).Value = nouvelleValeur   ' Alimentation tableau à partir des données issues de l'onglet Devis cellules F11 et H34 DerCell = Cells(Rows.Count, "B").End(xlUp).Row Cells(DerCell, "B").Value = Range("D1").Value ' Date Cells(DerCell, "D").Value = Sheets("Devis").Range("F11").Value ' Nom Client F11 Cells(DerCell, "E").Value = Sheets("Devis").Range("H34").Value ' Montant H34 Cells(DerCell, "G").Value = Range("G1").Value ' N° Devis Range("A1").Select   Sheets("Devis").Activate Range("A1").Select   End Sub

---

Voici mon fichier
Pièce jointe 665046

Avec mes remerciements pour votre aide
Philippe