Sélectionner uniquement les formes dont les noms sont exclusivement numériq

Le 16/07/2020 à 21:46
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!
Le 16/07/2020 à 22:39

Bonjour,

Il y a juste une petite coquille > en mettant le i entre guillemets, le i devient du texte (une lettre), ce n'est plus une variable.

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

ric

Rechercher des sujets similaires à "selectionner uniquement formes noms exclusivement numeriq"