récupération de données

[débute en vba]

bonjour,
j'ai mis un fichier test en pièce jointe.

Je voudrais récupérer les 2 types de données de la feuil1 et feuil2 et les retranscrire dans un tableau de la feul3.

Y a-t'il un code vba simple ou moins simple pour ce faire ?

merci par avance
et bon week end à tous

 

[Ricco]

Tu as oublié de joindre ton fichier

 

[débute en vba]

désolé, voilà qui est chose faite !
merci

 

[débute en vba]

enfin le voilà !
il fallait biensur le zipper ! [file name=test_20060331170807.zip size=1754]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060331170807.zip[/file]

 

[MichelXld]

bonsoir

j'espere que cet exemple pourra t'aider

Sub BoucleFeuilles()
Dim i As Integer

For i = 1 To 3 'Index des Feuilles contenant les infos à recuperer
'hypothese que les feuilles sont dans l'ordre
'1ere feuille = Pomme
'2eme feuille = Fraises
'...etc...

Sheets('Feuil4').Cells(i + 12, 3) = Sheets(i).Range('C10')
'Sheets('Feuil4').Cells(i, 3) :
'3 correspond à la colonne C dans la Feuille 4
'i + 12 : pour insérer les données à partir de la ligne 13
Next i
End Sub


bon week end
MichelXld