Transfert de données d'une feuille à l'autre

[pascal71]

Bonjour,

Je souhaite transferer des données d'une feuille vers une autre et ceci en fonction d'autre données.

Je vous joint un fichier, cela sera plus explicite.

Ma demande est formulée dans la feuil1

J'ai un niveau débutant en excel et vba.

Merci par avance pour vos réponses.

Pascal71

 

[pascal71]

voici le fichier

 

[pascal71]

Re-bonjour,

je n'arrive pas à joindre le fichier. Pouvez-vous m'aider ?

Merci

pascal71

 

[pascal71]

Re-bonjour,

Le voici enfin le fichier

Pascal71 [file name=esssai.zip size=9178]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/esssai.zip[/file]

 

[Flyonets]

Bonjour

ci joint un exemple de code

Sub Copie_datas_dans_feuille()
' dans le même classeur, des datas d'une feuille dans une autre, Colonne 1 à 6
Dim Rg As Range,Derli&
Dim Tablo, Dest As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Feuil2 'Feuille source
.Activate
.Cells(2, 1).Select
Derli = Range('A65536').End(xlUp).Row - 1
' Copie à partir de la 2° Ligne jusqu'à la dernière
Tablo = Feuil2.Cells(2, 1).Resize(Derli, 6).Value
End With

With Feuil3 'Feuille de destination
'Première cellule de la plage
'Set Dest = .Range('A2')
.Cells(2, 1).Resize(Derli, 6) = Tablo
.Activate
.Cells(2, 1).Select

End With
Application.EnableEvents = True
Set Rg = Nothing
Erase Tablo
End Sub

 

[pascal71]

Merci ,

Je vais l'essayer.

Pascal71