XL 2010 copier et coller vers autre page et à la suite

[Hafi.alaoui]

Bonjour
merci de m'aider de trouver un code
pour copier des cellules feuil1"C8:E19") vers feuil2, et incrémenter la suite feuil1"C8:E19")vers feuil2 après un clearcontent du feuil1
merci

 

[Calvus]

Bonjour,

Voici, si j'ai bien tout compris, car il est assez difficile de faire moins clair comme demande...

Option Explicit

Sub copie()
Dim f As Worksheet, f1 As Worksheet, i As Byte, j As Byte

Set f = Sheets("Feuil1")
Set f1 = Sheets("Feuil2")

j = f1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
For i = 8 To f.Cells(Rows.Count, 3).End(xlUp)
    If f.Cells(i, 3) <> "" Then
        f1.Cells(j, 2) = f.Cells(i, 2)
        f1.Cells(j, 3) = f.Cells(i, 3)
        f1.Cells(j, 4) = f.Cells(i, 4)
        f1.Cells(j, 5) = f.Cells(i, 5)
        j = j + 1
    End If
Next i
End Sub

A+

 

[yahya belbachir]

Bonjour,

Voici, si j'ai bien tout compris, car il est assez difficile de faire moins clair comme demande...

Option Explicit

Sub copie()
Dim f As Worksheet, f1 As Worksheet, i As Byte, j As Byte

Set f = Sheets("Feuil1")
Set f1 = Sheets("Feuil2")

j = f1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
For i = 8 To f.Cells(Rows.Count, 3).End(xlUp)
    If f.Cells(i, 3) <> "" Then
        f1.Cells(j, 2) = f.Cells(i, 2)
        f1.Cells(j, 3) = f.Cells(i, 3)
        f1.Cells(j, 4) = f.Cells(i, 4)
        f1.Cells(j, 5) = f.Cells(i, 5)
        j = j + 1
    End If
Next i
End Sub

A+

Bonjour
merci pour votre réponse
c'est juste ce que je veux.
bonne journée
Cdt
YAHYA

 

[Calvus]

Re,

Faut il te faire un clearcontents automatique également ?

 

[Calvus]

Re,

Au cas où, tu mets ce code dans le module 1

Sub Efface()
Range("C8:E" & Range("C" & Rows.Count).End(xlUp).Row).ClearContents
End Sub

A+

 

[Staple1600]

Bonsoir le fil,

Calvus
je me suis permis un petit lifting

Sub copie()
Dim f As Worksheet, f1 As Worksheet, i As Byte, j As Byte
Set f = Sheets("Feuil1")
Set f1 = Sheets("Feuil2")
j = f1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
For i = 8 To f.Cells(Rows.Count, 3).End(xlUp).Row
    If f.Cells(i, 3) <> "" Then
    f1.Cells(j, 2).Resize(, 4).Value = f.Cells(i, 2).Resize(, 4).Value
    j = j + 1
    End If
Next i
End Sub

Sinon on peut aussi voir du côté du filtre élaboré, peut-être

 

[Calvus]

Salut JM ,

J'ai failli passer par un tableau, mais ta solution est plus sexy !

Faut que je regarde ça de plus près.

Content de te lire (vu que tu réponds pas à mes mp....)

 

[Staple1600]

Re

Donc avec le filtre élaboré

Sub Macro1()
Dim critR As Range, DestR As Range
Set critR = Sheets("Feuil1").[K6:K7]: Set DestR = Sheets("Feuil2").[B2:E2]
Sheets("Feuil1").[B6:E18].AdvancedFilter xlFilterCopy, critR, DestR, False
End Sub

Pré-requis: défusionner la ligne d'entête (sur les deux feuilles)

 

[Calvus]

Re,

J'oublie fréquemment l'utilisation de cet outil qui est fort sympathique en réalité.

Mais dans le cas de notre ami, je pense que cette solution ne va pas être utile dans le sens où il souhaite conserver les données précédentes me semble t'il.
Qu'en penses tu ?

 

[Staple1600]

Re

Calvus.
On peut toujours modifier le code avec le Filtre en conséquence

 

[Calvus]

Re,

Ouais.... mais déjà que j'arrive pas à l'adapter à mon exemple.... ! Pffff

 

[Staple1600]

Re

Bah, pourtant je l'ai testé sur la PJ joint dans le fil
Evidemment en ayant pris soin de respecter le pré-requis signalé dans le message#8

 

[Calvus]

Re,

Non. Je parlais d'un de mes tableaux à moi.

 

[Hafi.alaoui]

Re,

Faut il te faire un clearcontents automatique également ?

ah oui je l'ai fais merci beaucop

 

[Hafi.alaoui]

Re

Calvus.
On peut toujours modifier le code avec le Filtre en conséquence

merci beaucoup votre code également fort,c'est bien et pratiquant.
merci