copier coller automatique

[oliv67]

bonsoir le forum

je vous embete juste sur un pb de copier coller.
l'exemple ci joint vous en dira beaucoup plus.

merci pour votre aide

olivier

 

[Excel-lent]

Re : copier coller automatique

L'idéal, c'est de lancer l'enregistreur de macro, et faire tout ce que tu as écris.

Tu obtiendras ceci :

Sub Macro1()
' Macro enregistrée le 02/12/2007 par Excel-lent

    Range("E3").[COLOR="Blue"]Select
    Selection.[/COLOR]Copy
    Range("F2").Select
    ActiveSheet.Paste
    Range("E5").[COLOR="Blue"]Select
    Application.CutCopyMode = False
    Selection.[/COLOR]Copy
    Range("F4").Select
    ActiveSheet.Paste
End Sub

Il ne te reste plus qu'à enlever ce qui sert à rien, tu obtiens donc :

Sub Macro1()
' Macro enregistrée le 02/12/2007 par Excel-lent

    Range("E3").Copy
    Range("F2").Select
    ActiveSheet.Paste
    Range("E5").Copy
    Range("F4").Select
    ActiveSheet.Paste
End Sub

Voici la méthode simple.

 

[Excel-lent]

Re : copier coller automatique

Amélioration!

Dans un second temps, comme ta tache est répétitive (toujours identique), donc tu insères une boucle pour que l'ordinateur le fasse automatiquement le nombre de fois voulu.

Sub Macro1()
' Macro enregistrée le 02/12/2007 par Excel-lent

Dim DerLigne As Integer
[I][COLOR="Teal"]DerLigne = Range("E65536").End(xlUp).Row[/COLOR][/I]

   [COLOR="Red"][B]For i = 3 To DerLigne Step 2[/B][/COLOR]
[COLOR="Orange"][B]       Range("E" & i).Copy
       Range("F" & i - 1).Select
       ActiveSheet.Paste[/B][/COLOR]
   [COLOR="blue"][B]Next i[/B][/COLOR]
End Sub

Début de ta boucle
Fin de ta boucle
Tâche répétitive que l'ordinateur répètera x fois
Cela permet de savoir combien de fois l'ordinateur va répéter la tâche

Voici succinctement ce que fait la macro ci-dessus. Si tu as besoin de plus de détail, n'hésites pas.

PS. Evidement, il existe d'autres solutions tout aussi efficace et peut-être plus courte

Bonne soirée

 

[fred65200]

Re : copier coller automatique

bonsoir à tous,

Sub Macro1()
' Macro enregistrée le 02/12/2007 par Excel-lent

Dim DerLigne As Integer
[I][COLOR=Teal]DerLigne = Range("E65536").End(xlUp).Row[/COLOR][/I]

   [COLOR=Red][B]For i = 3 To DerLigne Step 2[/B][/COLOR]
[COLOR=Orange][B]       Range("E" & i).Copy
       Range("F" & i - 1).Select
       ActiveSheet.Paste[/B][/COLOR]
   [COLOR=blue][B]Next i[/B][/COLOR]
End Sub

Tu peux encore optimiser un peu, en ne sélectionnant pas les cellules. Plus rapide

Sub Macro1()
' Macro enregistrée le 02/12/2007 par Excel-lent

Dim DerLigne As Integer
[I][COLOR=Teal]DerLigne = Range("E" & Application.Rows.Count).End(xlUp).Row[/COLOR][/I]

   [COLOR=Red][B]For i = 3 To DerLigne Step 2[/B][/COLOR]
[COLOR=Orange][B]       [SIZE=4]Range("E" & i).Copy Range("F" & i - 1)[/SIZE][/B][/COLOR]
   [COLOR=blue][B]Next i[/B][/COLOR]
End Sub

cordialement

 

[Banzai64]

Re : copier coller automatique

Bonjour

Une petite remarque

Il vaut mieux déclarer DerLigne as Long
Risque sinon de dépassement de capacité

 

[noviceAG]

Re : copier coller automatique

Bonjour oliv67, Excel-lent, fred65200, banzai64,le Forum,

Ah quelle joie lorsque l'on voit des spécialistes du codes votre connaissance et surtout, le partage que vous en faite est un régal pour les petits débutant comme moi.

Merci à vous tous et à ce Forum.

 

[oliv67]

Re : copier coller automatique

j'étais en déplacement
je vous remercie beaucoup pour votre aide.

merci le forum

olivier