XL 2019 Copier selection

[ben haj salah]

Bonjour,

y'as t-il un moyen pour sélectionner que les lignes qui contiennent des valeurs dans un tableau est pas tous le tableau

J'ai le code ci dessous mais ce n'est pas ce que je cherche car les numéros de lignes dans le tableau change toujours :

Range("A2:N6").Select
Selection.Copy

Merci,

 

[mapomme]

Bonjour @ben haj salah,

Si le tableau structuré s"appelle "Tableau1" et se trouve sur la feuille de nom "Feuil1", alors le code suivant (dans module1) doit fonctionner:

Sub LignesNonVides()
Dim t, i&, s$, j&, n&, sel As Range
   With Sheets("Feuil1").ListObjects("Tableau1")
      .DataBodyRange.Cells(1, 1).Offset(-1).Select
      t = .DataBodyRange.Value
      For i = 1 To UBound(t)
         s = "": For j = 1 To UBound(t, 2): s = s & t(i, j): Next
         If Len(s) > 0 Then
            n = n + 1
            If n = 1 Then Set sel = .ListRows(i).Range Else Set sel = Union(sel, .ListRows(i).Range)
         End If
      Next i
      If Not sel Is Nothing Then sel.Select
   End With
End Sub

 

[ben haj salah]

Merci bcp cela marche bien .

savez-vous svp comment faire un collage spécial de ce type d' Excel vers Word ! j'ai essayé paste spécial ca n'as pas marché !