Re : Copier coller une plage de données d'un classeur à un autre et sauvegarder
Je n'ai peut être pas été assez claire , je reprend alors.
Dans le classeur ci-joint j'ai 2 feuilles nomées "Onglet1" et "onglet2 mon but est de copier la plage B5😀13 de "onglet" pour la coller dans "onglet2" quand la cellule C4 de "Onglet1" coïncide avec une cellule de la ligne 6 dans "onglet 2"
C'est -à-dire que si C4 de "onglet 2" = 01/08/2012 alors il ma macro doit copier la plage B5😀13 et la coller sous la date 01/08/2012 de la feuille 2 (donc "onglet2")
J'espère avoir été sinon n'hésitez pas à me demander plus de précisions.
J'ai concocter le code suivant :
Private Sub Worksheet_Change(ByVal Sh As Object, ByVal Target As Range)
Dim D As Range, dercol As Long
With Sheets("Onglet2")
dercol = .Cells(6, .Columns.Count).End(xlToLeft).Column
If Target.Address = "$C$4" Then
Set D = .Range("C6", .Cells(6, dercol)).Find(Target, .Cells(6, dercol), LookIn:=xlValues)
If Not D Is Nothing Then
.Range(D(2, 0), D(10, 2)).Value = Sheets("Onglet1").Range("B5😀13").Value
End If
End If
End Sub
Qui malheurseusment ne marche , lorsque j'essai de l'exécuter on me demande le de la macro au lieu...
A l'aide, aidez moi svp je bloque ....
Je vous mon nouveau fichier.