excel : XML probleme de tableau

nadia_42

XLDnaute Nouveau
Bonjour tous le monde :)

voila un problème un peu ... je sais pas !!!
que personne ne le aborde sur le net :mad:

quand on travaillons de l'XML sur excel on a un tableau bleu avec une étoile.

et chaque fois qu'en lui ajoute une ligne il élargis mais quand on le vide de son contenu
il ne revient pas a son état initial (un seul ligne avec une étoile a gauche)
voila le problème ???:cool:

y'a pas moyen de le faire par macro sachant qu'il peut avoir dix ligne comme deux cent??

merci pour votre aide en avance.:D
 

Pièces jointes

  • xml-test.zip
    86.5 KB · Affichages: 70

Bebere

XLDnaute Barbatruc
bonjour
Nadia quelques exemples

Code:
Sub déListe()
    Sheets("Feuil1").ListObjects("Liste1").Unlist
End Sub

Sub CréerTable()
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$5:$D$7"), , xlYes).Name = _
        "Liste1"
    Range("Liste1[#All]").Select
End Sub

'Vider une table de son contenu

With Sheets("'Feuil1").ListObjects("Liste1")
    If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
End With
'Si il y a des formules dans les cellules de la table, elles sont conservées et lorsque vous collez de nouvelles données dans cette table,
' manuellement ou par macro, elles seront actives.
'Si vous souhaitez aussi effacer les formules, il faut vider le contenu de la table avant de supprimer les lignes :
     
With Sheets("Feuil1").ListObjects("Liste1")
    If Not .DataBodyRange Is Nothing Then
        .DataBodyRange.ClearContents
        .DataBodyRange.Delete
    End If
End With

Private Sub AjoutLigne()
Dim LR As ListRow
Set LR = Range("Liste1").ListObject.ListRows.Add(1)
LR.Range.Cells(1, 1) = "pomme"
LR.Range.Cells(1, 2) = "d'api"
LR.Range.Cells(1, 3) = "tapis"

End Sub
 

Discussions similaires

Réponses
2
Affichages
554

Statistiques des forums

Discussions
311 721
Messages
2 081 929
Membres
101 843
dernier inscrit
Thaly