numero classeur actif

**guismoman33** · 25/02/2008, 16h57

Comment savoir le numéro du classeur activer?

Pour être plus précis, j'aimerai, quand je clique sur une case, j'aimerai qu'une message box apparaisse pour me dire (n°du classeur, n° de la feuille, n° de la case).
Pouvez vous me dire comment nous pouvons avoir le n° du classeur actif, n° de la feuille actif, ainsi que le n° de la case active.

**Singular** · 26/02/2008, 10h13

Pour faire celà, il faut créer une classe qui englobe l'application Excel et s'en servir pour répondre à toute sélection dans n'importe quelle feuille de n'importe quel classeur.

Il faut te faire un classeur dans lequel tu crées une classe. Je l'ai appelée ClasseXLApp dans l'exemple qui suit.

Le code de cette classe est le suivant:

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
Public WithEvents XLApp As Excel.Application
 
Private Sub XLApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim strMsg As String
    Dim i As Long
 
    For i = 1 To Application.Workbooks.Count
        If Application.Workbooks(i).Name = Sh.Parent.Name Then Exit For
    Next i
    strMsg = "Classeur # " & CStr(i) & vbCrLf
    strMsg = strMsg & "Feuille # " & Sh.Index & vbCrLf
    strMsg = strMsg & "Cellule " & Target.Address(False, False)
 
    MsgBox strMsg
End Sub

Ensuite, dans le module ThisWorkbook de ton classeur contenant la nouvelle classe, tu ajoutes ce code:

Code :

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

1
2
3
4
5
Private XLApp As New ClasseXLApp
 
Private Sub Workbook_Open()
    Set XLApp.XLApp = Application
End Sub

Dès lors, quand tu ouvres ton classeur, tu as la possibilité de recevoir l'information que tu désires.

**guismoman33** · 26/02/2008, 10h37

Y a pas une autre possibilité car enfaite j'aimerai juste une petite variable qui me dit le numéro de mon classeur!!!???

Car je vien de faire le code que tu m'a donner et sa ne marche pas.

**ouskel'n'or** · 26/02/2008, 11h26

Plutôt que le N° du classeur actif, je te propose ça

Code :

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

MsgBox ActiveWorkbook.Name & "  " & ActiveSheet.Name & "  " & ActiveCell.Address

en attendant mieux

**ouskel'n'or** · 26/02/2008, 11h49

Sans module de classe

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
16
17
Sub test()
For i = 1 To Application.Workbooks.Count
    If Workbooks(i).Name = ActiveWorkbook.Name Then
        NoBook = i
        Exit For
    End If
Next
For j = 1 To ActiveWorkbook.Worksheets.Count
    If ActiveWorkbook.ActiveSheet.Name = ActiveWorkbook.Worksheets(j).Name Then
        NoFeuille = j
        Exit For
    End If
Next
MsgBox "Le classeur actif est " & Workbooks(i).Name & vbCr & _
       "La feuille active est " & Worksheets(j).Name & vbCr & _
       "La cellule active est " & ActiveCell.Address
End Sub

Adresse que tu peux utiliser ainsi

Code :

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

1
2
3
Dim adresse As Range
Set adresse = Workbooks(i).Worksheets(j).Range(ActiveCell.Address)
MsgBox adresse.value

**guismoman33** · 28/02/2008, 17h03

erreur :
bibliothèque introuvable!!!
et le débugueur pointe : "nofeuille = j"

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Private Sub CommandButton1_Click()
    Dim dia As Integer
    Dim ar As Integer
    Dim ad As Single
    Dim x As Single
    Dim l As Single
    Dim z As Single
    Dim vc As Single
    Dim nbreu As Integer
    Dim rm As Integer
    Dim total As Single
    Dim var As Single
    Dim vrotation As Single
    Dim rapide As Single
    Dim coeff As Single
    Dim ddv As Single
    Dim les As Single
    Dim nd As Single
    Dim avr As Single
    Dim i As Integer
    Dim j As Integer
 
 
For i = 1 To Application.Workbooks.Count
    If Workbooks(i).Name = ActiveWorkbook.Name Then
        nobook = i
        Exit For
    End If
Next
For j = 1 To ActiveWorkbook.Worksheets.Count
    If ActiveWorkbook.ActiveSheet.Name = ActiveWorkbook.Worksheets(j).Name Then
        nofeuille = j
        Exit For
    End If
Next
 
 
 
 
 
 
    avr = Cells(8, 4).Value
    x = Cells(9, 4).Value
    z = Cells(10, 4).Value
    rm = Cells(11, 4).Value
    ddv = Cells(12, 4).Value
    nbreu = Cells(14, 4).Value
    les = Cells(15, 4).Value
    l = Cells(16, 4).Value
    dia = Cells(18, 4).Value
    vc = Cells(19, 4).Value
    vr = Cells(20, 4).Value
    nd = Cells(21, 4).Value
    ad = Cells(22, 4).Value
    ar = Cells(23, 4).Value
    coeff = Cells(25, 3).Value
 
 
    If vr > rm Then
    vr = rm
    End If
 
 
    usinage = ((l + (les * 2)) / ar) * (10 / 6)
    rapide = ((2 * x) + (2 * z) + gu + l) / (avr * 1000) * (10 / 6)
 
    var = usinage + rapide
    total = total + var
 
    total = total * nbreu * coeff
    Workbooks(i).Sheets(j).Range("D26").Value = total
 
 
 
End Sub

Voici mon code