Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Bonjour à tous
J'ai un problème qui,pour certains d'entre vous est peut-être mineur,mais, qui est ,pour moi insoluble,je vous le soumets
avec le lien ci-dessous,avec l'espoir de recevoir une solution.
Merci à qui me répondra
Ci-après, deux codes afin de supprimer les quelque 350 objets indésirables.
Code:
Option Explicit
Sub Option_Button_supprimer()
Dim s As Shape
For Each s In Sheets("Feuil1").Shapes
If s.Type = 8 And s.Name Like "Option Button*" Then s.Delete
Next
End Sub
Sub Picture_supprimer()
Dim s As Shape
For Each s In Sheets("Feuil1").Shapes
If s.Type = 13 And s.Name Like "Picture*" Then s.Delete
Next
End Sub
Bonjour DoubleZéro.
D'abord,merci de me répondre.
Mes connaissances en informatique sont très limitées,et,en code VBA,je suis à peu près nul.
C'est pourquoi je viens te demander, s'il te plait,de m'expliquer le mode d'emploi pas à pas de ces codes.
Pardonne moi de te prendre du temps,et,je l'espère,à plus.
Bremic
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD