Bonjour à tous,
Alors j'ai un point bloquant dans un code que je fais pour copier un tableau d'une feuille "M" à une autre feuille "Feuil1".
Mais je voudrais aussi copier, à chaque fois que je clique sur le bouton, la date mise dans la cellule A1 de la feuille "M" dans la cellule précédente juste avant la copie du tableau.
Voici mon code:
Sub Bouton19_Cliquer()
Range("Tableau69").Copy
Range("A3").Select
Sheets("M").Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range("A1").Select
Selection.Copy
Sheets("Feuil1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Sheets("Feuil1").Range("A65000").End(xlUp).Offset(3) ''Je décale ici mon tableau de 3 lignes pour pouvoir insérer la date sur la ligne précédente et aussi laisser de l'espace entre les tableaux copiés
.PasteSpecial Paste:=xlPasteValues 'Arriver à ce niveau mon code beugue et ne veut pas copier le tableau
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteAllExceptBorders
.Application.CutCopyMode = False
End With
End Sub
Pour le moment, mon code beugue alors pourriez vous svp me le corriger.
Merciii