Utiliser une macro pour insérer une ligne à copier

sariama Messages postés 5 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
Je prépare une automatisation de cas de tests,

Sur une ligne de référence je saisi des données, et je souhaiterai qu'à chaque nouveau cas à passer, je lance une macro qui copie / colle ma ligne de référence à la suite des premières déjà renseignées :

Ci-après la macro qui fait le copier / coller et se positionne sur la ligne suivante, et je voudrais l'automatiser, quelqu'un pourrait m'aider ?

A23, et la première ligne d'où doit commencer mon coller, et donc A24, la suivante (même si vous l'avez compris ce devrait être x+1)

Sub Jouer_un_cas_de_test()
'
' Jouer_un_cas_de_test Macro
'

'
Rows("2:2").Select
Selection.Copy
Range("A23").Select
ActiveSheet.Paste
Range("A24").Select
End Sub

Encore merci !!!!

2 réponses

  1.
    eljojo_e Messages postés 1255 Statut Membre 155
     
    bonjour,

    si j'ai compris, la ligne 2 doit etre copier sur la dernière : 
    Sub Jouer_un_cas_de_test() 
' 
' Jouer_un_cas_de_test Macro 
' 

' 
Rows("2:2").Select 
Selection.Copy 
for a = 1 to 1000

if range("a" & a).value = "" then
rows(a & ":" & a).select
ActiveSheet.Paste 
exit sub
end if

next

ens sub
    0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Ta demande ne me semble pas très claire.
    Peux tu envoyer une partie de ton fichier, éventuellement anonymisé, au format excel 2003 su cjoint.com et joindre le lien obtenu à ton prochain message
    N'oublies pas d'y ajouter quelques explications,( ce que tu veux obtenir, quand, à partir de quoi) avec un ou deux exemples

    bonne suite
    0