Copie de feuille avec Checkbox

[jprieux]

Bonjour,
J'a à nouveau (oui je sais, pas doué) un petit soucis avec mon code.
En effet, sur une page que je copie, je souhaites supprimer une checkbox, mais en créer une autre et la nommer différemment et l'activer.
Sauf que dans mon code, je lui dit de sélectionner la Checkbox 26. mais elle ne porte pas toujours ce numéro, donc plantage !
Ci-dessous mon extrait de code, en espérant que quelqu'un pourra me venir en aide.
Merci d'avance
[cpp]
Sub Avenant()
'
' Avenant
' Ajoute un avenant à la Revue de Contrat

'

Sheets("RC").Copy After:=Sheets(7)
Sheets("RC (2)").Name = "Avenant RC" 'recopie la feuille RC en fin de classeur
ActiveSheet.Shapes("Button 12").Cut 'supprime le boutton "avenant"
ActiveSheet.Shapes("Check Box 14").Copy 'copie la cellule pour avenant
ActiveSheet.Paste 'ajoute une checkbox
ActiveSheet.Shapes("Check Box 26").Select
Selection.Characters.Text = " Avenant au contrat" 'nomme la checkbox "avenant"
Selection.ShapeRange.ScaleWidth 1.13, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.02, msoFalse, msoScaleFromTopLeft
With Selection
.Value = xlOn
.LinkedCell = ""
.Display3DShading = True 'active la checkbox avenant
End With

End Sub[/cpp]

Encore merci d'avance ;-)

 

[zeb]

Salut,

:/
Je n'arriverai jamais à vous débarrasser de cette manie de foutre des Select/Selection partout, ni ce celle d'utiliser le presse-papier de l'utilisateur

 

[jprieux]

ben, quand on a la tête dure, on a la tête dure ... :ange:

oui, je sais, c'est pas bien, mais il est vrai aussi que c'est une ancienne macro que je reprends...

quoi qu'il en soit ... HELP ! SVP

 

[zeb]

Ben comment veux-tu que je devine le nom de ton objet ?

Etudie ce bout de code :

Dim s As Shape
    
For Each s In Worksheets("le_nom_de_la_feuille_Pas_d'activesheet_merci").Shapes
    Debug.Print s.Name; " "; s.OLEFormat.progID
Next

Et ne me publie plus de code pareil, sinon je boude !