Copie feuille

[Linda]

Bonjour

Débutante en VBA

Je souhaiterai copier des données d'une page Excel dans une autre page Excel.
Dans un premier temps j'ai fait des tris pour me faciliter le travail, après j'appel la feuille1 dans la feuille 2 et après je bloque grave.
Auriez par hasard un exemple de transfert de données d'une feuille à l'autre pour que puisse m'en inspirer et continuer à progresser en programmation.

Merci

Linda

 

[Lord Nelson]

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

 

[Linda]

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

 

[Lord Nelson]

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

 

[Bulis]

Merci Lord Nelson

Trop fort je vais pouvoir me débrouiller.

A++

Linda