Discussion :

[guismoman33]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheet.value

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

[Lou Pitchoun]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[flo_flo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guismoman33]

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

[flo_flo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Activeworkbook.Worksheets.Count

[Lou Pitchoun]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets.Count

[guismoman33]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Qu'est ce qui va pas la dedans alor?

[flo_flo]

un espace entre ActiveSheet.Name et &