message box code

J'aimerai créer une messagebox me donnant le numero de la ligne la colonne le nom de la feuille et le nombre de page que j'ai dans mon classeur. Je veux que la message box s'ouvre quand je clique sur une case comment faire!!!
Je connais la fonction

Code:

---

msgbox

---

Mais après je ne suis pas sur, la feuille

Code:

---

sheet.value

---

Pour le suite je ne sais pas pouvez vous m'aidez

Salut,

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)   MsgBox ActiveCell.Row & " - " & ActiveCell.Column & " - " & ActiveSheet.Name   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub () Dim l As Integer Dim c As Integer Dim nom As String Dim message As String   l = ActiveCell.Row c = ActiveCell.Column nom = ActiveSheet.Name   message = l & c & nom   MsgBox (message) End Sub

---

Voilà pour commencer, après je ne sais pas du tout comment faire pour créer un evènement quand tu clic sur une cellule normale.

Edit : zut, ouned :(

Merci beaucoup et pour savoir le nombre de feuille que j'ai dans mon classeur en tout??

Code:

---

Activeworkbook.Worksheets.Count

---

Code:

---

ActiveWorkbook.Sheets.Count

---

Code:

---

MsgBox ActiveCell.Row & " - " & ActiveCell.Column & " - " & ActiveSheet.Name& " - " & ActiveWorkbook.Sheets.Count

---

Qu'est ce qui va pas la dedans alor?

un espace entre ActiveSheet.Name et & :mouarf: