Utiliser une macro pour insérer une ligne à copier

Fermé
sariama Messages postés 3 Date d'inscription jeudi 25 août 2011 Statut Membre Dernière intervention 1 mars 2013 - Modifié par sariama le 1/03/2013 à 15:20
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 - 2 mars 2013 à 20:52
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 !!!!
A voir également:

2 réponses

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 152
2 mars 2013 à 20:12
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
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
2 mars 2013 à 20:52
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