Pour effacer les photos d'un trombinoscope j'utilise sur chaque feuille du
classeur la petite macro récupérer sur excelabo
N° 1728 : de Jocelyn Vaillancourt : Supprimer des images
Sub Macro1()
ActiveSheet.Pictures.Delete
Range("A3").Select
End Sub
Mais impossible de revenir en arrière si on efface par erreur.
Pourriez vous m'indiquer comment rajouter un message demandant confirmation
avant l'effacement.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ABED HADDOU
Bonjour kerr2
Sub Macro1() Confirme = MsgBox("Voulez vous vraiment Supprimer la photo", vbYesNo, "Suppression des Images") If Confirme = vbNo Then Exit Sub ActiveSheet.Pictures.Delete Range("A3").Select End Sub
Cordialement Abed_H
Bonjour,
Pour effacer les photos d'un trombinoscope j'utilise sur chaque feuille du classeur la petite macro récupérer sur excelabo N° 1728 : de Jocelyn Vaillancourt : Supprimer des images
Sub Macro1() ActiveSheet.Pictures.Delete Range("A3").Select End Sub
Mais impossible de revenir en arrière si on efface par erreur.
Pourriez vous m'indiquer comment rajouter un message demandant confirmation avant l'effacement.
En vous remerciant par avance.
Bonjour kerr2
Sub Macro1()
Confirme = MsgBox("Voulez vous vraiment Supprimer la photo", vbYesNo,
"Suppression des Images")
If Confirme = vbNo Then Exit Sub
ActiveSheet.Pictures.Delete
Range("A3").Select
End Sub
Cordialement
Abed_H
Bonjour,
Pour effacer les photos d'un trombinoscope j'utilise sur chaque feuille du
classeur la petite macro récupérer sur excelabo
N° 1728 : de Jocelyn Vaillancourt : Supprimer des images
Sub Macro1()
ActiveSheet.Pictures.Delete
Range("A3").Select
End Sub
Mais impossible de revenir en arrière si on efface par erreur.
Pourriez vous m'indiquer comment rajouter un message demandant confirmation
avant l'effacement.
Sub Macro1() Confirme = MsgBox("Voulez vous vraiment Supprimer la photo", vbYesNo, "Suppression des Images") If Confirme = vbNo Then Exit Sub ActiveSheet.Pictures.Delete Range("A3").Select End Sub
Cordialement Abed_H
Bonjour,
Pour effacer les photos d'un trombinoscope j'utilise sur chaque feuille du classeur la petite macro récupérer sur excelabo N° 1728 : de Jocelyn Vaillancourt : Supprimer des images
Sub Macro1() ActiveSheet.Pictures.Delete Range("A3").Select End Sub
Mais impossible de revenir en arrière si on efface par erreur.
Pourriez vous m'indiquer comment rajouter un message demandant confirmation avant l'effacement.
En vous remerciant par avance.
pat
Bonsoir, peut etre que je me trompe mais : ouvrir un userform avec 1 bouton et affecter la macroà ce bouton. Ca marche ? cordialement patrick "kerr2" a écrit dans le message de news:
Bonjour,
Pour effacer les photos d'un trombinoscope j'utilise sur chaque feuille du classeur la petite macro récupérer sur excelabo N° 1728 : de Jocelyn Vaillancourt : Supprimer des images
Sub Macro1() ActiveSheet.Pictures.Delete Range("A3").Select End Sub
Mais impossible de revenir en arrière si on efface par erreur.
Pourriez vous m'indiquer comment rajouter un message demandant confirmation avant l'effacement.
En vous remerciant par avance.
Bonsoir,
peut etre que je me trompe mais :
ouvrir un userform avec 1 bouton et affecter la macroà ce bouton.
Ca marche ?
cordialement
patrick
"kerr2" <kerr2entrop@free.onsupprimefr> a écrit dans le message de news:
eFV88G7nGHA.4176@TK2MSFTNGP05.phx.gbl...
Bonjour,
Pour effacer les photos d'un trombinoscope j'utilise sur chaque feuille du
classeur la petite macro récupérer sur excelabo
N° 1728 : de Jocelyn Vaillancourt : Supprimer des images
Sub Macro1()
ActiveSheet.Pictures.Delete
Range("A3").Select
End Sub
Mais impossible de revenir en arrière si on efface par erreur.
Pourriez vous m'indiquer comment rajouter un message demandant
confirmation avant l'effacement.
Bonsoir, peut etre que je me trompe mais : ouvrir un userform avec 1 bouton et affecter la macroà ce bouton. Ca marche ? cordialement patrick "kerr2" a écrit dans le message de news:
Bonjour,
Pour effacer les photos d'un trombinoscope j'utilise sur chaque feuille du classeur la petite macro récupérer sur excelabo N° 1728 : de Jocelyn Vaillancourt : Supprimer des images
Sub Macro1() ActiveSheet.Pictures.Delete Range("A3").Select End Sub
Mais impossible de revenir en arrière si on efface par erreur.
Pourriez vous m'indiquer comment rajouter un message demandant confirmation avant l'effacement.
En vous remerciant par avance.
kerr2
Bonjour,
Merci pour votre réponse. Cela a fonctionné du premier coup.
S'il n'y a pas de photo a effacer par contre, on obtient également le message de la MsgBox. Que faudrait il rajouter pour tester si la feuille comporte des photos du genre si photo: box si pas photo: rien
Merci beaucoup pour votre aide.
"ABED HADDOU" a écrit dans le message de news:
Bonjour kerr2
Sub Macro1() Confirme = MsgBox("Voulez vous vraiment Supprimer la photo", vbYesNo, "Suppression des Images") If Confirme = vbNo Then Exit Sub ActiveSheet.Pictures.Delete Range("A3").Select End Sub
Cordialement Abed_H
Bonjour,
Pour effacer les photos d'un trombinoscope j'utilise sur chaque feuille du classeur la petite macro récupérer sur excelabo N° 1728 : de Jocelyn Vaillancourt : Supprimer des images
Sub Macro1() ActiveSheet.Pictures.Delete Range("A3").Select End Sub
Mais impossible de revenir en arrière si on efface par erreur.
Pourriez vous m'indiquer comment rajouter un message demandant confirmation avant l'effacement.
En vous remerciant par avance.
Bonjour,
Merci pour votre réponse.
Cela a fonctionné du premier coup.
S'il n'y a pas de photo a effacer par contre, on obtient également le
message de la MsgBox.
Que faudrait il rajouter pour tester si la feuille comporte des photos du
genre
si photo: box
si pas photo: rien
Merci beaucoup pour votre aide.
"ABED HADDOU" <ABEDHADDOU@discussions.microsoft.com> a écrit dans le message
de news: FAC5EF80-57C0-4989-BFCA-8B4833D907EB@microsoft.com...
Bonjour kerr2
Sub Macro1()
Confirme = MsgBox("Voulez vous vraiment Supprimer la photo", vbYesNo,
"Suppression des Images")
If Confirme = vbNo Then Exit Sub
ActiveSheet.Pictures.Delete
Range("A3").Select
End Sub
Cordialement
Abed_H
Bonjour,
Pour effacer les photos d'un trombinoscope j'utilise sur chaque feuille
du
classeur la petite macro récupérer sur excelabo
N° 1728 : de Jocelyn Vaillancourt : Supprimer des images
Sub Macro1()
ActiveSheet.Pictures.Delete
Range("A3").Select
End Sub
Mais impossible de revenir en arrière si on efface par erreur.
Pourriez vous m'indiquer comment rajouter un message demandant
confirmation
avant l'effacement.
Merci pour votre réponse. Cela a fonctionné du premier coup.
S'il n'y a pas de photo a effacer par contre, on obtient également le message de la MsgBox. Que faudrait il rajouter pour tester si la feuille comporte des photos du genre si photo: box si pas photo: rien
Merci beaucoup pour votre aide.
"ABED HADDOU" a écrit dans le message de news:
Bonjour kerr2
Sub Macro1() Confirme = MsgBox("Voulez vous vraiment Supprimer la photo", vbYesNo, "Suppression des Images") If Confirme = vbNo Then Exit Sub ActiveSheet.Pictures.Delete Range("A3").Select End Sub
Cordialement Abed_H
Bonjour,
Pour effacer les photos d'un trombinoscope j'utilise sur chaque feuille du classeur la petite macro récupérer sur excelabo N° 1728 : de Jocelyn Vaillancourt : Supprimer des images
Sub Macro1() ActiveSheet.Pictures.Delete Range("A3").Select End Sub
Mais impossible de revenir en arrière si on efface par erreur.
Pourriez vous m'indiquer comment rajouter un message demandant confirmation avant l'effacement.
