Macro VBA "demande E"

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

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

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

re,

essaye ceci :

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

Salut Nad-Dan

Merci pout ton aide,ça fonctionne

Merci encore

@+

waj!h