Discussion :

[Zeltron59]

Bonjour le Forum,
Pourriez vous me dire s'il est possible de récupérer dans une autre cellule un nombre sélectionner dans un tableau.
En sachant que la macro ci dessous pose problème . Car lorsque je clique sur une cellule hors du tableau, cela efface la cellule K5

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Parent.Range("K5") = Target.Value
End Sub

Je vous remercie d'avance.
Cordialement.

[Philippe Tulliez]

Bonjour,
Pour être certain que Target se trouve dans une plage bien définie, il y a lieu d'utiliser la méthode Intersect

Exemple pour l'interception de la sélection d'une cellule à l'intérieur de la plage nommée myTable

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("myTable")) Is Nothing Then
       MsgBox "Vous avez sélectionné la cellule " & Target.Address
    End If
End Sub

[Zeltron59]

Bonjour Philippe
Super en remplaçant la zone de texte par le mien (Calendrier au lieu de myTable) c'est ce que je recherché. Un grand merci.
cordialement