Commande de suppression de cellule dans un tableau.

Bonjour tout le monde,

Désoler de pourrir le forum avec cette question toute simple mais je n'arrive pas a trouver sur le net une commande de suppression de texte dans les cellules d'un tableau.

A savoir que : MonTableau.ClearContents supprime tout mon tableau sauf les lignes en bordure de cellule,
et MonTableau.Clear supprime tout.

or j'aimerais que la commande supprime juste le texte et rien d'autre (laisser les en-tête etc..).

Si quelqu'un a une solution je serais heureux qu'il m'en fasse part.

Bonjour,

Peut-être une piste en passant par

Code:

---

1 2 3

Set MyRng = Range("MonTableau[No de ligne]") Set MyRng = MyRng.Offset(1, 0).Resize(MyRng.Rows.Count - 1, 0) MyRng.ClearContents

---

mais ton tableau est fixe ?

Parceque sinon délimité la taille par une range
type

Code:

---

range("a2:c5").clear

---

Merci de m'avoir répondu,

amnorian : pour votre réponse j'avais essayé :

Code:

---

Sheets("Feuil1").Range("Tableau2[#All]").Clear

---

mais ce code supprimait tout mon tableau. J'ai donc remplacé les cellules à "nettoyer" dans le code que vous m'avez proposé et il l'a fait sans supprimer le tableau de départ

Au sujet du tableau : c'est un tableau "fixe" cependant j'aurais voulus pouvoir le redimensionner mais je n'arrive pas à savoir comment la commande Redim Preserve fonctionne.

Code:

---

1 2 3 4 5 6 7

Private sub CommandButtonRedimTableau_Click Dim tableau1 as string Dim i as integer i = TextBoxRedim tableau 1=Sheets("Feuil1").Range("Tableau2[#All]") ReDim Preserve tableau1 (i) End Sub

---

À la zone souligné le programme marque tableau attendu (pourtant je lui est préciser que tableau1 est égal au tableau déjà existant sur le classeur).

vinc_bilb, J'ai testé votre code mais à la troisième ligne le programme m'envoi "erreur de compilation" : Objet requis.
(j'ai surligné la zone d'erreur).

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButtonOui_Click() Dim MyRng As String Set MyRng = Range("Tableau2[#All]") Set MyRng = MyRng.Offset(1, 0).Resize(MyRng.Rows.Count - 1, 0) MyRng.ClearContents UserFormEffacerTableau.Hide End Sub

---

Bonjour,

J'ai testé le code suivant qui marche bien (supprime tout sauf le header), à adapter si OK avec le nom de votre tableau

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Efface_TablCont()   Dim MyRng As Range   Set MyRng = Range("TableOrig[#All]") 'On prend toutes les cellules du tableau Debug.Print MyRng.Address, MyRng.Rows.Count   Set MyRng = MyRng.Offset(1, 0).Resize(MyRng.Rows.Count - 1, MyRng.Columns.Count) 'On décalle d'une ligne pour enlever le header et on diminue le nombre de ligne de 1 Debug.Print MyRng.Address MyRng.ClearContents End Sub

---

Bonjour,

un tableau Excel est un objet ListObject en VBA

il possède des méthodes et des propriétés pour naviguer dedans

quelques exemples :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub ioi() Dim Tablo As ListObject Set Tablo = ListObjects("Tableau1")   'DataBodyRange = les données With Tablo.DataBodyRange ' efface les données et laisse la mise en forme '.ClearContents   ' efface les données et la mise en forme '.Clear   ' supprime toute la plage du tableau ' l'objet tableau est redimensionné ' il ne reste que les en-têtes '.Delete End With   End Sub

---

et quelques exemples pour manipuler ça en VBA dans la FAQ : http://excel.developpez.com/faq/?page=Tableau

Il existe aussi un tuto, mais qui n'aborde pas la manipulation VBA : http://silkyroad.developpez.com/excel/tableau/

Re-boujour,

Vinc_bilb: j'ai implanté votre code dans mon programme et ça marche parfaitement, Merci beaucoup.

Joe Levrai: j'ai essayé votre code mais à la ligne listobjects il me le surligne en me marquant Sub ou fonction attendu.

Code:

---

Set Tableau = ListObjects("Tableau2[#All]")

---

Du coup avec les liens que vous m'aviez montré dans le précédant message, je vais tenter de résoudre ce problème de commande de redimension de tableau.

Merci encore.

Bonjour,

tu n'as pas respecté ma proposition à la lettre, à quoi ressemble ton code ?
ton Tableau s'appelle "Tableau2"

Quand tu assignes un Objet à une variable (on parle d'instanciation), tu utilises son indice ou son nom ... pas une de ses propriétés

si tu mets Set Tableau = ListObjects("Tableau2[#All]"), ça ne peut pas fonctionner, mais tu n'es pas censé obtenir cette erreur
Il y a donc un second problème dans ton code

Je vous envoie le code en entier même en retirant mon "[#All]" il m'indique la même erreur:

Pièce jointe 183812

Bonjour,

mea culpa, ajoute le nom de la feuille qui contient le tableau .. j'ai été à l'essentiel sans le préciser.

mon test a été fait directement dans le module de la feuille qui contenait le tableau.. et ce cas ne nécessite pas de parenter le ListObject

Code:

---

1 2	Dim Tablo As ListObject Set Tablo = WorkSheets("NomDeLaFeuille").ListObjects("Tableau2")

---

d'accord c'était la qu'il fallait le placer..

Parce que au début, j'avais tenté de lui préciser que le tableau était dans la "feuil1" et faisant Sheets("Feuil1").select avant la ligne de code, ou encore Set TRD = ListObjects.Sheets("Feuil1").range("Tableau2") .

Du coup cela fonctionne mieux.

Merci pour cet aide je met le code en entier au cas ou cela intéresse quelqu'un:

Code:

---

1 2 3 4 5 6

Sub EffacerTableau () Dim votrenom As ListObject Set votrenom = Worksheets("votreclasseur").ListObjects("votretableau") With votrenom.DataBodyRange.ClearContents 'supprime le contenus des cellules et pas les entêtes End With End Sub

---