Copier des changements

[email protected] · 08-15-2006, 11:35 AM

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=E9 =E0 =E9crire mais ca ne fonctionne pas

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

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

End Sub

Merci
MP

Trevor Shuttleworth · 08-15-2006, 01:35 PM

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

<[email protected]> wrote in message
news:[email protected]...
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

[email protected] · 08-15-2006, 02:10 PM

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

Que dois-je modifier?

Merci
MP

Trevor Shuttleworth a =E9crit :

> 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) =3D "" Then Exit Sub
> Target.Copy
> Application.EnableEvents =3D False
> Target.Offset(30, 0).PasteSpecial xlPasteAll
> Application.EnableEvents =3D True
>
> End Sub
>
> Bonne soiree
>
> Trevor
>
> <[email protected]> wrote in message
> news:[email protected]...
> 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=E9 =E0 =E9crire mais ca ne fonctionne pas
>
>
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
> Range)
>
> If Target =3D Feuil1.Range("A33:A42") Then
> Feuil1.Range("B33:G42").Copy
> Feuil1.Range("B63:G72").PasteSpecial xlPasteAll
> End If
>=20
> End Sub
>=20
> Merci
> MP

Trevor Shuttleworth · 08-15-2006, 03:30 PM

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

<[email protected]> wrote in message
news:[email protected]...

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 :

> 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
>
> <[email protected]> wrote in message
> news:[email protected]...
> 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

[email protected] · 08-15-2006, 03:50 PM

=C0 la place de copier les donn=E9es de cette facon:

Target.Offset(30, 0).PasteSpecial xlPasteAll

Je veux les copier sur la feuil16 de mon classeur.

???

Merci
MP

Trevor Shuttleworth a =E9crit :

> Je suis d=E9sol=E9. Je ne sais pas. Je ne comprends pas ce que vous dev=
ez
> faire.
>
>
>
>
>
> <[email protected]> wrote in message
> news:[email protected]...
>
> J'aimerais coller le target fur la feuille 16 en partant de la cellule
> A1.
>
> Que dois-je modifier?
>
> Merci
> MP
>
> Trevor Shuttleworth a =E9crit :
>
> > 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) =3D "" Then Exit Sub
> > Target.Copy
> > Application.EnableEvents =3D False
> > Target.Offset(30, 0).PasteSpecial xlPasteAll
> > Application.EnableEvents =3D True
> >
> > End Sub
> >
> > Bonne soiree
> >
> > Trevor
> >
> > <[email protected]> wrote in message
> > news:[email protected]...
> > 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=E9 =E0 =E9crire mais ca ne fonctionne pas
> >
> >
> > Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
> > Range)
> >
> > If Target =3D Feuil1.Range("A33:A42") Then
> > Feuil1.Range("B33:G42").Copy
> > Feuil1.Range("B63:G72").PasteSpecial xlPasteAll
> > End If
> >
> > End Sub
> >
> > Merci
> > MP

Trevor Shuttleworth · 08-15-2006, 04:10 PM

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

<[email protected]> wrote in message
news:[email protected]...
À 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 :

> Je suis désolé. Je ne sais pas. Je ne comprends pas ce que vous devez
> faire.
>
>
>
>
>
> <[email protected]> wrote in message
> news:[email protected]...
>
> 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 :
>
> > 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
> >
> > <[email protected]> wrote in message
> > news:[email protected]...
> > 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

[email protected] · 08-15-2006, 04:35 PM

ca fonctionne parfaitement merci!

MP

Trevor Shuttleworth a =E9crit :

> Peut =EAtre
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> If Intersect(Target, Range("B33:G42")) Is Nothing Then Exit Sub
> If Range("A" & Target.Row) =3D "" Then Exit Sub
> Target.Copy
> Application.EnableEvents =3D False
>
> taddress =3D Target.Offset(30, 0).Address
>
> With Sheets("feuil16")
> .Range(taddress).PasteSpecial xlPasteAll
> End With
>
> Application.EnableEvents =3D True
>
> End Sub
>
>
> <[email protected]> wrote in message
> news:[email protected]...
> =C0 la place de copier les donn=E9es de cette facon:
>
> Target.Offset(30, 0).PasteSpecial xlPasteAll
>
> Je veux les copier sur la feuil16 de mon classeur.
>
> ???
>
> Merci
> MP
>
>
> Trevor Shuttleworth a =E9crit :
>
> > Je suis d=E9sol=E9. Je ne sais pas. Je ne comprends pas ce que vous d=
evez
> > faire.
> >
> >
> >
> >
> >
> > <[email protected]> wrote in message
> > news:[email protected]...
> >
> > J'aimerais coller le target fur la feuille 16 en partant de la cellule
> > A1.
> >
> > Que dois-je modifier?
> >
> > Merci
> > MP
> >
> > Trevor Shuttleworth a =E9crit :
> >
> > > 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) =3D "" Then Exit Sub
> > > Target.Copy
> > > Application.EnableEvents =3D False
> > > Target.Offset(30, 0).PasteSpecial xlPasteAll
> > > Application.EnableEvents =3D True
> > >
> > > End Sub
> > >
> > > Bonne soiree
> > >
> > > Trevor
> > >
> > > <[email protected]> wrote in message
> > > news:[email protected]...
> > > Bonjour,
> > >
> > > J'aimerais que lorsque j'entre des dates dans les cellules A33:A42, l=
es
> > > 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=E9 =E0 =E9crire mais ca ne fonctionne pas
> > >
> > >
> > > Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
> > > Range)
> > >
> > > If Target =3D Feuil1.Range("A33:A42") Then
> > > Feuil1.Range("B33:G42").Copy
> > > Feuil1.Range("B63:G72").PasteSpecial xlPasteAll
> > > End If
> > >
> > > End Sub
> > >
> > > Merci
> > > MP

Trevor Shuttleworth · 08-15-2006, 05:55 PM

C'est bon. Merci de la rétroaction

<[email protected]> wrote in message
news:[email protected]...
ca fonctionne parfaitement merci!

MP

Trevor Shuttleworth a écrit :

> 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
>
>
> <[email protected]> wrote in message
> news:[email protected]...
> À 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 :
>
> > Je suis désolé. Je ne sais pas. Je ne comprends pas ce que vous devez
> > faire.
> >
> >
> >
> >
> >
> > <[email protected]> wrote in message
> > news:[email protected]...
> >
> > 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 :
> >
> > > 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
> > >
> > > <[email protected]> wrote in message
> > > news:[email protected]...
> > > 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