Bonjour,
Dans un tableau structuré, j'ai besoin de reproduire ce que l'on peut faire via la souris via VBA code
- Sélectionner la cellule Source (ex: I30)
- Remplir une plage de cellules (en se servant du pt. carrée en bas à dtr. du rectangle de sélection
- Etirer jusqu'à une cellule destination (ex : I31)
de plus la cellule Source est une variable, donc la cellule destination sera aussi variable
J'ai essayé plusieurs écriture sans succès.
voici le code
merci pour votre temps
Dans un tableau structuré, j'ai besoin de reproduire ce que l'on peut faire via la souris via VBA code
- Sélectionner la cellule Source (ex: I30)
- Remplir une plage de cellules (en se servant du pt. carrée en bas à dtr. du rectangle de sélection
- Etirer jusqu'à une cellule destination (ex : I31)
de plus la cellule Source est une variable, donc la cellule destination sera aussi variable
J'ai essayé plusieurs écriture sans succès.
voici le code
VB:
Dim Feuille As Worksheet
Dim list_obj As ListObject
Dim list_row As ListRow
Set Feuille = Sheets("Stock")
Set list_obj = Feuille.ListObjects(Nom_Tableau)
Set list_row = list_obj.ListRows.Add
Last_Line = list_obj.Range.Rows.Count
list_row.Range(Last_Line - 1, 9).Select ' sélection de la cellule source
Selection.Copy
' ligne pour sélectionner la plage pour copy
'list_row.Range("J" & Last_Line - 1 & ":" & "J" & Last_Line).Select
'list_row.Range(Cells(9, (Last_Line - 1)), Cells(9, Last_Line)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
merci pour votre temps