excel : XML probleme de tableau

[nadia_42]

Bonjour tous le monde

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

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 ???

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.

 

[Bebere]

bonjour
Nadia le système me dit que le dossier compressé est vide

 

[nadia_42]

bonjour
Nadia le système me dit que le dossier compressé est vide

bonjour Bebere

voila j'ai du régler ce problème de *.zip qui été en effet un *.rar

et merci pour votre attention.

 

[Bebere]

bonjour
Nadia quelques exemples

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

 

[nadia_42]

bonjour Bebere

merci pour votre aide.

je vais étudie ces code et je vous répond

merci une 2eme fois.

 

[nadia_42]

Résolu

Merci encore Mr Bebere