Supprimer un shape avec le même nom sur plusieurs onglets
Fermé
anakin_74
Messages postés
41
Date d'inscription
mercredi 9 octobre 2013
Statut
Membre
Dernière intervention
17 novembre 2022
-
12 août 2017 à 22:19
yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 - 13 août 2017 à 23:27
yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 - 13 août 2017 à 23:27
A voir également:
- Supprimer un shape avec le même nom sur plusieurs onglets
- Comment supprimer une page sur word - Guide
- Supprimer compte instagram - Guide
- Restaurer onglets chrome - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Nom de l'adresse - Forum Réseaux sociaux
3 réponses
yg_be
Messages postés
22717
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
22 avril 2024
1 474
13 août 2017 à 23:27
13 août 2017 à 23:27
essaie d'éviter ceci
fais plutôt:
en règle générale, évite les
Sheets("Photos").Select ActiveSheet.Shapes.Range(Array("Pix_1")).Select Selection.Copy
fais plutôt:
Sheets("Photos").Shapes.Range(Array("Pix_1")).Copy
en règle générale, évite les
.selectet les
Active
yg_be
Messages postés
22717
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
22 avril 2024
1 474
13 août 2017 à 11:19
13 août 2017 à 11:19
bonjour, quel message d'erreur, sur quelle ligne?
anakin_74
Messages postés
41
Date d'inscription
mercredi 9 octobre 2013
Statut
Membre
Dernière intervention
17 novembre 2022
13 août 2017 à 21:39
13 août 2017 à 21:39
Merci tout d'abord d'essayer de m'aider.
Je mets un lien de mon document simplifié.
il suffit de choisir le modèle (de 1 à 12) d'image avec la case F8 puis double click. Faire l'opération 2 autres fois pour avoir le message d'erreur dans le module 01
http://www.cjoint.com/c/GHntzeuELy7
Cordialement
Je mets un lien de mon document simplifié.
il suffit de choisir le modèle (de 1 à 12) d'image avec la case F8 puis double click. Faire l'opération 2 autres fois pour avoir le message d'erreur dans le module 01
http://www.cjoint.com/c/GHntzeuELy7
Cordialement
yg_be
Messages postés
22717
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
22 avril 2024
1 474
13 août 2017 à 23:04
13 août 2017 à 23:04
le code suivant me semble faux:
pourquoi pas:
For Each Sh4 In Worksheets("4.0 - Welding").Shapes If Sh4.Name = "PHOTO" Then ActiveSheet.Shapes("PHOTO").Delete Next Sh4
pourquoi pas:
For Each Sh4 In Worksheets("4.0 - Welding").Shapes If Sh4.Name = "PHOTO" Then Sh4.Delete Next Sh4