Mettre une selection dans un tableau

[Hoareau]

Bonjour

Je sélectionne une ligne, comment le mettre dans un tableau.
La macro ci dessous sélectionne une partie de la ligne, comment mettre le résultat dans tableau.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <= 20 And Target.Rows.Count = 1 Then
Target.Copy _
Sheets("Tableau").Range("A65536").End(xlUp).Offset(1)
End If
End Sub

merci

 

[matthieu33]

Re : Mettre une selection dans un tableau

Bonjour Hoareau,

Peux-tu essayer le code ci-dessous ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lgDerLig As Long
    
    If Target.Count <= 20 And Target.Rows.Count = 1 Then
        lgDerLig = Sheets("Tableau").Range("A65536").End(xlUp).Row
        Target.Copy Destination:=Sheets("Tableau").Range("A" & lgDerLig + 1)
    End If
End Sub

Merci

 

[BOISGONTIER]

Re : Mettre une selection dans un tableau

Bonjour,

Tableau en mémoire ou dans le tableur?

JB

 

[excalibur]

Re : Mettre une selection dans un tableau

bonjour le fil le forum peut etre comme cela aussi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <= 20 And Target.Rows.Count = 1 Then
Sheets("Tableau").Range("A65536").End(xlUp).Offset(1) = Target
End If
End Sub

salutations

 

[Excel_lent]

Re : Mettre une selection dans un tableau

Salut Hoareau, Matthieu, JB

à voir (si j'ai compris). Ayant du mal avec UBound, je passe par Target.Count.

 

[Hoareau]

Re : Mettre une selection dans un tableau

Merci a tous

Ce que je voulais, c'est le tableau en mémoire