Insérer une ligne dans un tableau

Fermé
Utilisateur anonyme - 20 janv. 2023 à 12:51
NonoM45 Messages postés 269 Date d'inscription dimanche 14 juin 2009 Statut Membre Dernière intervention 19 mai 2024 - 21 janv. 2023 à 10:04

Bonjour

Bonjour,

Peut-on insérer une ligne dans un tableau après chaque changement de cette dernière ?

Ci-dessous le code.

Quand on double-clic sur A1 = tri colonne A.

Une fois le tri effectué, j'aimerais séparer les changements par une ligne vide.

Cela afin d'avoir mes numéros de colis (colonne A) bien séparés.

Mais dans un tableau je ne sais pas comment on fait.

Jai donc besoin de vos lumières

Merci

Option Explicit
'--------------------------
'double clic sur A1= tri par colonneA
'double clic sur B1= tri par colonneB
'double clic sur C1= tri par colonneC
'double clic sur D1= tri par colonneD
'-------------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal sel As Range, Cancel As Boolean)
Dim deb As Long

 Application.ScreenUpdating = False

  deb = Timer
    If sel.Row > 1 Then Exit Sub
    Cancel = True
    With ActiveWorkbook.Worksheets("base").ListObjects("Tableau1").Sort
        With .SortFields
            .Clear
            .Add Key:=Range("Tableau1[" & sel.Value & "]"), SortOn:=xlSortOnValues, _
                Order:=xlAscending, DataOption:=xlSortNormal
        End With
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

     'Temps d'exécution de la macro affichée en F1
    Range("F1").Select: ActiveCell.FormulaR1C1 = Timer - deb
End Sub


Android / Chrome 109.0.0.0


A voir également:

1 réponse

NonoM45 Messages postés 269 Date d'inscription dimanche 14 juin 2009 Statut Membre Dernière intervention 19 mai 2024
21 janv. 2023 à 10:04

Bonjour Fanfan0674

Merci pour le cross posting, cette pratique est très mal perçue sur Internet car les membres qui vont passer du temps sur votre problème risquent de le faire pour rien si vous obtenez une réponse par ailleurs dont ils n'ont pas connaissance.
Merci de choisir un forum pour votre question et de supprimer votre message dans un des forums concernés.

Réponse donnée ici

https://forum.excel-pratique.com/excel/inserer-une-ligne-dans-un-tableau-apres-chaque-changement-de-cette-derniere-180217

0