Discussion :

[Nicoyong]

Bonjour je viens de nouveau vous solliciter.
J'écris une macro qui modifie le texte figurant sur un bouton situé sur une feuille Excel. Mon problème est que quand je duplique cette dernière feuille, le nom de ce bouton change donc mon code ne fonctionne plus pour les copies.
Ma question est donc : Il y a-t-il un moyen pour fixer le nom de ce bouton pour qu'il ne change pas lorsqu'il est copié où peut-on affecter une sorte d'attribut de manière à l'appeler quel que soit son nom ?
En vous remerciant d'avance pour l'attention portée à mon problème.

[scoulibri]

Tu as base ton code sur "quell nom"? La propriete " caption" ou "name"?

[Nicoyong]

Bonjour et merci.

Mon code basé sur la propriété : "name"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Automatique()
 If (ActiveSheet.Shapes("Bouton 107").TextFrame.Characters.Text) = "Automatique" Then
        ActiveSheet.Shapes("Bouton 107").TextFrame.Characters.Text = "Manuel"
        Auto = True
    Else
        If (ActiveSheet.Shapes("Bouton 107").TextFrame.Characters.Text) = "Manuel" Then
            ActiveSheet.Shapes("Bouton 107").TextFrame.Characters.Text = "Automatique"
            Auto = False
        End If
    End If
 
 
End Sub

[scoulibri]

Desole, j'ai encore beaucoup de lacune et je ne comprend pas tout ton code

Cependant, si je peux te donner l'indication suivante "name" est un peu comme le numero de secu, il est unique tu ne peux avoir 2 objets avec le meme
Utilise la propriete "caption", c'est ce qui est visible un peu comme le nom et le prenom..

Question supplementaire
pourquoi utiliser un shape au lieu d'un button (form control)

[Theze]

Bonjour,

Si tu n'as qu'un bouton par feuille, utilise son index qui est 1 :

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
 
Sub Automatique()
 
    With ActiveSheet.Shapes(1).TextFrame.Characters
 
        If .Text = "Automatique" Then
 
            .Text = "Manuel"
            Auto = True
 
        Else
 
            .Text = "Automatique"
            Auto = False
 
        End If
 
    End With
 
End Sub

Hervé.

[Nicoyong]

Scoulibri Il est sans doute normal que tu comprennes pas tout de mon code car je suis débutant autodidacte Et les codes sont certainement pas propres. pourrais-tu s'il te plaît développer un petit peu plus sur les fonctions :shape et button (form control).

Theze j'ai trois boutons sur ma feuille mais je te remercie de ta réponse.

[Nicoyong]

Merci. Scoulibri
Avec un button (form control) ça marche

Code :

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

1
2
3
4
5
6
7
8
9
Sub Automatique()
 
    If ActiveSheet.CommandButton3.Object.Caption = "Automatique" Then
        ActiveSheet.CommandButton3.Object.Caption = "Manuel"
        Auto = True
    Else
        ActiveSheet.CommandButton3.Object.Caption = "Automatique"
        Auto = False
    End If