coller chiffres ds autre tableau

Hervé

XLDnaute Barbatruc

• 13 Juin 2005

• #2

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

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

N

nico

Guest

• 13 Juin 2005

• #3

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 13 Juin 2005

• #4

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]

 

Pièces jointes

• nico_20050613123805.zip

  8.6 KB · Affichages: 13

Vote positif 0 Vote négatif

2passage

XLDnaute Impliqué

• 13 Juin 2005

• #5

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]

 

Pièces jointes

• nico_solution_formule.zip

  4.2 KB · Affichages: 12

Vote positif 0 Vote négatif