Action après sélection d'une cellule

[bahhbouh]

Bonjour à tous, je sèche un peu sur une macro alors si vous pouvez m'aider 😀.
Voila, j'ai un tableau qui se trouve entre A14 et K400 et je voudrais que lorsque je sélectionne une cellule de la dernière colonne du tableau ex: K15 une macro me copie toute la ligne A15:K15 et la colle dans la ligne vide A10:K10.
Merci à tous pour votre aide.

 

[Dull]

Re : Action après sélection d'une cellule

Salut bahhbouh, le Forum

un essai en Pièce Jointe

a coller dans le Module de la Feuille Concernée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("K14:K400")) Is Nothing Then Target.EntireRow.Copy Destination:=Range("A10")
End Sub

Bonne Journée

 

[bahhbouh]

Re : Action après sélection d'une cellule

Merci, super, simple et efficace 🙂

 

[bahhbouh]

Re : Action après sélection d'une cellule

J'aurai encore une question, est ce qu'au lieu de copier toute la ligne "entireRow" je copie juste par ex de la colonne A à K, vu que j'ai 2 tableau l'un à coté de l'autre et donc ça ne m'arrange pas trop.
Merci.

 

[Dull]

Re : Action après sélection d'une cellule

Salut bahhbouh, le Forum

remplace le code par celui-ci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("K14:K400")) Is Nothing _
Then Range(Target.Offset(0, -10).Address & ":" & Target.Address).Copy Destination:=Range("A10")
End Sub

Bonne Journée

 

[bahhbouh]

Re : Action après sélection d'une cellule

Merci, té un pro mec.

 

[bahhbouh]

Re : Action après sélection d'une cellule

Bonjour à tous, encore un chtit détail, cette macro fonctionne pour toutes les feuilles alors je voudrais la limiter pour quelle n'affecte que la feuille "Comparaison_de_prix" par exemple.
J'ai essayé de le faire à ma facon mais ça ne marche pas 🙁

[SIZE="2"]Private Sub Workbook_SelectionChange(ByVal Sh As Object, ByVal Target As Range)


If Not Application.Intersect(Target, Comparaison_de_prix!Range("h16:h400")) Is Nothing _
Then Comparaison_de_prix!Range(Target.Offset(0, -7).Address & ":" & Target.Address).Copy Destination:=Range("A12")

If Not Application.Intersect(Target, Comparaison_de_prix!Range("s16:s400")) Is Nothing _
Then Comparaison_de_prix!Range(Target.Offset(0, -7).Address & ":" & Target.Address).Copy Destination:=Range("L12")

End Sub
[/SIZE]

Merci encore pour votre aide.

 

[Dull]

Re : Action après sélection d'une cellule

MP de bahhbouh

Tu peu me donner encore un petit coup de main sur le même sujet stp.
Merci.

https://www.excel-downloads.com/threads/action-apres-selection-dune-cellule.127183/

Salut bahhbouh🙂, Le Forum

Remet un petit up pour les non réponses 😛 car ici on est bénévole et notre seul salaire est la satisfaction des demandeurs 😀

Pour que cela ne fonctionne que sur la feuille Comparaison_de_prix met le code dans la feuille comparaison_de_prix 😉

Si tu veux vraiment le mettre dans le ThisWorkbook

met éventuellement ce code

Option Explicit

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

For Each Sh In ThisWorkbook.Sheets
    On Error Resume Next
    If Sh.Name <> "Comparaison_de_prix" Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Sh.Range("H16:H400")) Is Nothing Then Sh.Range(Target.Offset(0, -7).Address & ":" & Target.Address).Copy Destination:=Sh.Range("A12")
    If Not Application.Intersect(Target, Sh.Range("S16:S400")) Is Nothing Then Sh.Range(Target.Offset(0, -7).Address & ":" & Target.Address).Copy Destination:=Sh.Range("L12")
Next Sh
End Sub

 

[bahhbouh]

Re : Action après sélection d'une cellule

Ok, merci infiniment.