Macro VBA

[wajih_Excel]

Bonjour Forum,

j'ai un fichier à livrer et je suis bloqué sur un truc😕

je veux quand je clique sur une cellule de la feuille 1 (Nom de client) elle me raméne à un tableau croisé situé dans la feuille 2 (où il y a les données sur le client en question )

je suis débutant en Excel VBA mais j'ai utilisé ce code mais ça pas fonctionné🙁

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B3:B60")) Is Nothing Then
MsgBox 'Click on ' & Target.Address
End If
End Sub

Est ce que vous pouvez m'aider ASAP car je suis vraiment bloqué

Merci

 

[news]

Re : Macro VBA

bonsoir,

d'y joindre le fichier (sans données personelles),
afin de vérifier l'expression ne fonctionnant pas,

 

[jeanpierre]

Re : Macro VBA

Bonsoir,

Pas suivi le TCD...

Sinon : Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B3:B60")) Is Nothing Then
MsgBox "Click on " & Target.Address
End If
End Sub

A te lire.

Jean-Pierre