Répondre à la discussion

Message

<blockquote data-quote="Dravol" data-source="post: 20418469" data-attributes="member: 301674">Bonjour à tous,Je souhaiterais copier certaines cellules d'un classeur pour les coller à la fin d'un tableau (donc 1ière ligne vide) en gardant le format du fichier destination.Ma macro ci-dessous s'exécute correctement mais ne recherche pas la dernière ligne après chaque lancement...Il faudrait remplacer&nbsp; =&gt;&nbsp;&nbsp; Range(&quot;A164&quot;).Select&nbsp;&nbsp; par un code qui recherche la 1ière ligne vide il me semble.Pouvez-vous m'aider ?Sub transfert()'' Transfert Macro''&nbsp; &nbsp; Range(&quot;AE3:AU9&quot; &amp; derlig + 1).Select&nbsp; &nbsp; Selection.Copy&nbsp; &nbsp; Windows(&quot;LUP Atelier.xls&quot;).Activate&nbsp; &nbsp; Range(&quot;A164&quot;).Select&nbsp; &nbsp; Selection.End(xlDown).Select&nbsp; &nbsp; Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _&nbsp; &nbsp; &nbsp; &nbsp; :=False, Transpose:=False&nbsp; &nbsp; &nbsp; &nbsp; Windows(&quot;Analyse des pertes journalière v4.xlsm&quot;).ActivateEnd SubDrav.</blockquote>

[QUOTE="Dravol, post: 20418469, member: 301674"] Bonjour à tous, Je souhaiterais copier certaines cellules d'un classeur pour les coller à la fin d'un tableau (donc 1ière ligne vide) en gardant le format du fichier destination. Ma macro ci-dessous s'exécute correctement mais ne recherche pas la dernière ligne après chaque lancement... Il faudrait remplacer => Range("A164").Select par un code qui recherche la 1ière ligne vide il me semble. Pouvez-vous m'aider ? Sub transfert() ' ' Transfert Macro ' ' Range("AE3:AU9" & derlig + 1).Select Selection.Copy Windows("LUP Atelier.xls").Activate Range("A164").Select Selection.End(xlDown).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Analyse des pertes journalière v4.xlsm").Activate End Sub Drav. [/QUOTE]

Vérification