Double click=coller dans une autre feuil

[bataggone]

Est-que ça existe une fonction ou une astuce
double clic dans une cellule=coller dans une autre feuil

 

[Pierrot93]

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 :

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
@+

 

[natorp]

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

 

[bataggone]

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.

 

[Pierrot93]

Re : Double click=coller dans une autre feuil

Re,

en supposant une ligne de titre feuille 2 :

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...

@+

 

[Papou-net]

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) :

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.

 

[bataggone]

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.

 

[Pierrot93]

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.....

 

[Papou-net]

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 ?

 

[Efgé]

Re : Double click=coller dans une autre feuil

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

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 :

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

Cordialement

 

[Pierrot93]

Re : Double click=coller dans une autre feuil

Re, bonjour fg

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

 

[Papou-net]

Re : Double click=coller dans une autre feuil

Re, bonjour fg

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

Merci à toi Pierrot.

Cordialement.

 

[natorp]

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

 

[Pierrot93]

Re : Double click=coller dans une autre feuil

Bonsoir,

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

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
@+