XL 2016 Supprimer ligne d'un tableau structuré en vba

halecs93 · 6 Septembre 2023

Bonjour à toutes et à tous.

Et d'abord merci pour toute l'aide rencontrée ici.

J'ai pu presque finaliser mon fichier. Je n'arrive pas à ajouter une dernière fonction : une macro qui permettrait à l'utilisateur de supprimer une ligne (en utilisant les numéros qui s'incrémentent de 1 en 1 en colonne A) tout en renumérotant ces lignes pour que cela reste logique (1, 2, 3, etc.)

Quoi qu'il en soit... grand merci.

gbinforme · 7 Septembre 2023

Bonjour,
Pas facile de supprimer une ligne dans le tableau et renuméroter car il y a uns seule ligne sans N°

Cousinhub · 7 Septembre 2023

Bonjour,
Dans la conception du TS.
Inutile de masquer la ligne 3 (contre-productif)
Démasque-là, et dans la cellule A3, tu mets cette formule :

Code:

=LIGNE()-2

Puis, clic droit dans cette ligne, "Supprimer-Ligne de tableau"
Dès que tu entres une donnée (dans la cellule Date, par exemple), la formule se met automatiquement...
Donc, rien à "Ajouter/Supprimer", le TS garde en mémoire la formule
Bonne fin d'apm

patricktoulon · 7 Septembre 2023

bonjour
met ça dans un module

VB:

Sub deleteListrow()
    Dim I&
    ActiveSheet.Unprotect
    DoEvents
    With Range("Tableau1").ListObject


        .ListRows(ActiveCell.Row - .Range.Row).Delete
        For I = 1 To .ListRows.Count
            .ListRows(I).Range.Cells(I, 1) = I
        Next
        ActiveSheet.Protect
    End With
End Sub

ajoute lui un bouton dans ta feuille et affecte lui la macro
tu selection une cellule n'importe ou dans le tableau et tu clique sur ton nouveau bouton
terminé ta ligne est supprimée et ta numerotation est révisée

Cousinhub · 7 Septembre 2023

patricktoulon à dit:
bonjour
met ça dans un module

VB:

Sub deleteListrow() Dim I& ActiveSheet.Unprotect DoEvents With Range("Tableau1").ListObject .ListRows(ActiveCell.Row - .Range.Row).Delete For I = 1 To .ListRows.Count .ListRows(I).Range.Cells(I, 1) = I Next ActiveSheet.Protect End With End Sub

ajoute lui un bouton dans ta feuille et affecte lui la macro
tu selection une cellule n'importe ou dans le tableau et tu clique sur ton nouveau bouton
terminé ta ligne est supprimée et ta numerotation est révisée

Bonsoir,
Je pense que tu n'as pas essayé ta proposition....
Edit, je n'avais pas non plus regardé son code...
Lorsqu'on veut utiliser des TS, on utilise les codes qui vont bien...
@halecs93 , déjà, pour ma proposition, supprime la 1ère ligne de code :

VB:

ws.Cells(nextRow, 1).Value = rowNum ' Colonne A (Numéro de ligne)

Et surtout, revoies tout le code, afin d'utiliser les bonnes procédures lorsqu'on utilise les TS

patricktoulon · 7 Septembre 2023

re
si j'avais essayé mais pas dans les bonnes conditions
petite correction

VB:

Sub deleteListrow()
    Dim I&
    ActiveSheet.Unprotect
    DoEvents
    With Range("Tableau1").ListObject


        .ListRows(ActiveCell.Row - .Range.Row).Delete
       [A1].Select
       For I = 1 To .ListRows.Count - 1
            .ListRows(I).Range.Cells(1) = I
        Next
        'ActiveSheet.Protect
    End With
End Sub

par contre effectivement la numérotation ne se fait pas
par contre si je sépare le code delete et le code renumérotation dans deux subs différentes
là oui la numérotation se fait
peut être un delay pas suffisant par rapport a l’occupation du procc

halecs93 · 7 Septembre 2023

gbinforme à dit:
Bonjour,
Pas facile de supprimer une ligne dans le tableau et renuméroter car il y a uns seule ligne sans N°

Le fichier est vierge là. Il faudrait cliquer sur "défi du jour" comme l'utilisateur à venir....et après quelques lignes créées.... Voir comment en supprimer

patricktoulon · 7 Septembre 2023

allez cette fois ci c'est la bonne
il y avait 1 soucis son TS n'avait pas de header alors que je me basais sur le listrows 2
donc transformé en un TS avec header
et pour le delay je ne passe plus par le listobject mais par le range

démonstration
le bouton supprime la ligne active
et de plus je supprime la shapes aussi qui restait

VB:

