Discussion :

[Dav1961]

Bonsoir le forum,

Je viens vers vous afin de vous demander si vous pouvez m'aider pour un petit bout de code.
Je cherche à écrire ceci :

si je clique sur une cellule de la plage D8:J13 de la feuille active, alors la VALEUR de la cellule se trouvant dans la plage en colonne B de la même
ligne doit être copiée vers la cellule G1 de la feuille "Agenda".

Par exemple : Je clique sur la cellule G9 alors la valeur de la cellule B9 doit être copiée en G1 de la feuille "Agenda".
Je vous remercie par avance pour l'attention que vous porterez à ma demande.

[Dav1961]

J'ai essayé avec ce code mais ça ne fonctionne pas au niveau de la ligne "Range"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
    If Application.Intersect(Target, Range("D8:J13")) Is Nothing Then Exit Sub
    Range.["Agenda!G1"].Value = Target.Offset(0, 1).Value
End Sub

[Dav1961]

Ce code fonctionne, mais avec clic droit, j'aurais préféré avec un simple clic, comment faire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Cell As Object
    For Each Cell In Range("B8:B13")
        Sheets("Agenda").Range("G1").Value = ActiveCell.Value
    Next Cell
    Cancel = True
End Sub

[Dav1961]

C'est bon j'ai trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Object
Application.ScreenUpdating = False
 
     For Each cell In Range("B8:B13")
        Sheets("Agenda").Range("G1").Value = ActiveCell.Value
    Next cell
    Cancel = True
 
End Sub

[Invité]

Bonjour et bravo pour ce monologue

Comme quoi poser la question étais très utile

[Dav1961]

Bonjour le forum, bonjour BrunoM45,

Merci pour votre commentaire, toutefois à la base ce n'est pas tout à fait ce que je cherchais à faire.
Je souhaitais cliquer sur une cellule, par exemple la cellule G9 alors la valeur de la cellule B9 doit être copiée en G1 de la feuille "Agenda".
Alors que là je clique directement en B9 ce n'est pas tout à fait la même chose.
La finalité du code est que lorsque je clique dans une cellule de la plage B8:B13, que la valeur de la colonne B soit dans G1 et qu'ensuite le curseur se positionne sur la valeur correspondant à la cellule que j'ai cliqué.
Je clique B9 - Affiche B9 en G1 de la feuille "Agenda" - Se positionne sur l'équivalence de B9 dans la feuille "Agenda"

Je mets mon fichier en pièce jointe
CalendAgenda.xlsm