Voilà, j'ai un problème:
Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en
fait) puis je fais une sauvegarde et je ferme le fichier.
A la réouverture, je voudrais qu'une macro me supprime toutes les images et
mon PDF pour que je puisse insérer librement un autre choix.
J'ai essayé avec une Macro manuelle mais il nomme les images et donc à
chaque réouverture, il y a un problème.
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les image s et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ <P...@discussions.microsoft.com> wrote:
Bonjour à tous,
Voilà, j'ai un problème:
Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en
fait) puis je fais une sauvegarde et je ferme le fichier.
A la réouverture, je voudrais qu'une macro me supprime toutes les image s et
mon PDF pour que je puisse insérer librement un autre choix.
J'ai essayé avec une Macro manuelle mais il nomme les images et donc à
chaque réouverture, il y a un problème.
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les image s et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
PJ
Merci JB, ça fonctionne à merveille. Bonne journée et encore Merci. PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
Merci JB, ça fonctionne à merveille.
Bonne journée et encore Merci.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ <P...@discussions.microsoft.com> wrote:
Bonjour à tous,
Voilà, j'ai un problème:
Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en
fait) puis je fais une sauvegarde et je ferme le fichier.
A la réouverture, je voudrais qu'une macro me supprime toutes les images et
mon PDF pour que je puisse insérer librement un autre choix.
J'ai essayé avec une Macro manuelle mais il nomme les images et donc à
chaque réouverture, il y a un problème.
Merci JB, ça fonctionne à merveille. Bonne journée et encore Merci. PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
PJ
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
Oups JB en fait, il y a un problème..
Sur cette feuille, j'ai des command button et des textes (label) qui
apparaissent ou pas.
Le hic, c'est que cette fonction me supprime tout
Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ <P...@discussions.microsoft.com> wrote:
Bonjour à tous,
Voilà, j'ai un problème:
Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en
fait) puis je fais une sauvegarde et je ferme le fichier.
A la réouverture, je voudrais qu'une macro me supprime toutes les images et
mon PDF pour que je puisse insérer librement un autre choix.
J'ai essayé avec une Macro manuelle mais il nomme les images et donc à
chaque réouverture, il y a un problème.
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
garnote
Salut PJ,
Peut-être que :
Sub Enleve_Images() For Each forme In Sheets(1).DrawingObjects If TypeName(forme) = "Picture" Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images()
For Each forme In Sheets(1).DrawingObjects
If TypeName(forme) = "Picture" Then forme.Delete
Next forme
End Sub
Serge
"PJ" <PJ@discussions.microsoft.com> a écrit dans le message de news: 29617266-378F-42CF-8835-7F59657CC640@microsoft.com...
Oups JB en fait, il y a un problème..
Sur cette feuille, j'ai des command button et des textes (label) qui
apparaissent ou pas.
Le hic, c'est que cette fonction me supprime tout
Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ <P...@discussions.microsoft.com> wrote:
Bonjour à tous,
Voilà, j'ai un problème:
Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en
fait) puis je fais une sauvegarde et je ferme le fichier.
A la réouverture, je voudrais qu'une macro me supprime toutes les images et
mon PDF pour que je puisse insérer librement un autre choix.
J'ai essayé avec une Macro manuelle mais il nomme les images et donc à
chaque réouverture, il y a un problème.
Sub Enleve_Images() For Each forme In Sheets(1).DrawingObjects If TypeName(forme) = "Picture" Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
PJ
Salut serge et merci mais hélàs il me reste encore mon PDF. Celui ci est de D5 à F15... peut-on faire une selection et dans cette sélection supprimer tous les objets.
Merci d'avance de ton aide PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images() For Each forme In Sheets(1).DrawingObjects If TypeName(forme) = "Picture" Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
Salut serge et merci mais hélàs il me reste encore mon PDF.
Celui ci est de D5 à F15... peut-on faire une selection et dans cette
sélection supprimer tous les objets.
Merci d'avance de ton aide
PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images()
For Each forme In Sheets(1).DrawingObjects
If TypeName(forme) = "Picture" Then forme.Delete
Next forme
End Sub
Serge
"PJ" <PJ@discussions.microsoft.com> a écrit dans le message de news: 29617266-378F-42CF-8835-7F59657CC640@microsoft.com...
Oups JB en fait, il y a un problème..
Sur cette feuille, j'ai des command button et des textes (label) qui
apparaissent ou pas.
Le hic, c'est que cette fonction me supprime tout
Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ <P...@discussions.microsoft.com> wrote:
Bonjour à tous,
Voilà, j'ai un problème:
Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en
fait) puis je fais une sauvegarde et je ferme le fichier.
A la réouverture, je voudrais qu'une macro me supprime toutes les images et
mon PDF pour que je puisse insérer librement un autre choix.
J'ai essayé avec une Macro manuelle mais il nomme les images et donc à
chaque réouverture, il y a un problème.
Salut serge et merci mais hélàs il me reste encore mon PDF. Celui ci est de D5 à F15... peut-on faire une selection et dans cette sélection supprimer tous les objets.
Merci d'avance de ton aide PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images() For Each forme In Sheets(1).DrawingObjects If TypeName(forme) = "Picture" Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
garnote
ReBonjour,
Peut -être que : Sub Enleve_Forme_Selection() For Each forme In ActiveSheet.DrawingObjects If Not Intersect(forme.TopLeftCell, Range("D5:F15") Is Nothing Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Salut serge et merci mais hélàs il me reste encore mon PDF. Celui ci est de D5 à F15... peut-on faire une selection et dans cette sélection supprimer tous les objets.
Merci d'avance de ton aide PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images() For Each forme In Sheets(1).DrawingObjects If TypeName(forme) = "Picture" Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
ReBonjour,
Peut -être que :
Sub Enleve_Forme_Selection()
For Each forme In ActiveSheet.DrawingObjects
If Not Intersect(forme.TopLeftCell, Range("D5:F15") Is Nothing Then forme.Delete
Next forme
End Sub
Serge
"PJ" <PJ@discussions.microsoft.com> a écrit dans le message de news: 6DF46369-7B87-4811-87C3-6917C2E4B55F@microsoft.com...
Salut serge et merci mais hélàs il me reste encore mon PDF.
Celui ci est de D5 à F15... peut-on faire une selection et dans cette
sélection supprimer tous les objets.
Merci d'avance de ton aide
PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images()
For Each forme In Sheets(1).DrawingObjects
If TypeName(forme) = "Picture" Then forme.Delete
Next forme
End Sub
Serge
"PJ" <PJ@discussions.microsoft.com> a écrit dans le message de news: 29617266-378F-42CF-8835-7F59657CC640@microsoft.com...
Oups JB en fait, il y a un problème..
Sur cette feuille, j'ai des command button et des textes (label) qui
apparaissent ou pas.
Le hic, c'est que cette fonction me supprime tout
Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ <P...@discussions.microsoft.com> wrote:
Bonjour à tous,
Voilà, j'ai un problème:
Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en
fait) puis je fais une sauvegarde et je ferme le fichier.
A la réouverture, je voudrais qu'une macro me supprime toutes les images et
mon PDF pour que je puisse insérer librement un autre choix.
J'ai essayé avec une Macro manuelle mais il nomme les images et donc à
chaque réouverture, il y a un problème.
Peut -être que : Sub Enleve_Forme_Selection() For Each forme In ActiveSheet.DrawingObjects If Not Intersect(forme.TopLeftCell, Range("D5:F15") Is Nothing Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Salut serge et merci mais hélàs il me reste encore mon PDF. Celui ci est de D5 à F15... peut-on faire une selection et dans cette sélection supprimer tous les objets.
Merci d'avance de ton aide PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images() For Each forme In Sheets(1).DrawingObjects If TypeName(forme) = "Picture" Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
isabelle
bonjour PJ,
Sub Enleve_Images() For Each f In Sheets("Feuil1").Shapes If f.Type = 7 Or f.Type = 13 Then f.Delete Next f End Sub
isabelle
Salut serge et merci mais hélàs il me reste encore mon PDF. Celui ci est de D5 à F15... peut-on faire une selection et dans cette sélection supprimer tous les objets.
Merci d'avance de ton aide PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images() For Each forme In Sheets(1).DrawingObjects If TypeName(forme) = "Picture" Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
bonjour PJ,
Sub Enleve_Images()
For Each f In Sheets("Feuil1").Shapes
If f.Type = 7 Or f.Type = 13 Then f.Delete
Next f
End Sub
isabelle
Salut serge et merci mais hélàs il me reste encore mon PDF.
Celui ci est de D5 à F15... peut-on faire une selection et dans cette
sélection supprimer tous les objets.
Merci d'avance de ton aide
PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images()
For Each forme In Sheets(1).DrawingObjects
If TypeName(forme) = "Picture" Then forme.Delete
Next forme
End Sub
Serge
"PJ" <PJ@discussions.microsoft.com> a écrit dans le message de news: 29617266-378F-42CF-8835-7F59657CC640@microsoft.com...
Oups JB en fait, il y a un problème..
Sur cette feuille, j'ai des command button et des textes (label) qui
apparaissent ou pas.
Le hic, c'est que cette fonction me supprime tout
Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ <P...@discussions.microsoft.com> wrote:
Bonjour à tous,
Voilà, j'ai un problème:
Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en
fait) puis je fais une sauvegarde et je ferme le fichier.
A la réouverture, je voudrais qu'une macro me supprime toutes les images et
mon PDF pour que je puisse insérer librement un autre choix.
J'ai essayé avec une Macro manuelle mais il nomme les images et donc à
chaque réouverture, il y a un problème.
Sub Enleve_Images() For Each f In Sheets("Feuil1").Shapes If f.Type = 7 Or f.Type = 13 Then f.Delete Next f End Sub
isabelle
Salut serge et merci mais hélàs il me reste encore mon PDF. Celui ci est de D5 à F15... peut-on faire une selection et dans cette sélection supprimer tous les objets.
Merci d'avance de ton aide PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images() For Each forme In Sheets(1).DrawingObjects If TypeName(forme) = "Picture" Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
JB
Pour obtenir les types des shapes:
Sub shapestype() i = 2 For Each s In ActiveSheet.Shapes Cells(i, 1) = s.Type Cells(i, 2) = s.Name i = i + 1 Next s End Sub
Pour tout supprimer sauf type 8:
Sub EffaceShapes() For Each i In ActiveSheet.Shapes If i.Type <> 8 Then ActiveSheet.Shapes(i.Name).Delete End If Next i End Sub
JB
On 25 jan, 13:56, PJ wrote:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une i mage en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les i mages et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et don c à chaque réouverture, il y a un problème.
Merci de votre aide PJ- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -
Pour obtenir les types des shapes:
Sub shapestype()
i = 2
For Each s In ActiveSheet.Shapes
Cells(i, 1) = s.Type
Cells(i, 2) = s.Name
i = i + 1
Next s
End Sub
Pour tout supprimer sauf type 8:
Sub EffaceShapes()
For Each i In ActiveSheet.Shapes
If i.Type <> 8 Then
ActiveSheet.Shapes(i.Name).Delete
End If
Next i
End Sub
JB
On 25 jan, 13:56, PJ <P...@discussions.microsoft.com> wrote:
Oups JB en fait, il y a un problème..
Sur cette feuille, j'ai des command button et des textes (label) qui
apparaissent ou pas.
Le hic, c'est que cette fonction me supprime tout
Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ <P...@discussions.microsoft.com> wrote:
Bonjour à tous,
Voilà, j'ai un problème:
Dans ma feuille1 j'insère des images et un PDF (qui est aussi une i mage en
fait) puis je fais une sauvegarde et je ferme le fichier.
A la réouverture, je voudrais qu'une macro me supprime toutes les i mages et
mon PDF pour que je puisse insérer librement un autre choix.
J'ai essayé avec une Macro manuelle mais il nomme les images et don c à
chaque réouverture, il y a un problème.
Merci de votre aide
PJ- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -
Sub shapestype() i = 2 For Each s In ActiveSheet.Shapes Cells(i, 1) = s.Type Cells(i, 2) = s.Name i = i + 1 Next s End Sub
Pour tout supprimer sauf type 8:
Sub EffaceShapes() For Each i In ActiveSheet.Shapes If i.Type <> 8 Then ActiveSheet.Shapes(i.Name).Delete End If Next i End Sub
JB
On 25 jan, 13:56, PJ wrote:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une i mage en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les i mages et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et don c à chaque réouverture, il y a un problème.
Merci de votre aide PJ- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -
garnote
Bonjour Isabelle,
Type : 7 ---> ? 13 ---> ? Et les autres ?
Fait pas chaud à Québec !
Serge
"isabelle" a écrit dans le message de news: e5%
bonjour PJ,
Sub Enleve_Images() For Each f In Sheets("Feuil1").Shapes If f.Type = 7 Or f.Type = 13 Then f.Delete Next f End Sub
isabelle
Salut serge et merci mais hélàs il me reste encore mon PDF. Celui ci est de D5 à F15... peut-on faire une selection et dans cette sélection supprimer tous les objets.
Merci d'avance de ton aide PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images() For Each forme In Sheets(1).DrawingObjects If TypeName(forme) = "Picture" Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
Bonjour Isabelle,
Type :
7 ---> ?
13 ---> ?
Et les autres ?
Fait pas chaud à Québec !
Serge
"isabelle" <i@v> a écrit dans le message de news: e5%23zwjIQHHA.3960@TK2MSFTNGP05.phx.gbl...
bonjour PJ,
Sub Enleve_Images()
For Each f In Sheets("Feuil1").Shapes
If f.Type = 7 Or f.Type = 13 Then f.Delete
Next f
End Sub
isabelle
Salut serge et merci mais hélàs il me reste encore mon PDF.
Celui ci est de D5 à F15... peut-on faire une selection et dans cette sélection supprimer tous les objets.
Merci d'avance de ton aide
PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images()
For Each forme In Sheets(1).DrawingObjects
If TypeName(forme) = "Picture" Then forme.Delete
Next forme
End Sub
Serge
"PJ" <PJ@discussions.microsoft.com> a écrit dans le message de news: 29617266-378F-42CF-8835-7F59657CC640@microsoft.com...
Oups JB en fait, il y a un problème..
Sur cette feuille, j'ai des command button et des textes (label) qui
apparaissent ou pas.
Le hic, c'est que cette fonction me supprime tout
Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ <P...@discussions.microsoft.com> wrote:
Bonjour à tous,
Voilà, j'ai un problème:
Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en
fait) puis je fais une sauvegarde et je ferme le fichier.
A la réouverture, je voudrais qu'une macro me supprime toutes les images et
mon PDF pour que je puisse insérer librement un autre choix.
J'ai essayé avec une Macro manuelle mais il nomme les images et donc à
chaque réouverture, il y a un problème.
Sub Enleve_Images() For Each f In Sheets("Feuil1").Shapes If f.Type = 7 Or f.Type = 13 Then f.Delete Next f End Sub
isabelle
Salut serge et merci mais hélàs il me reste encore mon PDF. Celui ci est de D5 à F15... peut-on faire une selection et dans cette sélection supprimer tous les objets.
Merci d'avance de ton aide PJ
Salut PJ,
Peut-être que :
Sub Enleve_Images() For Each forme In Sheets(1).DrawingObjects If TypeName(forme) = "Picture" Then forme.Delete Next forme End Sub
Serge
"PJ" a écrit dans le message de news:
Oups JB en fait, il y a un problème.. Sur cette feuille, j'ai des command button et des textes (label) qui apparaissent ou pas. Le hic, c'est que cette fonction me supprime tout Merci de m'éclairer.
PJ
Bonjour,
Sheets(1).DrawingObjects.Delete
JB
On 25 jan, 11:41, PJ wrote:
Bonjour à tous,
Voilà, j'ai un problème: Dans ma feuille1 j'insère des images et un PDF (qui est aussi une image en fait) puis je fais une sauvegarde et je ferme le fichier. A la réouverture, je voudrais qu'une macro me supprime toutes les images et mon PDF pour que je puisse insérer librement un autre choix. J'ai essayé avec une Macro manuelle mais il nomme les images et donc à chaque réouverture, il y a un problème.
Merci de votre aide PJ
isabelle
bonjour serge,
Bonjour Isabelle, Type : 7 ---> ? 13 ---> ? Et les autres ? Fait pas chaud à Québec ! par chez nous non plus...mais au moin vous avez de la neige,
serge, insere différente shapes sur la feuille 1 et roule cette macro,
Sub Type_Images() For Each f In Sheets("Feuil1").Shapes a = a + 1 Range("A" & a) = f.Type Range("B" & a) = f.Name Next f End Sub
isabelle
bonjour serge,
Bonjour Isabelle,
Type :
7 ---> ?
13 ---> ?
Et les autres ?
Fait pas chaud à Québec !
par chez nous non plus...mais au moin vous avez de la neige,
serge, insere différente shapes sur la feuille 1 et roule cette macro,
Sub Type_Images()
For Each f In Sheets("Feuil1").Shapes
a = a + 1
Range("A" & a) = f.Type
Range("B" & a) = f.Name
Next f
End Sub
