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

porcinet82

XLDnaute Barbatruc

• 15 Décembre 2008

• #2

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

Salut,

Avec le code suivant ca fonctionne :

Code:

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

@+

 

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 15 Décembre 2008

• #3

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 ?

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 15 Décembre 2008

• #4

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 :

Code:

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

@+

 

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 15 Décembre 2008

• #5

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....

 

Vote positif 0 Vote négatif

S

sebastien450

XLDnaute Occasionnel

• 15 Décembre 2008

• #6

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)

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 15 Décembre 2008

• #7

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) :

Code:

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)

@+

 

Vote positif 0 Vote négatif