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 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 13 août 2017 à 23:27
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 13 août 2017 à 23:27
A voir également:
- Supprimer un shape avec le même nom sur plusieurs onglets
- Supprimer compte instagram - Guide
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Supprimer une page word - Guide
- Nom de l'adresse ✓ - Forum Internet / Réseaux sociaux
- Trouver un numéro de portable avec un nom ✓ - Forum Mobile
3 réponses
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
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
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
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
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
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