XL 2016 Copier le contenu d'une cellule en cliquant dessus

ReneDav14000 à dit:

Bonjour à tous,
Je cherche à faire un truc tout bête mais je n'y arrive.
Voilà dans les cellules (C5;K5;AA5;AI5;AQ5; C14;K14;AA14;AI14;AQ14) il y a une donnée.
Je souhaiterai qu'en cliquant sur une de ces cellules, elle soit copiée en B26.
Par exemple : Je clique sur C5 alors le contenu de C5 est copié en B26. Ensuite, je clique sur AQ14 alors B26 est effacée et prends la valeur de AQ14.
Merci par avance pour votre aide

Cliquez pour agrandir...

Hasco à dit:

Bonsoir,

Dans le module de code de la feuille :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge = 1 And _
       Not IsEmpty(Target) And _
       Not Intersect(Target, Range("C5,K5,AA5,AI5,AQ5, C14,K14,AA14,AI14,AQ14")) Is Nothing Then
        Range("B26").Value = Target.Value
    End If
End Sub

Si la cellule cliquée est vide que faut-il faire ? Ici rien n'est fait

Cliquez pour agrandir...

sylvanu à dit:

Bonjour ReneDav,
un essai en PJ avec :

VB:

Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C5,K5,AA5,AI5,AQ5,C14,K14,AA14,AI14,AQ14]) Is Nothing Then
        [B26] = Target
    End If
Fin:
End Sub

Cliquez pour agrandir...

job75 à dit:

Bonjour à tous,

Si l'on veut pouvoir modifier la cellule source avant le transfert il vaut mieux le double-clic :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(ActiveCell, [C5,K5,AA5,AI5,AQ5, C14,K14,AA14,AI14,AQ14]) Is Nothing Then Cancel = True: [B26] = ActiveCell
End Sub

A+

Cliquez pour agrandir...

ReneDav14000 à dit:

Par contre, ça ne fonctionne plus si je fusionne les cellules,

Cliquez pour agrandir...

Hasco à dit:

Eh ! C'est sans doute le genre de choses, qu'on ne peut deviner et qui aurait été traité sur un fichier exemple représentatif dès le post 1

Cordialement

Cliquez pour agrandir...