Microsoft 365 Formulaire et numérotation des lignes tableau

p56 à dit:

Bonjour à tous,

Il y a une solution assez simple. Dans le fichier-démo-simplette joint :

* un bouton pour ouvrir un userfom avec un textbox
* dans cet usf, un bouton d'enregistrement qui place le contenu du textbox dans la 1ère ligne vide de la feuille en colonne B

VB:

Private Sub CommandButton1_Click()
Dim lg As Integer

    lg = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    ActiveSheet.Cells(lg, "B").Value = Me.TextBox1.Value
    Unload Me
End Sub

* dans le code de la feuille on récupère l'événement Change et si A est vide et B non vide, on attribue en A le max de la colonne A plus 1

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing And Target.Rows.Count = 1 Then
        If Me.Range("A" & Target.Row).Value = "" And Not Me.Range("B" & Target.Row).Value = "" Then
            Me.Range("A" & Target.Row).Value = Application.Max(Me.Range("A:A")) + 1
        End If
    End If
End Sub

C'est cette méthode éprouvée que j'utilise le plus souvent
P.

Cliquez pour agrandir...

p56 à dit:

Bonjour à tous,

Il y a une solution assez simple. Dans le fichier-démo-simplette joint :

* un bouton pour ouvrir un userfom avec un textbox
* dans cet usf, un bouton d'enregistrement qui place le contenu du textbox dans la 1ère ligne vide de la feuille en colonne B

VB:

Private Sub CommandButton1_Click()
Dim lg As Integer

    lg = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    ActiveSheet.Cells(lg, "B").Value = Me.TextBox1.Value
    Unload Me
End Sub

* dans le code de la feuille on récupère l'événement Change et si A est vide et B non vide, on attribue en A le max de la colonne A plus 1

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing And Target.Rows.Count = 1 Then
        If Me.Range("A" & Target.Row).Value = "" And Not Me.Range("B" & Target.Row).Value = "" Then
            Me.Range("A" & Target.Row).Value = Application.Max(Me.Range("A:A")) + 1
        End If
    End If
End Sub

C'est cette méthode éprouvée que j'utilise le plus souvent
P.

Cliquez pour agrandir...

p56 à dit:

Bonjour à tous,

Il y a une solution assez simple. Dans le fichier-démo-simplette joint :

* un bouton pour ouvrir un userfom avec un textbox
* dans cet usf, un bouton d'enregistrement qui place le contenu du textbox dans la 1ère ligne vide de la feuille en colonne B

VB:

Private Sub CommandButton1_Click()
Dim lg As Integer

    lg = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
    ActiveSheet.Cells(lg, "B").Value = Me.TextBox1.Value
    Unload Me
End Sub

* dans le code de la feuille on récupère l'événement Change et si A est vide et B non vide, on attribue en A le max de la colonne A plus 1

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing And Target.Rows.Count = 1 Then
        If Me.Range("A" & Target.Row).Value = "" And Not Me.Range("B" & Target.Row).Value = "" Then
            Me.Range("A" & Target.Row).Value = Application.Max(Me.Range("A:A")) + 1
        End If
    End If
End Sub

C'est cette méthode éprouvée que j'utilise le plus souvent
P.

Cliquez pour agrandir...

Marec à dit:

Je souhaiterai numéroter les lignes au fur et mesure des enregistrements.
Comment code cette incrémentation et la maintenir existante malgré l'effacement du tableau.?

Cliquez pour agrandir...

fanch55 à dit:

Bonsoir, le numéro de ligne signifie quoi dans votre exemple ?
Est-ce une nouvelle colonne à mettre à jour dans le tableau Tab_Packing ?
Regarde la pièce jointe 1161244
On peut également y mettre une clé unique qui identifiera à tout jamais celle-ci ...

Cliquez pour agrandir...

fanch55 à dit:

Le classeur ci-joint conserve tout ce que vous avez fait.
Il y a juste dans la colonne "PAL N°" de la table structurée la formule

VB:

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

Le code de l'userform a été modifié pour neutraliser la boite4

Cliquez pour agrandir...