coller chiffres ds autre tableau

[nico]

bonjour au forum

j'ai un petit probleme sur une macro
je n'arrive pas a trouver le code pour copier les chiffres d'un tableau a un autre en respectant les intitullés

si vous voulez bien jeter un coup d'oeuil

merci d'avance [file name=nico_20050613114720.zip size=2477]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nico_20050613114720.zip[/file]

 

[Hervé]

Bonjour

une proposition :

Sub Bouton1_QuandClic()
Dim c As Range, x As Range
Dim i As Byte
For Each c In Range('a2:a5')
    Set x = Range('a26:a40').Find(c)
    For i = 1 To 7
        Range(x.Address).Offset(0, i) = c.Offset(0, i)
    Next i
Next c
End Sub

salut

 

[nico]

merci pour ta reponse mais j'ai l'impression que ca ne marche que pour la feuille1
comment faire pour l'adapter pour la feuille 2

je ne trouve pas la variable

merci si tu peux m'expliquer

 

[Hervé]

re

Une solution en pièce jointe.

salut


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

 

[2passage]

Bonjour,

une petite proposition sans macro, juste en formule, au cas ou...

++

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