Erreur 7 : Mémoire insuffisante [Résolu]

Messages postés
23
Date d'inscription
mercredi 25 février 2004
Dernière intervention
5 septembre 2006
- - Dernière réponse : BeebopMcFly
Messages postés
23
Date d'inscription
mercredi 25 février 2004
Dernière intervention
5 septembre 2006
- 7 sept. 2004 à 10:42
Bonjour, j'ai un problème dans une de mes feuille excel. Je cherche à sélectionner une image, de la supprimer, de créer un bouton dans la feuille excel, et d'attibuer du code à ce bouton...

Je sélectionne mon onglet
Sheets(ma_feuille).Select
Je sélectionne la cellule A1
Cells(1, 1).Activate
J'utilise la méthode pour sélectionner mon image
ActiveSheet.Shapes.SelectAll
Je la supprime
Selection.Delete
Je créer mon bouton
ActiveSheet.buttons.Add 100, 100, 120, 40
Je sélectionne le bouton nouvellement créer : index 1
ActiveSheet.Shapes(1).Select
Je lui attribue le text RETOUR
Selection.Characters.Text = "RETOUR"

Le problème est que lors du ActiveSheet.Shapes.SelectAll, g un joli message : Erreur 7 : Mémoire insuffisante

Pourtant c une toute petite image... un petit bouton et un tout petit code... alors là je suis à l'ouest...

Précision : Win Xp, VBA Excel 2003

Je gète toute la semaine une aide, j'en ai besoin pour mon taff

Merci d'avance, Bop :)
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
23
Date d'inscription
mercredi 25 février 2004
Dernière intervention
5 septembre 2006
3
Merci
Nan ok le problème a été résolu, il s'agissait de commentaires inséré dans la feuille excel qui posaient problème

avec la méthode Selection.ClearComments le problème a disparu

Merci pour vos réponses

Peace^^

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 104 internautes nous ont dit merci ce mois-ci

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Dernière intervention
30 juin 2009
0
Merci
et avec :

ActiveDocument.Shapes.SelectAll ??

It@li@
Messages postés
4530
Date d'inscription
dimanche 29 septembre 2002
Dernière intervention
23 décembre 2014
0
Merci
S'il n'y a qu'une image a supprimer alors selection QU'UNE seul image. Fait cela en la nommant explicitement dans ton code :

Shapes("Image1").Select

etc...

@+

E.B.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.