Microsoft 365 Ajouter une ligne dans un tableau structuré

Lune999 · 10 Janvier 2023

Bonjour à toutes et tous,

J'essaye tant bien que mal depuis quelques jours de trouver comment ajouter une ligne à mon tableau lorsque la dernière cellule de la colonne C de ce dernier n'est pas vide.
Mon tableau démarre en A3 et fini en colonne BA.

Voici mes tentatives infructueuses comme vous vous en doutez...

Merci d'avance de votre aide

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False: Dim L%

With Sheets("Suivi Référencement")

For L = Range("A65536").End(xlUp).row To 2 Step -1
If Cells(L, 1) <> "" And Cells(L - 1, 1) <> "" Then
If Cells(L, 1) <> Cells(L - 1, 1) Then Cells(L, 1).EntireRow.Insert
End If
Next
End With
End Sub
-------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("CellSaisie").Address Then

With Range("CellSaisie")
Range(Cells(.Row, "C"), Cells(.Row, "BA")).Insert
.Offset(-1, 0).Value = .Value

Application.EnableEvents = False
.Value = ""
Application.EnableEvents = True

.Offset(-1, 1).Select
End With
End If
End Sub

mapomme · 10 Janvier 2023

Bonjour à tous,

Essayez :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   With Range("a4").ListObject
      If .ListRows.Count > 0 Then
         If .ListRows(.ListRows.Count).Range(1, "c") <> "" Then .ListRows.Add
      Else
         .ListRows.Add
      End If
   End With
End Sub

Le même code commenté

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   With Range("a4").ListObject   ' avec le tableau structuré TS qui contient la cellule A4
      If .ListRows.Count > 0 Then
         ' si l'objet référençant les lignes(.ListRows) du TS contient au moins une ligne
         ' On teste la cellule de la dernière ligne et de la colonne "c"
         ' si la cellule est vide, on ajoute une ligne
         If...

vgendron · 10 Janvier 2023

Bonjour

Avec un fichier, ce serait plus pratique et compréhensible

en attendant, un peu de lecture pour les tables structurées

The VBA Guide To ListObject Excel Tables

For a data analyst, Excel Tables are a necessity! They are the most efficient way to organize your raw data and refer to data that contracts or expands on a regular basis. Likewise, Excel tables can be extremely useful in combination with VBA.

www.thespreadsheetguru.com

Lune999 · 10 Janvier 2023

Bonjour,
Merci pour le lien.
Je vais réessayer quelque chose avec ce que tu m'as envoyé et je reviendrai si besoin

Lune999 · 10 Janvier 2023

Bon j'ai essayé de faire deux nouvelles macros mais aucune ne fonctionne comme j'aimerais. L'une tourne en boucle sans s'arrêter mais ajoute bien une ligne à la fin, l'autre qui ne fonctionne pas mais je pense être proche de réussir...

Merci d'avance de vos conseils !

Macro qui tourne en boucle

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerniereValeur As Long

DerniereValeur = Range("C" & Rows.Count).End(xlUp).Select 'Selectionne la dernière cellule du tableau "Suivi"

If Range("C" & Rows.Count).Value = "" Then

Exit Sub 'Si la dernière cellule de la colonne C est vide alors quitte la macro

Else
ActiveSheet.ListObjects("Suivi").ListRows.Add AlwaysInsert:=True 'autrement, insère une nouvelle ligne au tableau

End If

End Sub

Macro qui ne fonctionne pas

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerniereValeur As Long

DerniereValeur = Range("C" & Rows.Count).End(xlUp).Select 'Selectionne la dernière cellule du tableau "Suivi"

ActiveSheet.ListObjects("Suivi").ListRows.Add AlwaysInsert:=True 'autrement, insère une nouvelle ligne au tableau

Exit Sub

End Sub

vgendron · 10 Janvier 2023

Je ne comprend l'objectif de ton code..
ajouter une ligne au tableau "suivi" ??

AUCUN code n'est necessaire pour ca
il suffit d'écrire une donnée juste SOUS le tableau ==> la table structurée s'adapte automatiquement

sinon, si tu veux ajouter une ligne vide (ce qui est à éviter), tu peux cliquer sur le bouton "Ajouter ligne"

va voir le code associé (une ligne)

mapomme · 10 Janvier 2023

Bonjour à tous,

Essayez :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   With Range("a4").ListObject
      If .ListRows.Count > 0 Then
         If .ListRows(.ListRows.Count).Range(1, "c") <> "" Then .ListRows.Add
      Else
         .ListRows.Add
      End If
   End With
End Sub

Le même code commenté

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   With Range("a4").ListObject   ' avec le tableau structuré TS qui contient la cellule A4
      If .ListRows.Count > 0 Then
         ' si l'objet référençant les lignes(.ListRows) du TS contient au moins une ligne
         ' On teste la cellule de la dernière ligne et de la colonne "c"
         ' si la cellule est vide, on ajoute une ligne
         If .ListRows(.ListRows.Count).Range(1, "c") <> "" Then .ListRows.Add
      Else
         ' si TS est vide, on ajoute sa première ligne
         .ListRows.Add
      End If
   End With
End Sub

:

Lune999 · 10 Janvier 2023

Merci beaucoup pour ta réponse @mapomme, cela fonctionne du tonnerre !
Merci aussi pour ton aide @vgendron et pour répondre à ta question j'ai utilisée des formules qui ne fonctionnent pas si j'écris juste sous le tableau, par expl :
=SI($C3="";"";SI($D3<>"";$D3;AUJOURDHUI())))

J'avais donc besoin d'une formule pour ajouter une nouvelle ligne

Très bon après-midi à vous deux !

vgendron · 10 Janvier 2023

à noter que ta formule initiale en colonne D me semble bizarre.. elle doit (ou devrait) provoquer un pb de référence circulaire, vu qu'elle fait référence à elle meme...

Lune999 · 10 Janvier 2023

Pour ça il suffit d'aller dans :
Fichier/Option/Formules/Activer le calcul itératif.

Par contre il faut modifier Excel chez tous les utilisateurs pour que cela ne provoque pas de bug

Microsoft 365 Ajouter une ligne dans un tableau structuré

Lune999

XLDnaute Nouveau

mapomme

vgendron

XLDnaute Barbatruc

The VBA Guide To ListObject Excel Tables

Lune999

XLDnaute Nouveau

Lune999

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Lune999

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Lune999

XLDnaute Nouveau

Pièces jointes

Discussions similaires