Sub deleteListrow()
    Dim I&
    ActiveSheet.Unprotect
    'suppression de la shape
    For Each shap In ActiveSheet.Shapes
        If shap.TopLeftCell.Row = ActiveCell.Row Then shap.Delete
    Next

    'suppression de la ligne
    With Range("Tableau1").ListObject
        .ListRows(ActiveCell.Row - .Range.Row).Delete
    End With
    DoEvents

    'réindexation dans la colonne "A"
    With Range("Tableau1")
        For I = 1 To .Rows.Count
            .Cells(I, 1) = I
        Next
    End With
    'ActiveSheet.Protect
End Sub

halecs93 · 7 Septembre 2023

patricktoulon à dit:
allez cette fois ci c'est la bonne
il y avait 1 soucis son TS n'avait pas de header alors que je me basais sur le listrows 2
donc transformé en un TS avec header
et pour le delay je ne passe plus par le listobject mais par le range

démonstration
le bouton supprime la ligne active
et de plus je supprime la shapes aussi qui restait
Regarde la pièce jointe 1178170

VB:

Sub deleteListrow() Dim I& ActiveSheet.Unprotect 'suppression de la shape For Each shap In ActiveSheet.Shapes If shap.TopLeftCell.Row = ActiveCell.Row Then shap.Delete Next 'suppression de la ligne With Range("Tableau1").ListObject .ListRows(ActiveCell.Row - .Range.Row).Delete End With DoEvents 'réindexation dans la colonne "A" With Range("Tableau1") For I = 1 To .Rows.Count .Cells(I, 1) = I Next End With 'ActiveSheet.Protect End Sub

Piste intéressante.... mais cela efface la dernière ligne.... or je cherchais moyen de demander à l'utilisateur d'effacer la ligne de son choix. (je m'aperçois que le total des points en B4.... n'apparait plus...). Merci beaucoup

halecs93 · 7 Septembre 2023

Cousinhub à dit:
Bonsoir,
Je pense que tu n'as pas essayé ta proposition....
Edit, je n'avais pas non plus regardé son code...
Lorsqu'on veut utiliser des TS, on utilise les codes qui vont bien...
@halecs93 , déjà, pour ma proposition, supprime la 1ère ligne de code :

VB:

ws.Cells(nextRow, 1).Value = rowNum ' Colonne A (Numéro de ligne)

Et surtout, revoies tout le code, afin d'utiliser les bonnes procédures lorsqu'on utilise les TS

Merci... j'avoue avoir construit ces codes petit à petit...ils sont sans doute perfectibles.

halecs93 · 7 Septembre 2023

Cousinhub à dit:
Bonjour,
Dans la conception du TS.
Inutile de masquer la ligne 3 (contre-productif)
Démasque-là, et dans la cellule A3, tu mets cette formule :

Code:

=LIGNE()-2

Puis, clic droit dans cette ligne, "Supprimer-Ligne de tableau"
Dès que tu entres une donnée (dans la cellule Date, par exemple), la formule se met automatiquement...
Donc, rien à "Ajouter/Supprimer", le TS garde en mémoire la formule
Bonne fin d'apm

Merci pour ce conseil

TooFatBoy · 7 Septembre 2023

Bonjour,

Si l'index doit changer de valeur suite à la suppression d'une ligne, ça veut dire qu'il n'a pas grand intérêt...
Donc on doit pouvoir, soit supprimer la première colonne du TS, soit mettre une formule pour numéroter les lignes du TS.

N'est-il point ?

Cousinhub · 7 Septembre 2023

TooFatBoy à dit:
Bonjour,

Si l'index doit changer de valeur suite à la suppression d'une ligne, ça veut dire qu'il n'a pas grand intérêt...

Donc on doit pouvoir, soit supprimer la première colonne du TS, soit mettre une formule pour numéroter les lignes du TS.
N'est-il point ?

Hello,
Objet de ma proposition, n'est-il point?

TooFatBoy · 7 Septembre 2023

Cousinhub à dit:
Objet de ma proposition, n'est-il point?

Toutafé, mais je pensais plus à une formule adaptée au TS.

halecs93 · 7 Septembre 2023

Cousinhub à dit:
Bonsoir,
Je pense que tu n'as pas essayé ta proposition....
Edit, je n'avais pas non plus regardé son code...
Lorsqu'on veut utiliser des TS, on utilise les codes qui vont bien...
@halecs93 , déjà, pour ma proposition, supprime la 1ère ligne de code :

VB:

ws.Cells(nextRow, 1).Value = rowNum ' Colonne A (Numéro de ligne)

Et surtout, revoies tout le code, afin d'utiliser les bonnes procédures lorsqu'on utilise les TS

Là, j'avoue ne pas tout comprendre....

XL 2016 Supprimer ligne d'un tableau structuré en vba

halecs93

XLDnaute Impliqué

Pièces jointes

gbinforme

XLDnaute Impliqué

Cousinhub

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

halecs93

XLDnaute Impliqué

halecs93

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

Discussions similaires