Affichage du contenu d'une cellule

Bonjour et bonne année à tous,

Voila, je voudrai savoir si quelqu'un peut m'orienter pour me dire comment faire pour afficher un message (MsgBox) sur écran contenant la valeur d'une cellule lue chaque fois que je clique sur cette derniere.

Et merci pour l'aide...

Bonjour,

Place ce code dans VBA et ce, dans la feuille concernée par ta demande.

Ici exemple pour la cellule A1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Macro par Dan
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
MsgBox Target
End If
End Sub

Amicalement

Dan

Merci Nad-Dan pour la réponse,

Mais ce que je veux réellement, c'est lire une valeur d'une celleule d'un fichier donnée et la recopier dans une cellule d'un autre fichier. Alors, chaque fois que je lis cette donnée elle s'affiche sur ecran avant qu'elle soit copiée. Voici le code que j'ai créé :

Worksheets(lgWSF).Range("S18").Copy

Workbooks(strWBC).Activate

Worksheets(strWSF).Activate

Worksheets(strWSF).Range("B15").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Je ne sais si on peut inserer ce message dans cette partie du code ou pas? Et merci pour ta réponse.

Re,

Alors ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Macro par Dan
If Not Application.Intersect(Target, Range("S18")) Is Nothing Then
MsgBox Target
Target.Copy
Workbooks("strWBC.xls").Worksheets("strWSF").Range("B15").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End Sub

Tes deux classeurs doivent être ouverts.

Dan