Bonjour,

Dans la plage de 104 cellules : A14:D26 (52 cellules) et G14:J26 (52 cellules), je peux avoir plusieurs zones de texte et aucun autre objet.
Dans cette plage, ces zones ne sont pas forcément au même endroit d'une fois sur l'autre.

Je souhaiterais retrouver automatiquement toutes ces zones de texte et procéder à leurs suppressions.

NB : il n'est pas question de supprimer les autres zones de texte et/ ou objets en dehors de cette plage.

Merci par avance si vous pouvez m'aider.

si rien d'indiscret dans ta page

si tu nous faisais parvenir une copie de ta page par cjoint pour que ce soit plus explicite car demande plus que vague !.

.

.

.

.

.

nainconnu.bis

Ci-joint une extraction de mon fichier Excel maître : https://www.cjoint.com/c/NHbodzAjG0P

Dans la plage de cellules A14:D26 : 4 zones de texte (cases bleues foncées et cases noires). Ce sont des objets amovibles et non une coloration de la cellule correspondante
Dans la plage de cellules G14:J26 : 4 zones de texte (cases noires) donc amovibles

Je souhaiterais disposer d'une macro permettant de supprimer ces 8 zones de texte sans modifier le contenu des cellules correspondantes.

NB : en aucun cas, il faut détruire les zones de texte extérieures à l'union de ces 2 plages.

Bonjour,

Je souhaiterais retrouver automatiquement toutes ces zones de texte et procéder à leurs suppressions.

Pour faire cela automatiquement il faut utiliser du code.

Pour cela, quel tableur utilises tu ?

Gaby-Jo

Je suis dans le sous-forum Excel donc mon tableur est Excel => il faut donc faire du VBA !

Bonjour,

Dans un Module... A ré-indenter après le formatage PC Astuces

Option Explicit

Private Const RangeDelete = "A14:D26,G14:J26"

Sub DeleteTextBoxes()
Dim Shape As Shape

With ActiveSheet
For Each Shape In .Shapes
If Shape.Type = msoTextBox Then
If Not Intersect(Shape.TopLeftCell, .Range(RangeDelete)) Is Nothing Then
Shape.Delete
End If
End If
Next Shape
End With
End Sub

Merci Dudu, je vais regarder ta réponse extrêmement précise avec beaucoup d'attention. Je reviens te voir plus tard pour te tenir informé.

Dudu, tu es un Chef ! Cela fonctionne remarquablement bien mais malheureusement, je ne suis pas suffisamment fort pour tout comprendre.

Par exemple :

Que veut dire : For Each Shape In .Shapes
Est-ce : pour chaque forme de toutes les formes de la feuille de calcul ?

Que veut dire : If Shape.Type = msoTextBox Then
Est-ce : si la forme est une zone de texte alors

Que veut dire : If Not Intersect(Shape.TopLeftCell, .Range(RangeDelete)) Is Nothing Then
Est-ce : ???

Quant au reste, j'ai tout compris

Bonjour,

Que veut dire : For Each Shape In .Shapes
Est-ce : pour chaque forme de toutes les formes de la feuille de calcul ?

Oui

Que veut dire : If Shape.Type = msoTextBox Then
Est-ce : si la forme est une zone de texte alors

Oui, même si "zone de texte" n'est pas très approprié, je dirais plutôt une "forme" ou un "contrôle de formulaire" de type TextBox.

Que veut dire : If Not Intersect(Shape.TopLeftCell, .Range(RangeDelete)) Is Nothing Then

- .TopLeftCell est une propriété d'une Shape et représente la cellule où est placée la partie haute et gauche (le coin haut gauche pour une TextBox) de la Shape.
- Intersect() est une fonction Excel qui retourne un Range composé de l'intersection de 2 à 30 Ranges (ici 2 seulement comme souvent).
En l'occurrence l'intersection entre la TopLeftCell de la Shape et le Range que tu as défini comme étant celui à analyser.
Si ça rend "Nothing" (rien) c'est que la TopLeftCell n'est pas dans le Range défini.
Si ça rend pas "Nothing", c'est à dire la cellule TopLeftCell, c'est que la Shape est à supprimer.