Copier des changements

M

mboileau

Bonjour,

J'aimerais que lorsque j'entre des dates dans les cellules A33:A42, les
informations que j'entre par la suite dans les cellules B33:G42 aille
se copier dans les cellules B63:G72.

Voici ce que j'ai commencé à écrire mais ca ne fonctionne pas


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)

If Target = Feuil1.Range("A33:A42") Then
Feuil1.Range("B33:G42").Copy
Feuil1.Range("B63:G72").PasteSpecial xlPasteAll
End If

End Sub

Merci
MP
 
T

Trevor Shuttleworth

Bonsoir

essayez ceci:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B33:G42")) Is Nothing Then Exit Sub
If Range("A" & Target.Row) = "" Then Exit Sub
Target.Copy
Application.EnableEvents = False
Target.Offset(30, 0).PasteSpecial xlPasteAll
Application.EnableEvents = True

End Sub

Bonne soiree

Trevor

Bonjour,

J'aimerais que lorsque j'entre des dates dans les cellules A33:A42, les
informations que j'entre par la suite dans les cellules B33:G42 aille
se copier dans les cellules B63:G72.

Voici ce que j'ai commencé à écrire mais ca ne fonctionne pas


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)

If Target = Feuil1.Range("A33:A42") Then
Feuil1.Range("B33:G42").Copy
Feuil1.Range("B63:G72").PasteSpecial xlPasteAll
End If

End Sub

Merci
MP
 
M

mboileau

J'aimerais coller le target fur la feuille 16 en partant de la cellule
A1.

Que dois-je modifier?

Merci
MP

Trevor Shuttleworth a écrit :
 
T

Trevor Shuttleworth

Je suis désolé. Je ne sais pas. Je ne comprends pas ce que vous devez
faire.






J'aimerais coller le target fur la feuille 16 en partant de la cellule
A1.

Que dois-je modifier?

Merci
MP

Trevor Shuttleworth a écrit :
 
M

mboileau

À la place de copier les données de cette facon:

Target.Offset(30, 0).PasteSpecial xlPasteAll

Je veux les copier sur la feuil16 de mon classeur.

???

Merci
MP


Trevor Shuttleworth a écrit :
 
T

Trevor Shuttleworth

Peut être

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B33:G42")) Is Nothing Then Exit Sub
If Range("A" & Target.Row) = "" Then Exit Sub
Target.Copy
Application.EnableEvents = False

taddress = Target.Offset(30, 0).Address

With Sheets("feuil16")
.Range(taddress).PasteSpecial xlPasteAll
End With

Application.EnableEvents = True

End Sub


À la place de copier les données de cette facon:

Target.Offset(30, 0).PasteSpecial xlPasteAll

Je veux les copier sur la feuil16 de mon classeur.

???

Merci
MP


Trevor Shuttleworth a écrit :
 
T

Trevor Shuttleworth

C'est bon. Merci de la rétroaction


ca fonctionne parfaitement merci!

MP

Trevor Shuttleworth a écrit :
 
Top