Incrémenter des lignes via une macro!! (simple)

[sebastien450]

Bonjours!!
Je vous fait part d'un problème trés simple mais que je n'arrive pas:

J'aimerais, à l'aide d'une macro, recopier une valeur contenue dans les cellules E3:F3 dans les cellules A3:B3.
Rien de plus simple j'y arrive.

Seulement, j'aimerais que a chaque fois que je modifie mes cellules E3:F3, et que j'active ma macro, cela se recopie, mais sans effacer les valeurs précedemment enregistrée!
Il faudrait donc une macro qui incrémente d'une ligne à chaque fois qu'on l'active...

Voir le fichier joint, ca sera plus clair.

Merci d'avance

 

[porcinet82]

Re : Incrémenter des lignes via une macro!! (simple)

Salut,

Avec le code suivant ca fonctionne :

Sub Macroajout()
Dim der_lig As Integer
der_lig = Range("A65536").End(xlUp).Row
Range("E3:F3").Copy Destination:=Range("A" & der_lig + 1 & ":B" & der_lig + 1)
End Sub

@+

 

[sebastien450]

Re : Incrémenter des lignes via une macro!! (simple)

Merci de ta formule qui marche.
Cepandant comment faire pour copier non plus sur la feuille 1 mais sur la feuille 2 ?

 

[porcinet82]

Re : Incrémenter des lignes via une macro!! (simple)

re,

En supposant que ta feuille 2 soit identique a ta feuille 1, il te suffit de modifier comme ceci :

Range("E3:F3").Copy Destination:=[B]Sheets("Feuil2").[/B]Range("A" & der_lig + 1 & ":B" & der_lig + 1)

@+

 

[sebastien450]

Re : Incrémenter des lignes via une macro!! (simple)

J'ai un soucis:
Mon code est le suivant:


Dim der_lig As Integer
der_lig = Range("A65536").End(xlUp).Row
Range("A43:B43").Copy Destination:=Sheets("Fréquentiel Out 9037").Range("Q" & der_lig + 1 & ":R" & der_lig + 1)

Or il me recopie sur la feuil 2 ("Fréquentiel Out 9037"), en ligne 46 alors qu'il n'y a rien sur la ligne 4....

 

[sebastien450]

Re : Incrémenter des lignes via une macro!! (simple)

Problème resolue en applicant le code suivant:
Dim der_lig As Integer
Sheets("Fréquentiel Out 9037").Select
der_lig = Range("Q65536").End(xlUp).Row
Sheets("RPUR Base B-9037").Select
Range("A43:B43").Copy Destination:=Sheets("Fréquentiel Out 9037").Range("Q" & der_lig + 1 & ":R" & der_lig + 1)

 

[porcinet82]

Re : Incrémenter des lignes via une macro!! (simple)

re,

Désolé, j'ai répondu trop vite !!!
Juste un petit conseil, essais d'éviter un maximum les Slect qui en général ne servent à rien, à par à alourdir le code. Du coup, tu peux mettre ca (a la place de ta dernière proposition) :

Dim der_lig As Integer
der_lig = Sheets("Fréquentiel Out 9037").Range("Q65536").End(xlUp).Row
Sheets("RPUR Base B-9037").Range("A43:B43").Copy Destination:=Sheets("Fréquentiel Out 9037").Range("Q" & der_lig + 1 & ":R" & der_lig + 1)

@+