Mettre une selection dans un tableau

matthieu33

XLDnaute Occasionnel

• 29 Novembre 2007

• #2

Re : Mettre une selection dans un tableau

Bonjour Hoareau,

Peux-tu essayer le code ci-dessous ?

Code:

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 29 Novembre 2007

• #3

Re : Mettre une selection dans un tableau

Bonjour,

Tableau en mémoire ou dans le tableur?

JB

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 29 Novembre 2007

• #4

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

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 29 Novembre 2007

• #5

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.

 

Pièces jointes

• Target Tablo E.zip

  8 KB · Affichages: 19

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 29 Novembre 2007

• #6

Re : Mettre une selection dans un tableau

Merci a tous

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

 

Vote positif 0 Vote négatif