Bonjour a tous,
J'ai pourtant chercher sur le net, mais n'ai rien trouvé correspondant a ma recherche.
En fait, j'ai crée une macro qui copie une cellule d'une feuille, puis va la coller à la dernière ligne vide d'une feuille d'un autre classeur.
Jusque la tout va bien.
La ou je coince, c'est que j'ai besoin de copier plusieurs cellules d'une feuille, a des endroits différents, et les coller en ligne sur l'autre classeur.
Du coup, je répète plusieurs fois la macro suivante :
Dim x As Integer
ThisWorkbook.Sheets("DEVIS").Range("I5").Copy 'NUMERO DEVIS
Workbooks("Base_Donnée.xlsm").Sheets("Feuil1").Activate
x = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1 'On détecte la dernière ligne non vide + 1
Range("A" & x).Select 'On sélectionne la dernière ligne non vide + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'Colle sans mise en forme
Y-a-t-il un moyen plus simple ?