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

[Tête de chat]

Bonjour,

jeté un oeil à ton code...
1. pense à ajouter un option explicit
2. utilise des constantes pour tous tes littéraux, et de préférence des plages nommées
3. comme tu es dans le module de classe de la feuille tu peux utiliser Me au lieu de sheets("agenda")
4. la boucle sur each cell ne sert à rien puisque cell n'est pas utilisé dedans (tu fais n fois la même affectation).

Moyennant quoi il devrait rester, si j'ai bien compris la demande :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Const RgCalendrier = "D8:J13"
Const ColSemaine = 2
Const RgSemaine = "G1"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then
    If Not Intersect(Target, Me.Range(RgCalendrier)) Is Nothing Then
        Me.Range(RgSemaine).Value = Target.EntireRow.Cells(ColSemaine).Value
    End If
End If
End Sub

Reste à nommer les plages

[Dav1961]

Bonjour Tête de chat,

Merci beaucoup pour ta participation.
Je teste le code et je reviens.

[Dav1961]

J'ai installé le code, nommé les plages mais ça ne fonctionne pas.
Peut-être ai-je commis une erreur

CalendAgenda.xlsm

[Valtrase]

Salut,
au meilleur sans tarabiscoter c'est avec un double clic.
Code à mettre dans toutes les feuilles où tu as besoin de récupérer la valeur de B1

Code :

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

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    If Not Intersect(Target, Range("D8:J13")) Is Nothing Then
        Worksheets("Agenda").Range("G1").Value = CInt(ActiveSheet.Range("B" & Target.Row).Value)
        'Cancel = True  ' // Seulement si besoin dans ton code...
    End If
End Sub

Ne pas oublier de passer la cellule G1 de la feuille Agenda au format nombre.

[Dav1961]

Bonjour Valtrase,

Désolé d'avoir tardé à répondre. Tout d'abord merci pour votre contribution.
J'ai installé votre code et ça fonctionne. Je vais y ajouter quelques bricoles dont j'ai besoin.
Encore merci.