Discussion :

[Phil333250]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sabot'age]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[deedolith]

Hello,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ou en français:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[78chris]

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...

[Valtrase]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

[Philippe Tulliez]

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