XL 2010 Macro double clic cellule copie colle

pierrejean

XLDnaute Barbatruc

• 6 Août 2018

• #2

Bonjour erwanhavre

A tester

Code:

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

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 6 Août 2018

• #3

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

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 6 Août 2018

• #4

#pierrejean ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Août 2018

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Août 2018

• #6

Bonsoir à tous,

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

Code:

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Août 2018

• #7

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)

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 6 Août 2018

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Août 2018

• #9

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 )

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 6 Août 2018

• #10

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

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 7 Août 2018

• #11

help svp messieurs

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Août 2018

• #12

Bonjour,

erwanhavre à dit:

est ce la formule ne peut coller QUE les valeurs ?

Cliquez pour agrandir...

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

Code:

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

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 12 Août 2018

• #13

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 ?

 

Vote positif 0 Vote négatif