modification de code de plusieurs page

bonjour,

Par page, je suppose que tu veux dire onglet ou feuille.
pour supprimer tout le code contenu dans les feuilles ( sauf la feuille
appelée Feuil3) dans un fichier ouvert ( ici tata.xls") et recréer un bouton
par feuille associé à un evenement Click.
J'ai dans cet exemple positionné le bouton sur la cellule A1 de chaque
feuille.

Sub dest()

For Each s In Workbooks("tata.xls").Worksheets

If s.Name <> "Feuil3" Then
With
Workbooks("tata.xls").VBProject.VBComponents(s.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
With s
Set dp = s.OLEObjects.Add(ClassType:="Forms.Commandbutton.1",
Left:=Range("A1").Left, Top:=.Range("A1").Top, Width:H, Height:H)
End With
With dp
.Name = "bouton"
.Object.Caption = "Retour"
End With
With
Workbooks("tata.xls").VBProject.VBComponents(s.CodeName).CodeModule
.InsertLines .CreateEventProc("Click", dp.Name) + 1, "Msgbox ""Vous
avez appuyé sur le bouton"" "
End With
End If

Next

End Sub

A+

Bonjour à tous,

ça fait un moment que je suis pas venu sur ce forum et vous me manquez
tous :'( :'( :'( :'(

Après ces retrouvailles émouvantes, je vous explique mon problème:

sur un classeur contenant n (environ 100) pages et en partant de la
page 2

1) je voudrais supprimer tous les boutons de commande et compagnie (ça
j'y arrive)

2) Ensuite, supprimer tout le code contenu dans chaque page

3) Ensuite, créer sur chaque page un bouton de commande dont le texte
est "Retour"

4) Finalement, remettre du code (identique sur chaque page)

J'espère que j'ai été assez clair

Merci d'avance pour ceux qui vont essayer de m'aider et mille mercis
pour ceux qui vont trouver la solution à mon problème

--
Aurélien29

Merci pour ton aide, c'était exactement ça que je voulais.

ça marche a la perfection


anonymousA a exprimé avec précision :

bonjour,

Par page, je suppose que tu veux dire onglet ou feuille.
pour supprimer tout le code contenu dans les feuilles ( sauf la feuille
appelée Feuil3) dans un fichier ouvert ( ici tata.xls") et recréer un
bouton par feuille associé à un evenement Click.
J'ai dans cet exemple positionné le bouton sur la cellule A1 de chaque
feuille.

Sub dest()

For Each s In Workbooks("tata.xls").Worksheets

If s.Name <> "Feuil3" Then
With
Workbooks("tata.xls").VBProject.VBComponents(s.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
With s
Set dp = s.OLEObjects.Add(ClassType:="Forms.Commandbutton.1",
Left:=Range("A1").Left, Top:=.Range("A1").Top, Width:H, Height:H)
End With
With dp
.Name = "bouton"
.Object.Caption = "Retour"
End With
With
Workbooks("tata.xls").VBProject.VBComponents(s.CodeName).CodeModule
.InsertLines .CreateEventProc("Click", dp.Name) + 1, "Msgbox ""Vous
avez appuyé sur le bouton"" "
End With
End If

Next

End Sub

A+

--
Aurélien29