Discussion :

[info009]

Bonjour,

J'ai un fichier Excel avec beaucoup de feuilles, et dans l'une des feuilles, j'ai des boutons qui me permettent d'acceder directement aux autres feuilles.

Existe t'il une commande qui me pememettrait de recuperer le nom dans tous les boutons ?

Merci.

[Daniel.C]

Bonjour,

La macro est différente selon qu'il s'agit de contrôles de formulaire ou de contrôles ActiveX. J'ai fait une macro par type de contrôle, mais tu peux les fusionner :

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
 
Sub BoutonsActiveX()
Dim Ligne As Long
Sheets.Add.Name = "ListeActiveX"
With Sheets("Feuil1")
    For i = 1 To .Shapes.Count
        'boucle sur les textboxes de la feuille (ActiveX)
        If .Shapes(i).Type = msoOLEControlObject Then
            If .Shapes(i).OLEFormat.progID = "Forms.CommandButton.1" Then
                Ligne = Ligne + 1
                Cells(Ligne, 1) = .Shapes(i).Name
            End If
        End If
    Next i
End With
End Sub
Sub BoutonsFormulaire()
Dim Sh As Shape, Ligne As Long
Sheets.Add.Name = "ListeFormulaire"
With Sheets("Feuil1")
    For Each Sh In .Shapes
        'si c'est un contrôle de formulaire
        If Sh.Type = msoFormControl Then
            If Sh.FormControlType = xlButtonControl Then
                Ligne = Ligne + 1
                Cells(Ligne, 1) = Sh.Name
            End If
        End If
    Next Sh
End With
End Sub

[Menhir]

Ca dépend de quoi sont constitués tes boutons.
Les miens sont de simples formes que je peux récupérer grace à la collection Shapes de l'objet Worksheet.

Pour avoir leur nom, c'est tout simplement la propriété Name de chacun.
Pour savoir s'il s'agit d'un bouton déclenchant une macro, j'utilise leur propriété OnAction.

[info009]

Bonjour,

La macro est différente selon qu'il s'agit de contrôles de formulaire ou de contrôles ActiveX. J'ai fait une macro par type de contrôle, mais tu peux les fusionner :

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
 
Sub BoutonsActiveX()
Dim Ligne As Long
Sheets.Add.Name = "ListeActiveX"
With Sheets("Feuil1")
    For i = 1 To .Shapes.Count
        'boucle sur les textboxes de la feuille (ActiveX)
        If .Shapes(i).Type = msoOLEControlObject Then
            If .Shapes(i).OLEFormat.progID = "Forms.CommandButton.1" Then
                Ligne = Ligne + 1
                Cells(Ligne, 1) = .Shapes(i).Name
            End If
        End If
    Next i
End With
End Sub
Sub BoutonsFormulaire()
Dim Sh As Shape, Ligne As Long
Sheets.Add.Name = "ListeFormulaire"
With Sheets("Feuil1")
    For Each Sh In .Shapes
        'si c'est un contrôle de formulaire
        If Sh.Type = msoFormControl Then
            If Sh.FormControlType = xlButtonControl Then
                Ligne = Ligne + 1
                Cells(Ligne, 1) = Sh.Name
            End If
        End If
    Next Sh
End With
End Sub

Merci, ça marche bien.

[info009]

Ca dépend de quoi sont constitués tes boutons.
Les miens sont de simples formes que je peux récupérer grace à la collection Shapes de l'objet Worksheet.

Pour avoir leur nom, c'est tout simplement la propriété Name de chacun.
Pour savoir s'il s'agit d'un bouton déclenchant une macro, j'utilise leur propriété OnAction.

Merci