Copie feuille

Salut Linda,

Il y a plusieurs solutions possibles :

- INDEX/EQUIV
- Copie d'une plage par macro,
- Report de données sélectionnées.

Il serait utile de savoir où tu en es et ce que tu veux obtenir : Peux-tu joindre un exemple de ton classeur ?


A+
LN

Bonjour le Forum

Je joins 2 Excel

Dans le class1 il y a les données à transférer dans le class2.
Dans le class2 << exemple Alain doit avoir en face de son nom et la lettre concordante les données dans les cellules C.D.E

Merci

Bonsoir Linda,

Voici un code qui marche si tu prends soin de répéter les prénoms dans la colonne A du classeur 2 et si tu supprimes tous les espaces qui se trouvent à différents endroits des classeurs (attention, un "A" n'est pas égal à "A ").

'Cette macro doit être lancée à partir du classeur 2
Sub Notes()
Dim RG As Range, CL1 As Range, CL2 As Range
Dim ST1 As String, ST2 As String

Set RG = Range("[Class1.xls]Feuil1!A1:E9")

For Each CL2 In Range("A1:A12")
ST2 = CL2.Value & CL2.Offset(0, 1).Value
For Each CL1 In RG
ST1 = CL1.Value & CL1.Offset(0, 1).Value
If ST1 = ST2 Then
CL2.Offset(0, 2) = CL1.Offset(0, 2)
CL2.Offset(0, 3) = CL1.Offset(0, 3)
CL2.Offset(0, 4) = CL1.Offset(0, 4)
Exit For
End If
Next CL1
Next CL2
Set RG = Nothing
End Sub

A+
LN

Merci Lord Nelson

Trop fort je vais pouvoir me débrouiller.

A++

Linda