Double click=coller dans une autre feuil

Pierrot93

XLDnaute Barbatruc

• 14 Février 2011

• #2

Re : Double click=coller dans une autre feuil

BONJOUR tout d'abord...

Pas 2007, pas ouvert ton fichier, mais essaye peut être le code ci-dessous, à placer dans le module de la feuille concernée => click droit sur l'onglet => visualiser le code et tu colles :

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
    Target.Copy Sheets("Autrefeuille").Range("A1")
    Cancel = True
End If
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 14 Février 2011

• #3

Re : Double click=coller dans une autre feuil

Bjr Battagone et Pierrot

Pierrot : est-il possible de ne pas figer les cellules ?
Double-clic sur n'importe quelle cellule et copie dans la feuil2 au même endroit ?

Merci, cordialement, Gérard

 

Vote positif 0 Vote négatif

bataggone

XLDnaute Occasionnel

• 14 Février 2011

• #4

Re : Double click=coller dans une autre feuil

Re bonjour Pierrot93
g changer la version de fichier elle est 2003 mtn.
et merci d'avance.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Février 2011

• #5

Re : Double click=coller dans une autre feuil

Re,

en supposant une ligne de titre feuille 2 :

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$5" Then
    Target.Copy Sheets("Feuil2").Range("B65536").End(xlUp)(2)
    Cancel = True
End If
End Sub

A noter, pas top les cellules fusionnées et vba...

@+

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 14 Février 2011

• #6

Re : Double click=coller dans une autre feuil

Bonjour bataggone, Pierrot93, natorp, le Forum,

Ci-dessous une autre approche (qui répond à la demande de natorp) :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Target.Address = "$B$5:$C$6" Then Exit Sub
With Sheets("Feuil2")
  dlg = 3
  While Not .Cells(dlg, 2) = ""
    dlg = dlg + 1
  Wend
  .Cells(dlg, 2) = Range("B5")
End With
Cancel = True
End Sub

Attention aux cellules fusionnées, il faut en tenir compte dand l'adressage !

Cordialement.

 

Dernière édition: 14 Février 2011

Vote positif 0 Vote négatif

bataggone

XLDnaute Occasionnel

• 14 Février 2011

• #7

Re : Double click=coller dans une autre feuil

bonjour Pierrot93
bonjour tout le monde
désoler j'arrive pas a réalisé se que tu ma demandé tu peux me jointé un fichier svp
NB g changer le fichier en 2003.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Février 2011

• #8

Re : Double click=coller dans une autre feuil

Re,

ton fichier en retour :

@Natorp
Le mieux eût été de créer ton propre fil, pas top 2 discussions en même temps.....

 

Pièces jointes

• classeur2.zip

  9.3 KB · Affichages: 31
• classeur2.zip

  9.3 KB · Affichages: 37
• classeur2.zip

  9.3 KB · Affichages: 32

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 14 Février 2011

• #9

Re : Double click=coller dans une autre feuil

RE bataggone

Ci-joint ton fichier modifié.

Cordialement.

Edit : le code de Pierrot93 est plus court, et dans le cas de nombreuses données en colonne B, il doit aussi être plus rapide. Pour respecter la demande initiale, on peut remplacer l'adressage de Target par ma solution.

@ Pierrot93 : peux-tu m'indiquer la signification de (2) à la suite de End(xlUp), stp ?

 

Pièces jointes

• bataggone.xls

  34 KB · Affichages: 69

Dernière édition: 14 Février 2011

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 14 Février 2011

• #10

Re : Double click=coller dans une autre feuil

Bonjour bataggone, Pierrot93, natorp, Papou-net , les fils, le Forum
Une proposition par fil:
Pour bataggone :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Feuil2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = Target.Value
End Sub

Pour natorp :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Feuil2").Range(Target.Address) = Target.Value
End Sub

Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Février 2011

• #11

Re : Double click=coller dans une autre feuil

Re, bonjour fg

@Papou Net
correspond à "Offset(1, 0)"

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 15 Février 2011

• #12

Re : Double click=coller dans une autre feuil

Pierrot93 à dit:

Re, bonjour fg

@Papou Net
correspond à "Offset(1, 0)"

Cliquez pour agrandir...

Merci à toi Pierrot.

Cordialement.

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 15 Février 2011

• #13

Re : Double click=coller dans une autre feuil

Merci Efgé,
c'est bien ce que je souhaitais
Désolé Pierrot, mais je ne pensais pas être hors sujet en posant cette question...

bonne soirée, Gérard

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Février 2011

• #14

Re : Double click=coller dans une autre feuil

Bonsoir,

Désolé Pierrot, mais je ne pensais pas être hors sujet en posant cette question...

Cliquez pour agrandir...

c'est pas la question d'être hors sujet ou pas, mais il est tout de même préférable d'attendre que le problème soit résolu avant de "squatter" le fil, par respect pour le questionneur qui l'a ouvert .... bonne soirée
@+

 

Vote positif 0 Vote négatif