copier coller et effacer

G

Guest

Guest

• 26 Juin 2008

• #2

Re : copier coller et effacer

Bonsoir Pascal,

A coller dans le module de la feuille(click-droit sur le nom de la feuille puis 'visualiser le code'):

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 7 Then
        Target.Offset(, 1).Cut Target
        Application.CutCopyMode = False
    End If
    Cancel = True
End Sub

bonne soirée

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 27 Juin 2008

• #3

Re : copier coller et effacer

bonsoir
ça fonctionne, mais tellement bien que ça copie même le format de la cellule H
il ne faudrait que la valeur
car dans les 2 cellules j'ai un format conditionnel différent qui du coup s'efface

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 28 Juin 2008

• #4

Re : copier coller et effacer

bonjour le Forum,

bonjour Pascal,

Avec les lignes ci-dessous, seule la valeur sera copiée:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 7 Then
        Target.Value=Target.Offset(, 1).value
     End If
    Cancel = True
End Sub

Bon Week-End

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Juin 2008

• #5

Re : copier coller et effacer

Bonjour à tous,
Hasco, vous avez oublié une ligne :
Target.Offset(, 1).ClearContents
Pas grave.
A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 28 Juin 2008

• #6

Re : copier coller et effacer

Bonjour à tous,
Salut Hasco ,

Pour répondre encore plus strictement à notre ami (copier, coller et effacer)

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 7 Then
        Target.Value = Target.Offset(0, 1).Value
        Target.Offset(0, 1).Value = ""
     End If
    Cancel = True
End Sub

A++
A+ à tous

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 29 Juin 2008

• #7

Re : copier coller et effacer

bonjour c'est parfait merci JCGL merci à tous

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 29 Juin 2008

• #8

Re : copier coller et effacer

Bon dimanche Pascal,
Hello, JC
Salut Job75,

Quelle tête percée cet Hasco!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Désolé Pascal.

A+ tout le monde

 

Vote positif 0 Vote négatif