Suppression d'objets Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
r
rocket4
Membre impliqué
Membre impliqué
Messages : 1'206
Appréciations reçues : 3
Inscrit le : 30 août 2011
Version d'Excel : 2010

Message par rocket4 » 28 janvier 2020, 11:23

Bonjour j'ai une question rapide :

ma feuille de calcul contient des bouton de formulaires et des listes derouantes dans certaines cellules , lorsque j'enregistre ma feuille dans un autre classeur les boutons figurant sur ma feuille doivent etre effacés via le bout de code suivant
For Each obj In ActiveSheet.Shapes
If obj.Type = msoFormControl Then obj.Delete
Next obj
jusque la tout va bien , mais par contre je ne souhaiterai pas que mes listes deroulantes contenues dans certaines cellules soient effacées aussi , comment pourrais je modifier le code precedent ,,merci à vous
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 777
Appréciations reçues : 42
Inscrit le : 18 décembre 2018
Version d'Excel : 2016 FR

Message par GGautier » 28 janvier 2020, 11:33

Bonjour :)
une piste
For Each obj In ActiveSheet.Shapes

If obj.Type = msoFormControl Then
    If obj.Name <> "toto" Then obj.Delete
End If
Next obj
"Il n'y a pas de question idiote, seulement une réponse idiote" ALBERT EINSTEIN (enfin ici on évite). 8-)
Vous cherchez des réponses à vos questions ? regardez par ici ;) http://boisgontierjacques.free.fr/index2.htm
m
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'812
Appréciations reçues : 162
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 28 janvier 2020, 12:04

Salut tout le monde,

ou bien comme ca:
Application.CopyObjectsWithCells = False
'copier la feuille
Application.CopyObjectsWithCells = True 'reset
À partir d'hier, j'ai décidé de ne plus expliquer les solutions proposées et de ne plus répondre aux MP!
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 777
Appréciations reçues : 42
Inscrit le : 18 décembre 2018
Version d'Excel : 2016 FR

Message par GGautier » 28 janvier 2020, 12:19

Pour supprimer tout sauf les listes
Sub Test()

    Dim oControle As Shape
    
    For Each oControle In Feuil1.Shapes
    
        If oControle.Type = msoFormControl Then 'Controles de formulaire
            If oControle.FormControlType <> xlDropDown Then oControle.Delete
        End If
        
        If oControle.Type = msoOLEControlObject Then 'Controle ActiveX
            If oControle.OLEFormat.progID <> "Forms.ComboBox.1" Then oControle.Delete
        End If
        
    Next oControle
    
End Sub
EDIT DE MON MESSAGE
"Il n'y a pas de question idiote, seulement une réponse idiote" ALBERT EINSTEIN (enfin ici on évite). 8-)
Vous cherchez des réponses à vos questions ? regardez par ici ;) http://boisgontierjacques.free.fr/index2.htm
r
rocket4
Membre impliqué
Membre impliqué
Messages : 1'206
Appréciations reçues : 3
Inscrit le : 30 août 2011
Version d'Excel : 2010

Message par rocket4 » 28 janvier 2020, 13:49

Merci pour cette réponse très élaborée G Gauthier.
Je l essayer de ce pas, un grand merci à vous. :)
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 777
Appréciations reçues : 42
Inscrit le : 18 décembre 2018
Version d'Excel : 2016 FR

Message par GGautier » 28 janvier 2020, 14:02

Merci Google et l'aide Microsoft surtout, j'ai pas sorti ça de mon chapeau magique :lol:
"Il n'y a pas de question idiote, seulement une réponse idiote" ALBERT EINSTEIN (enfin ici on évite). 8-)
Vous cherchez des réponses à vos questions ? regardez par ici ;) http://boisgontierjacques.free.fr/index2.htm
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Tableau objets
    par marc_augier » 18 juillet 2014, 09:50 » dans Excel - VBA
    3 Réponses
    309 Vues
    Dernier message par titico
    21 juillet 2014, 05:16
  • Combinaisons d'objets
    par SebastienN » 31 mars 2020, 22:49 » dans Excel - VBA
    7 Réponses
    82 Vues
    Dernier message par SebastienN
    1 avril 2020, 15:15
  • Importation Objets
    par NELSON29 » 14 septembre 2018, 19:25 » dans Excel - VBA
    8 Réponses
    224 Vues
    Dernier message par MFerrand
    27 septembre 2018, 19:05
  • Regroupement d'objets 3 par 3
    par Yvouille » 29 juillet 2016, 15:19 » dans Excel - VBA
    44 Réponses
    1356 Vues
    Dernier message par h2so4
    12 août 2016, 10:24
  • collection d'objets crées
    par Jeb » 13 décembre 2017, 10:52 » dans Excel - VBA
    3 Réponses
    242 Vues
    Dernier message par Jeb
    13 décembre 2017, 16:43
  • Commandes d'insertions d'objets
    par eole-33 » 26 mars 2015, 20:58 » dans Excel - VBA
    1 Réponses
    173 Vues
    Dernier message par eole-33
    28 mars 2015, 11:57