cliquer/coller

[hervoul]

hemmmm😱
je réouvre une discussion car je crois qu'on m'a oublié...On m'a gentiment donné un solution qui, à l'usage ne convenait pas.
https://www.excel-downloads.com/threads/cliquer-et-coller-ailleurs.149241/
Or, en reprenant le fil de la discussion je dois me retrouver au fin fond du forum...
donc :
J'aimerais que : lorsque je clique dans une cellule , son contenu se déplace dans une autre cellule...
Le problème est qu'il y a plusieurs colonnes, donc plusieurs cellules et aussi plusieurs cellules de destinations, voila pourquoi je ne pouvais pas faire fonctionner la solution qu'on m'a donnée...
-ci dessous l'exemple explicatif en PJ
Cijoint.fr - Service gratuit de dépôt de fichiers
merci
RVoul

 

[Robert]

Re : cliquer/coller

Bonjour Hervoul, bonjour le forum,

Un propoosition au double-clic dans une cellule avec le code ci-dessous :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'condition : si le double-clic à lieu dans B4:B11 ou H4:H11
If Not Application.Intersect(Target, Application.Union(Range("B4:B11"), Range("H4:H11"))) Is Nothing Then
    GoTo fin 'va à l'étiquette "fin"
End If 'fin de la condition
'condition : si le double-clic à lieu dans B17:B24 ou H17:H24
If Not Application.Intersect(Target, Application.Union(Range("B17:B24"), Range("H17:H24"))) Is Nothing Then
    GoTo fin 'va à l'étiquette "fin"
End If
Exit Sub 'sort de la procédure
 
fin: 'étiquette
Cancel = True 'évite le mode édition lié au double-clic
Cells(Target.Row, 14).Value = Target.Value 'copie dans la colonne N la valeur de la cellule double-cliquée
Target.Value = "" 'efface la cellule double-cliquée
End Sub

 

[klin89]

Re : cliquer/coller

Bonjour à tous,

Vois ce fil pour t'aider.

https://www.excel-downloads.com/threads/copier-auto-double-clic-et-selection.121136/

klin89

 

[hervoul]

Re : cliquer/coller

je vois ça...et je vous tiens au courant;
Merci pour la rapidité😉
RVoul

 

[hervoul]

Re : cliquer/coller

....je n'ai pas fourni le doc entier (c'est donc ma faute, je l'avoue...😀 )et maintenant il y a un autre problème :
Le clic supprime aussi une formule qui était dans la cellule, or je voudrai garder cette formule pour réutilisation ultérieure...
ci joint le doc complet.

Merci

 

[Robert]

Re : cliquer/coller

Boujour Hervoul, bonjour le forum,

Supprime la ligne :

Target.Value = "" 'efface la cellule double-cliquée

Je me demande parfois à quoi ça sert de commenter les codes si les gens ne les lisent pas...

 

[hervoul]

Re : cliquer/coller

merci😀
Rvoul