Discussion :

[Boby71C]

Bonsoir à tous
La question est dans le titre.

Suite à mon dernier post, existe t 'il un code VBA pour sélectionner les objets qui sont dans mon fichier excel pour pouvoir mettre ma feuille à blanc ?

Merci pour votre aide
@+
Robert

[DidierLoche]

Bonsoir,

ça tombe bien, j'ai encore le bout de code que j'ai fait pour insérer les fichiers pdf.
As-tu essayé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each objet In ActiveSheet.Shapes
    objet.Delete
Next objet

Attention : ça supprime tous les objets. A toi d'ajouter un test avant de faire la suppression.
Bonne soirée
Didier

[Boby71C]

Merci Didier, tu est un pro

Grâce à toi, mon fichier est finalisé.
Gros souci, la manip fait disparaître mes boutons de commandes ainsi que les flèches de mes listes de validation.

@+
Robert

[DidierLoche]

Non, non, je ne suis qu'un amateur ! J'ai encore beaucoup à apprendre.
Bonne soirée,
Didier

[edelweisseric]

Bonsoir Didier
Bonsoir Robert

J'espère que cela t'aidera :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub efface_rectangles()
Dim objet As Shape
For Each objet In ActiveSheet.Shapes
        If Left(objet.Name, 9) = "Rectangle" Then objet.Delete
Next objet
End Sub

avec ceci :

on n'a pas besoin de les nommer :

If Left(objet.Name, 4) = "Oval" Then objet.Delete

If Left(objet.Name, 4) = "Line" Then objet.Delete

If Left(objet.Name, 9) = "Rectangle" Then objet.Delete

Il faut les nommer par : selection.name= "....."

If Left(objet.Name, 7) = "lignes" Then objet.Delete

If Left(objet.Name, 10) = "etoile" Then objet.Delete ou "rond"

If Left(objet.Name, 11) = "bouton_test" Then objet.Delete => un bouton nommé

If Left(objet.Name, 12) = "texte" Then objet.Delete

If Left(objet.Name, 3) = "texte" Then objet.Delete

Eric

[decondelite]

Pour sélectionner un objet, il suffit d'utiliser l'enregistreur de macros pendant qu'on en sélectionne un, puis de regarder le code que ça donne.

L'enregistreur est terriblement efficace, autant pour les novices pour leur apprendre la syntaxe, autant pour les confirmés parce qu'ils ont la flemme de chercher la syntaxe alors qu'ils peuvent la trouver tout seul avec l'explorateur d'objets.