Supprimer une ligne de tableau indépendant d'un autre sur une même feuille.

**Mr l'Ashanti** · 19/09/2019, 22h56

Bonjour forum.
Pour supprimer une ligne de tableau, j'arrive à le faire en utilisant la récupération du numéro de ligne dans un textbox et le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 f.range("a"&textbox).EntireRow.Delete

.
Mais cette fois ci j'ai plusieurs tableaux et pour ne pas que l'application génère des erreurs de suppression j'ai dû créer plusieurs feuilles (15 feuilles) pour y mettre les tableaux.
Je voudrais créer dans chaque feuille 4 tableaux.
Je souhaiterais savoir si C'est possible avec mon code de supprimer uniquement que la ligne d'un tableau sans supprimer la ligne entière de la feuille ? Manuellement ça passe mais comment l'écrire en code? Donc supprimer une ligne d'un tableau indépendant d'un autre sur une même feuille.
Merci bien .

**78chris** · 20/09/2019, 00h52

Bonjour

Si tu parles de tableaux structurés, il faut coder avec les propriétés du ListObjet pas de range et des row classiques

Exemple à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.ListObjects("Nom du tableau").ListRows(textbox *1).Delete

**Mr l'Ashanti** · 20/09/2019, 10h43

Bonjour. Merci pour votre réponse. Le tableau structuré c'est le tableau créé en utilisant '' mise en forme de tableau"? Si c'est le cas c'est que je suis sur la voie.
Maintenant que signifie ( *1) devant le textbox ? Est ce la première colonne ?

**Mr l'Ashanti** · 20/09/2019, 12h25

Exemple à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.ListObjects("Nom du tableau").ListRows(textbox *1).Delete

J'ai essayé d'adapter le code mais erreur : l'indice n'appartient pas à la sélection.

**78chris** · 20/09/2019, 13h50

Re

La mise en forme c'est juste la cerise sur le gateau !
Voir https://fauconnier.developpez.com/tu...ux-structures/

Textbox * 1 parce que les textbox contiennent du texte et qu'on veut un nombre.

Les listRows commencent à 1 sous la ligne de titre, qu'elle soit en ligne 1 ou 100, donc adapter.

Éventuellement joins une copie d'écran où on voit les numéro de lignes et plus d'infos sur ce que contient ta textBox

**Mr l'Ashanti** · 20/09/2019, 14h04

PS: un problème de partage de connexion de mon Android à mon pc.
Merci pour la réponse. Comme je l'ai mentionné ci dessus , impossible pour moi d'envoyer les fichiers via mon phone.
Pour les lignes du tableau, j'utilise la formule Excel : =ligne()
Donc ma première ligne aura le nombre 2.

**78chris** · 20/09/2019, 19h39

Re

NON !

Relis ce que j'ai écrit : il faut raisonner en listObject, pas en ligne Excel

**Mr l'Ashanti** · 20/09/2019, 21h23

Merci infiniment. Mais je ne suis pas un crack pour le moment en VBA, suis désolé.
J'ai essayé plusieurs démarches mais suis toujours bloqué.

**Mr l'Ashanti** · 20/09/2019, 21h28

Le textbox contient le numéro de ligne du tableau que je récupère via une listbox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim i as long
I= textbox
f.range("a"& i).entirerow.delete

Voici comment j'utilise le textbox.

**78chris** · 20/09/2019, 23h32

RE

Décidément tu t'obstines !!

Tu viens demander de l'aide pour éviter que toute la ligne se supprime : ce que fait entirerow

Je t'explique qu'il faut te référer au tableau (ListObject) si tu ne veux supprimer que la ligne du tableau mais tu reviens à ton point de départ

On ne sait pas comment tu manipules ta textbox puisque tu ne joins aucun code ou explication sur comment elle reçoit l'info, ni comment est placé ton tableau sur la feuille puisque tu ne joins pas non plus la copie d'écran demandé.

**Mr l'Ashanti** · 21/09/2019, 02h57

Merci à vous Chris.
J'ai souligné que j'ai un problème de partage de connexion avec mon phone. En zone rurale c'est difficile d'avoir les wipocket donc difficile pour moi de faire une capture d'écran du pc. Je m'en excuse énormément.
Mon tableau est structuré selon le modèle standard càd: les noms, prénoms,sexe,date, payée comme entête de liste juste en haut selon les colonnes (verticales)
Dans la dernière colonne nommée ligne , j'ai inséré une formule d'excel pour pouvoir récupérer le numéro de ligne dans le textbox via la listbox sur l'userform. Pour modifier une donnée ou pour la supprimer, je clique d'abord dans la listbox qui rempli les textbox. Le numéro de ligne étant récupéré dans la textbox (T_ligne.value), facile maintenant de modifier selon la ligne dans laquelle se trouve l'élément à modifier.( C'est ce que je maîtrise le mieux pour modifier/supprimer à l'aide d'une listbox).
Je ne maîtrise pas encore les rouages des tableaux.
J'ai essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.listobjects("Tab_6e1").listrows(i*2).delete

mais c'est la même chose.

Erreur : l'indice n'appartient pas à la sélection.

Merci d'être patient avec moi

**78chris** · 21/09/2019, 15h48

RE

Si tes titres sont en ligne 1 utilise Ligne()-1 dans ta formule ou bien i-1 dans ton code

**Mr l'Ashanti** · 21/09/2019, 16h27

Merci infiniment.
Ça marche.

**Mr l'Ashanti** · 21/09/2019, 18h57

Merci infiniment à toi Chris.
Pour ceux qui voudraient passer par là voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("BD"). Listobjects ("Tab").Listrows(i -1). Delete

.

**Mr l'Ashanti** · 23/09/2019, 20h36

Bonjour forum. Je continue sur mon sujet.
Le même code qui marchait sur la première feuille ne marche pas sur la deuxième feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim lig as long
lig= T_ligne
Set f =sheets ("Bilan")
f.Listobjects("AOUT"). Listrows (lig - 1).Delete

Mais à la suppression de l'élément, une erreur 9 s'affiche : l'indice n'appartient pas à la sélection et le code est surligné en jaune. Lorsque je mets le curseur sur la variable lig, il est marqué 24 et sur le textbox "24".
J'ai copié/collé l'ancien code pour ne pas me tromper sur une écriture mais toujours pareil. J'ai vérifié les griffes de la feuille ("Bilan") et du tableau ("AOUT")mais toujours pareil. Je ne comprends rien. Merci de m'aider.