Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A33:Q49")) Is Nothing Then Exit Sub
If Range("B" & Target.Row) =3D "" Then Exit Sub
Target.Copy
Application.EnableEvents =3D False
taddress =3D Target.Offset(-29, 0).Address
With Sheets("Rapport des transactions")
.Range(taddress).PasteSpecial xlPasteAll
End With
Application.EnableEvents =3D True
End Sub
Au lieu de coller mes donn=E9es au tadress offset(-29,0), j'aimerais que
les donn=E9es se copie sur la prochaine ligne vide. Donc la premi=E8re
ligne va se offset de -29 mais apr=E8s les autres vont se mettre
directemetn sur la prochaine ligne vide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonsoir,
Non testé :
With Sheets("Rapport des transactions") 'dernière ligne renseignée lig = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
'ligne suivante lig=lig+1
'copie en colonne A .cells(lig,"A").PasteSpecial xlPasteAll
'si tu dois copier dans la même colonne que target : ' .cells(lig,target.column).PasteSpecial xlPasteAll
End With
@+ FxM
Bonjour,
Voici mon code présentement:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A33:Q49")) Is Nothing Then Exit Sub If Range("B" & Target.Row) = "" Then Exit Sub Target.Copy Application.EnableEvents = False
taddress = Target.Offset(-29, 0).Address
With Sheets("Rapport des transactions") .Range(taddress).PasteSpecial xlPasteAll End With
Application.EnableEvents = True
End Sub
Au lieu de coller mes données au tadress offset(-29,0), j'aimerais que les données se copie sur la prochaine ligne vide. Donc la première ligne va se offset de -29 mais après les autres vont se mettre directemetn sur la prochaine ligne vide.
Que dois-je faire?
Merci MP
Bonsoir,
Non testé :
With Sheets("Rapport des transactions")
'dernière ligne renseignée
lig = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
'ligne suivante
lig=lig+1
'copie en colonne A
.cells(lig,"A").PasteSpecial xlPasteAll
'si tu dois copier dans la même colonne que target :
' .cells(lig,target.column).PasteSpecial xlPasteAll
End With
@+
FxM
Bonjour,
Voici mon code présentement:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A33:Q49")) Is Nothing Then Exit Sub
If Range("B" & Target.Row) = "" Then Exit Sub
Target.Copy
Application.EnableEvents = False
taddress = Target.Offset(-29, 0).Address
With Sheets("Rapport des transactions")
.Range(taddress).PasteSpecial xlPasteAll
End With
Application.EnableEvents = True
End Sub
Au lieu de coller mes données au tadress offset(-29,0), j'aimerais que
les données se copie sur la prochaine ligne vide. Donc la première
ligne va se offset de -29 mais après les autres vont se mettre
directemetn sur la prochaine ligne vide.
With Sheets("Rapport des transactions") 'dernière ligne renseignée lig = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
'ligne suivante lig=lig+1
'copie en colonne A .cells(lig,"A").PasteSpecial xlPasteAll
'si tu dois copier dans la même colonne que target : ' .cells(lig,target.column).PasteSpecial xlPasteAll
End With
@+ FxM
Bonjour,
Voici mon code présentement:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A33:Q49")) Is Nothing Then Exit Sub If Range("B" & Target.Row) = "" Then Exit Sub Target.Copy Application.EnableEvents = False
taddress = Target.Offset(-29, 0).Address
With Sheets("Rapport des transactions") .Range(taddress).PasteSpecial xlPasteAll End With
Application.EnableEvents = True
End Sub
Au lieu de coller mes données au tadress offset(-29,0), j'aimerais que les données se copie sur la prochaine ligne vide. Donc la première ligne va se offset de -29 mais après les autres vont se mettre directemetn sur la prochaine ligne vide.
