Bonjour à toutes et tous.
Je désire supprimer toutes les zones de texte appelée Shapes("FERIE")." qui
se trouvent dans la zone de texte qui s'appelle "zone_noms".
Merci beaucoup.
Patrick
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
michdenis
Bonjour Crel,
Voici une procédure qui efface toutes les zones de texte issues de la barre d'outil dessin dont le nom débute par "FERIE".
Remplace "Feuil1" dans la procédure pour le nom de la feuille où sont situés tes zones de texte. '---------------------- Sub EffacerShapesZoneDeTexte()
Dim S As Shape, NomF As String NomF = ActiveSheet.Name Application.ScreenUpdating = False With Worksheets("Feuil1") .Activate For Each S In .Shapes If Left(S.Name, 5) = "FERIE" Then S.Select Replace:úlse End If Next End With Selection.Delete Worksheets(NomF).Activate Set S = Nothing End Sub '----------------------
Salutations!
P.S. Si tu veux limiter l'action à une zone particulière d'une feuille de calcul, tu dois donner un peu plus de détails sur ce que tu considères comme faisant parti de la "zone". Est-ce que la zone de texte doit être en partie ou totalement à l'écart de l'étendu de la plage nommée .... !
"Crel" a écrit dans le message de news: Bonjour à toutes et tous. Je désire supprimer toutes les zones de texte appelée Shapes("FERIE")." qui se trouvent dans la zone de texte qui s'appelle "zone_noms". Merci beaucoup. Patrick
Bonjour Crel,
Voici une procédure qui efface toutes les zones de texte issues de la barre d'outil dessin dont le nom débute par "FERIE".
Remplace "Feuil1" dans la procédure pour le nom de la feuille où sont situés tes zones de texte.
'----------------------
Sub EffacerShapesZoneDeTexte()
Dim S As Shape, NomF As String
NomF = ActiveSheet.Name
Application.ScreenUpdating = False
With Worksheets("Feuil1")
.Activate
For Each S In .Shapes
If Left(S.Name, 5) = "FERIE" Then
S.Select Replace:úlse
End If
Next
End With
Selection.Delete
Worksheets(NomF).Activate
Set S = Nothing
End Sub
'----------------------
Salutations!
P.S. Si tu veux limiter l'action à une zone particulière d'une feuille
de calcul, tu dois donner un peu plus de détails sur ce que tu
considères comme faisant parti de la "zone". Est-ce que la zone
de texte doit être en partie ou totalement à l'écart de l'étendu
de la plage nommée .... !
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le message de news:ez9MQAHSDHA.1572@TK2MSFTNGP12.phx.gbl...
Bonjour à toutes et tous.
Je désire supprimer toutes les zones de texte appelée Shapes("FERIE")." qui
se trouvent dans la zone de texte qui s'appelle "zone_noms".
Merci beaucoup.
Patrick
Voici une procédure qui efface toutes les zones de texte issues de la barre d'outil dessin dont le nom débute par "FERIE".
Remplace "Feuil1" dans la procédure pour le nom de la feuille où sont situés tes zones de texte. '---------------------- Sub EffacerShapesZoneDeTexte()
Dim S As Shape, NomF As String NomF = ActiveSheet.Name Application.ScreenUpdating = False With Worksheets("Feuil1") .Activate For Each S In .Shapes If Left(S.Name, 5) = "FERIE" Then S.Select Replace:úlse End If Next End With Selection.Delete Worksheets(NomF).Activate Set S = Nothing End Sub '----------------------
Salutations!
P.S. Si tu veux limiter l'action à une zone particulière d'une feuille de calcul, tu dois donner un peu plus de détails sur ce que tu considères comme faisant parti de la "zone". Est-ce que la zone de texte doit être en partie ou totalement à l'écart de l'étendu de la plage nommée .... !
"Crel" a écrit dans le message de news: Bonjour à toutes et tous. Je désire supprimer toutes les zones de texte appelée Shapes("FERIE")." qui se trouvent dans la zone de texte qui s'appelle "zone_noms". Merci beaucoup. Patrick
