Microsoft 365 Ajouter une ligne dans un tableau structuré

[Lune999]

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

 

[vgendron]

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]

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

 

[Lune999]

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]

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]

Bonjour à tous,

Essayez :

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é

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]

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]

à 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]

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 🙂