XL 2019 Sélectionner uniquement les formes dont les noms sont exclusivement numériques

[Bana XIII]

Bonjour la communauté,

Je viens ici vous soumettre mon soucis. En fait j'ai sur une feuille trois (03) types de formes catégorisés par leurs noms. Les noms des deux (02) premiers types sont alphanumériques; les noms de la dernière catégorie sont uniquement numériques.

Ce que j'aimerais, c'est de pouvoir écrire une boucle qui me permette de sélectionner uniquement la dernière catégorie de formes et ainsi pouvoir interagir avec elle. Je tiens à préciser que les nombres identifiants chacune des formes ne se suivent pas de façon homogène (par exemple les 3 premières formes portent les numéros suivant: 11, 17,21, etc).

J'ai essayé de bricoler la macro suivante mais elle ne marche pas:

Sub Selection ()
Dim i as integer

For Each Shape In ActiveSheet.Shapes
For i = 11 To 393
If Shape.Name Like "i" Then
Shape.Line.ForeColor.RGB = RGB(255, 255, 255)
End If
Next
Next

End sub

Quelqu'un peut m'aider? Merci!

 

[Dranreb]

Bonjour.
Je dirais :

Sub ContourBlanc()
   Dim Shp As Shape
   For Each Shp In ActiveSheet.Shapes
      If IsNumeric(Shp.Name) Then
         Shp.Line.ForeColor.RGB = RGB(255, 255, 255)
         End If
      Next Shp
   End Sub