Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème "shape"

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fenec
  • Date de début Date de début

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 !

S'inscrire

fenec

XLDnaute Impliqué
Bonjour le forum

Je viens à nouveau vers vous car je rencontre un nouveau problème
Dans mon code du bouton « archiver » si j’écris :

'For Each Shp In .Shapes
' Shp.Delete
'Next Shp

J’archive en supprimant les boutons « ce que je désire » mais cela m’efface aussi les formes automatiques de la feuille.

Si j’écris :

For Each Shp In ActiveSheet.Shapes
If Left(Shp.Name, 24) = "AutoShape" Then Shp.Delete
Next Shp

Les formes automatiques sont présentent mais les boutons aussi

Est-il possible de combiner les deux afin d’avoir les formes automatiques sans les boutons

En espérant avoir été clair

Cordialement

Fenec
 

Pièces jointes

Trier par date Trier par votes
Re : Problème "shape"

Bonjour PierreJean

J'ai essayé de mettre ton code dans mon fichier final mais il ne marche pas
J'ai donc refait un essai et toujours pareil ne fonctionne pas

Te joint mon fichier au ca ou j'aurais oublié quelque chose

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Problème "shape"

Bonsoir le forum, 🙂

Sans débaptiser les boutons :
Code: 
For Each Shp In ActiveSheet.Shapes
      If Shp.AutoShapeType = msoShapeRoundedRectangle And Shp.Height < 30 Then Shp.Delete
    Next Shp
Après exécution, il te reste 16 formes et non plus 19 dans le fichier du post #1#
?activesheet.shapes.count
16
Cliquez pour agrandir...

Un peu bourrin quand même 😛

Klin89
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème "shape"

salut

les "Boutons" étant appelés "Autoshape 40", "Autoshape 42" et "Autoshape 43" cela devrait suffire pour les effacer
Code: 
...
  For n = 40 To 43
    If n <> 41 Then ActiveSheet.Shapes("Autoshape " & n).Delete
  Next
...

A noter que ton "Left(Shp.Name, 24)" correspond aux 24 premières lettres du nom !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

J
  • Question Question
XL 2021 Lien hypertexte dans forme rectangle
Réponses
2
Affichages
564
Phil69970
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
H
  • Question Question
Microsoft 365 Sauvegarder fichier de XLSM à XLSX et effacer contrôle
Réponses
9
Affichages
1 K
job75
A
  • Question Question
XL 2016 Macro et rajout d'un chiffre au nom d'un Shape
Réponses
9
Affichages
800
alain.raphael
A
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
842
Lu76Fer
Corriger les problèmes d'utilisation de certains symboles ASCII
Réponses
11
Affichages
1 K
Lu76Fer
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
779
vgendron
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
888
picc
P
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
757
oguruma
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
703
Phil69970
EXCEL :: CLASS_LIBRARY_TOOLS_V1.0 - Classes utilitaires - Fichier Log, Gestion de pile d'exécution, isExists, Paramètres, Collection, Dictionnaire
Réponses
0
Affichages
532
oguruma
V
  • Question Question
Microsoft 365 VBA : faire clignoter une forme
Réponses
7
Affichages
2 K
patricktoulon
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
791
Phil69970
  • Question Question
XL 2021 coller une image interne au classeur
2 3
Réponses
33
Affichages
2 K
Jouxte
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
M
  • Résolu(e)
XL 2016 comment créer une Barre de défilement ou faire simplement défiler son texte ?
2
Réponses
25
Affichages
2 K
melltel
M
T
  • Question Question
Microsoft 365 Images ne s'affiche pas dans fichier Excel
Réponses
5
Affichages
1 K
job75
J
  • Résolu(e)
Autres Pb d'affichage d'un objet
Réponses
2
Affichages
597
JPaul78
J
  • Question Question
Microsoft 365 Résolu - Carte interactive personnalisée
Réponses
4
Affichages
727
Angus HEYERDAHL
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…