Suppression image dans excel
Fermé
sisijp74
Messages postés
37
Date d'inscription
dimanche 11 novembre 2007
Statut
Membre
Dernière intervention
4 octobre 2019
-
Modifié le 1 oct. 2019 à 15:29
sisijp74 Messages postés 37 Date d'inscription dimanche 11 novembre 2007 Statut Membre Dernière intervention 4 octobre 2019 - 4 oct. 2019 à 13:07
sisijp74 Messages postés 37 Date d'inscription dimanche 11 novembre 2007 Statut Membre Dernière intervention 4 octobre 2019 - 4 oct. 2019 à 13:07
A voir également:
- Suppression image dans excel
- Liste déroulante excel - Guide
- Forcer suppression fichier - Guide
- Formule excel - Guide
- Image iso - Guide
- Si et excel - Guide
4 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
1 oct. 2019 à 17:18
1 oct. 2019 à 17:18
Bonjour,
une idée OUI, afficher toutes les images(Shapes) dans une listBox, sélectionner celles que l'on veut supprimer.
Pour faire cela:
Inserer un UserForm, mettre 2 CommandButton et une ListBox avec ce code:
Voilà
une idée OUI, afficher toutes les images(Shapes) dans une listBox, sélectionner celles que l'on veut supprimer.
Pour faire cela:
Inserer un UserForm, mettre 2 CommandButton et une ListBox avec ce code:
Option Explicit Private Sub CommandButton1_Click() Dim s As Shape For Each s In ActiveSheet.Shapes 'boucle sur les shapes ListBox1.AddItem (s.Name) Next s End Sub Private Sub CommandButton2_Click() Dim i As Byte Dim nom As String 'boucle sur les éléments de la listbox For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then nom = ListBox1.List(i) Worksheets("Feuil1").Shapes(nom).Delete 'adapter nom de la feuille End If Next i End Sub Private Sub UserForm_Initialize() ListBox1.MultiSelect = fmMultiSelectMulti CommandButton1.Caption = "Afficher" CommandButton2.Caption = "Supprimer" End Sub
Voilà
sisijp74
Messages postés
37
Date d'inscription
dimanche 11 novembre 2007
Statut
Membre
Dernière intervention
4 octobre 2019
33
2 oct. 2019 à 11:38
2 oct. 2019 à 11:38
Merci Le Pivert, j'ais essayer. Mais comment fait on pour afficher cette liste ? quelle touche ?
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
2 oct. 2019 à 13:35
2 oct. 2019 à 13:35
Voici un exemple à adapter:
https://www.cjoint.com/c/IJclIC7V6kQ
@+ Le Pivert
https://www.cjoint.com/c/IJclIC7V6kQ
@+ Le Pivert
sisijp74
Messages postés
37
Date d'inscription
dimanche 11 novembre 2007
Statut
Membre
Dernière intervention
4 octobre 2019
33
3 oct. 2019 à 08:37
3 oct. 2019 à 08:37
Bonjour Pivert,
Je n'y arrive pas. Il y a des choses que je ne comprend pas. Tout d'abord, quand j'ouvre ton fichier, sur userform1 je fais clic droit, code et c'est le meme code que tu as envoyé hier qui s'affiche. Mais j'imagine qu'il y a des choses a rajouter comme nom de la feuille etc....
Le nom de la feuille ok mais les shapes ????? c'est les images ? comment je leur donne un nom ou une position ? Comment definir le raccourcis qui ouvre le userform (ctrl W)?
Merci
Je n'y arrive pas. Il y a des choses que je ne comprend pas. Tout d'abord, quand j'ouvre ton fichier, sur userform1 je fais clic droit, code et c'est le meme code que tu as envoyé hier qui s'affiche. Mais j'imagine qu'il y a des choses a rajouter comme nom de la feuille etc....
Le nom de la feuille ok mais les shapes ????? c'est les images ? comment je leur donne un nom ou une position ? Comment definir le raccourcis qui ouvre le userform (ctrl W)?
Merci
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
3 oct. 2019 à 10:58
3 oct. 2019 à 10:58
Voir ceci pour les UserForm:
https://silkyroad.developpez.com/VBA/UserForm/
Comment definir le raccourcis qui ouvre le userform (ctrl W)?
http://www.info-3000.com/vbvba/raccourciclavier.php
mais les shapes ????? c'est les images ? comment je leur donne un nom ou une position
Leur nom est attribué au moment de l'insertion de l'image sur la feuille: Picture 1, Picture 2 etc.
La listBox te permet justement d'afficher ces noms que tu ne connais pas. En sélectionnant le nom dans la listbox, l'image est sélectionnée sur la feuille. Tu peux donc voir si c'est l'image que tu veux supprimer.
Si tu veux déplacer la feuille avec l'UserForm ouvert. Il te faut mettre la propriété de l'UserForm ShowModal à False
voilà, si tu as d'autres question?
@+ Le Pivert
https://silkyroad.developpez.com/VBA/UserForm/
Comment definir le raccourcis qui ouvre le userform (ctrl W)?
http://www.info-3000.com/vbvba/raccourciclavier.php
mais les shapes ????? c'est les images ? comment je leur donne un nom ou une position
Leur nom est attribué au moment de l'insertion de l'image sur la feuille: Picture 1, Picture 2 etc.
La listBox te permet justement d'afficher ces noms que tu ne connais pas. En sélectionnant le nom dans la listbox, l'image est sélectionnée sur la feuille. Tu peux donc voir si c'est l'image que tu veux supprimer.
Si tu veux déplacer la feuille avec l'UserForm ouvert. Il te faut mettre la propriété de l'UserForm ShowModal à False
voilà, si tu as d'autres question?
@+ Le Pivert
sisijp74
Messages postés
37
Date d'inscription
dimanche 11 novembre 2007
Statut
Membre
Dernière intervention
4 octobre 2019
33
4 oct. 2019 à 13:07
4 oct. 2019 à 13:07
Tout ok merci, bon week end