XL 2010 Macro double clic cellule copie colle

[erwanhavre]

Bonjour je cherche une macro pour faire ceci

• Double clic dans la colonne d de la feuille 1
• Copie de la ligne complète
• Collage des valeurs dans la ligne 1 de la feuille 2 (pas besoin d'incrémentation)

Merci à tous

 

[pierrejean]

Bonjour erwanhavre

A tester

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then
  Rows(Target.Row).Copy Destination:=Sheets("Feuil2").Rows(1)
End If
Sheets("Feuil2").Select
End Sub

 

[erwanhavre]

Bonjour top cela fonctionne par contre quelque soit l'endroit ou l'on double clic on arrive sur la feuille 2
est ce qu'on peut limiter au double clic dans la colonne 4 ?
en tout cas un grand merci pierrejean

 

[erwanhavre]

#pierrejean ?

 

[Staple1600]

Bonsoir le fil, le forum

@erwanhavre
la macro de pierrejean fonctionne
(le code doit être dans le code de la feuille 1)
Et cette version de sa macro fonctionne également 😉

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then
Target.EntireRow.Copy Feuil2.Cells(1)
End If
Feuil2.Select
End
End Sub

 

[job75]

Bonsoir à tous,

Tu n'as pas compris JM, erwanhavre au post #3 veut simplement ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then
    Rows(Target.Row).Copy Destination:=Sheets("Feuil2").Rows(1)
    Sheets("Feuil2").Select
End If
End Sub

A+

 

[Staple1600]

Re

@job75 (bonsoir)
J'ai bien fait ne pas comprendre puisque cela t'a permis de te manifester, du coup erwanhavre a ce qu'il voulait (le tout sans déranger pierrejean) 😉

 

[erwanhavre]

messieurs vous êtes au top
est ce la formule ne peut coller QUE les valeurs ?

 

[Staple1600]

Re

Oui, c'est possible
Mais qui de pierrejean, job75, moi-même ou tout autre XLDnaute postera la solution ?
Suspens ! 😉

(A moins, que tu fasses un peu de recherche et que tu trouves la solution tellement c'est simple, surtout si tu penses à utiliser l'enregistreur de macros 😉 )

 

[erwanhavre]

habituellement je vois le "paste" mais là c'est différent allez staaple1600 après je ne vous embête plus lol

 

[erwanhavre]

help svp messieurs 😉

 

[job75]

Bonjour,

est ce la formule ne peut coller QUE les valeurs ?

Help help... Vous ne connaissez pas le collage spécial ???

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Then
    Rows(Target.Row).Copy
    With Sheets("Feuil2")
        .Rows(1).PasteSpecial xlPasteValues 'collage spécial
        Application.Goto .[A1], True 'cadrage
    End With
    Application.CutCopyMode = 0
End If
End Sub

 

[erwanhavre]

bonjour et merci pour vos réponse pour ma part je n'ai pas vos connaissances je me débrouille 90% du temps seul mais le vba est compris à 20% il me manque des automatismes
la question est comment apprendre le langage à votre niveau ?