XL 2013 Ligne 1 vierge dans listage tableau

[dev_co]

Bonjour
Au début je remplis un tableau simple > ok , par contre si je veux définir ce tableau ( structuré je pense ?) et que je relance, une ligne vierge (1) s'insère et de plus
impossible à supprimer ?
Comment organiser tout ça et ne plus avoir cette ligne ?
merci de votre aide

 

[C'est papy Mougeot !]

Bonjour,
Dans les tableaux structurés il y a toujours une ligne vierge en dessous des en-têtes de colonnes dans laquelle sont écrites les premières données.

 

[dev_co]

Ok , mais sait on déclarer un tableau simple ?

 

[ChTi160]

Bonsoir le Fil
Peut être ainsi , si j'ai bien Compris Lol

Option Explicit
Dim Wbk As Workbook, Sht As Worksheet
Dim DLig As Long
Sub CompilerFics()
  Dim DosSource As String
 
  Set Sht = ThisWorkbook.Sheets("FIC")
  ' Pour commencer effacer les lignes existantes
 If Not Range("L_Com").ListObject.DataBodyRange Is Nothing Then
      Range("L_Com").ListObject.DataBodyRange.Delete 
 End If
  DosSource = ThisWorkbook.Path & "\T_projets\"
  If DosSource = "" Then Exit Sub 
  ListerFichiers DosSource, "xlsx", True 
  Set Sht = Nothing
End Sub

Sub ListerFichiers(DosSource As String, Extension As String, Optional SousFldr = True) 
  Dim Ind As Integer, TabVal() As String
  Dim fso As Object, Dossier As Object
  Dim SsRep As Object, Fic As Object
  Dim LstR As ListRow
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Dossier = fso.GetFolder(DosSource) 
  For Each Fic In Dossier.Files
    If UCase(Right(Fic.Name, 4)) = UCase(Extension) Then
       Set LstR = Range("L_Com").ListObject.ListRows.Add
    On Error Resume Next
      TabVal = Split(Fic.Name, "_")
      On Error GoTo 0
      For Ind = 0 To UBound(TabVal)
       With LstR
           .Range(1 + Ind) = TabVal(Ind)
       End With
      Next Ind
       LstR.Range(5).Hyperlinks.Add LstR.Range(5), Fic.Path
    End If
  Next
End Sub

Jean marie

 

[C'est papy Mougeot !]

Bonjour,
Voici deux tableaux qui se ressemblent et qui portent chacun un nom. Celui de gauche est une plage de données que l'on peut filtrer et effacer toutes les lignes. A droite c'est un tableau structuré mais qui n'a pas du tout les mêmes propriétés. Pour ce dernier on peut ajouter des colonnes avec la hampe bleue située en bas à droite du tableau. Personnellement je préfère travailler avec les tableaux structurés. Pour le premier j'ai mis la formule en B2 et je l'ai étirée manuellement jusqu'à B14. Pour le deuxième j'ai mis ma formule en G2 et elle s'est étirée automatiquement j'usqu'à G14.
Personnellement je trouve que votre code est bien fait car il permet de sauvegarder les données et de les effacer du tableau pour en rentrer de nouvelles. Cette ligne bleue restante est normale car c'est un tableau structuré qui permet un travail de qualité.

 

[dev_co]

Bonjour
merci bien de vos réponse
Je penche tout de suite sur la soluce de CHTI qui me permettra de faire ce que je voulais pour la suite
: il y a le Nom , on efface dès la 1ère ligne du tableau
@fcyspm30 : c'est un tableau de données pour traitement derrière que j'ai donc pas de formules