Macro VBA "demande URGENTE"

[wajih_Excel]

Salut tlm

Je suis Nx sur ce formidable Forum

j'ai une demande URGENTE

je prépare un fichier pour mon supérieur et je suis bloqué sur un truc

je veux en cliquant sur une cellule de la feuille 1 (Non d'un client) je me trouve dans la feuille 2 où il y a un tableau croisé dynamique (les données associées à ce client)
je suis débutant en Excel VBA mais j'essayer ce code qui n'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

Merci de me répondre parceque je suis vraiment bloqué

waj!h

[Nad-Dan]

Bonjour,

Le mot "urgence" n'attire pas trop.....j'aurais préféré Macro VBA seul.

Merci d'apporter les précsions suivantes :
- Le nom du client est placé dans les cellules de B3 à B60 ?
- Tu veux simplement que la macro te permette de te positionner dans le TCD sur le nom du client ou ai-je mal compris ?
- Quels sont les noms des deux feuilles ?

A te lire

Dan

[wajih_Excel]

Salut
oui la liste se trouve dans cette palge
le nom de la première feuille est "Menu"
La seconde "TCD"
crois moi j'ai besoin de ce truc ASAP
Merci d'avance
waj!h

[Nad-Dan]

re,

essaye ceci :

Code: Tout sélectionner

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Macro par DAN pour waithexcel le 02/10/07
Dim myval
If Not Application.Intersect(Target, Range("B3:B60")) Is Nothing Then
myval = Target.Value
With Worksheets("TCD")
    .Activate
    .Cells.Find(what:=myval).Activate
End With
End If
End Sub

La macro te positionnera dans le TCD sur le client concerné par ton choix.

A te lire

Dan

[wajih_Excel]

Salut Nad-Dan

Merci pout ton aide,ça fonctionne

Merci encore

@+

waj!h