Selectionner shapes

[maval]

Bonjour et bonne année à tous

Voila j'ai sur les feuilles des shapes et pour les sélectionner j'ai se code:

 Sub shapes()
 Sheets("Feuil1").shapes.SelectAll
 End Sub

Seul prbléme est qu'il me selectionne tous "Boutons, Zone texte ect..."
J'aimerais qu'il me sélectionne que les Shapes portant le nom de "Shapes-01 jusqu'a Shapes-100/

Je vous remercie d'avance

 

[Pierrot93]

Re : Selectionner shapes

Bonjour,

regarde peut être ceci :

Option Explicit
Sub test()
Dim i As Byte
For i = 1 To 100
    Feuil1.Shapes("Shapes-" & Format(i, "00")).Select i = 1
Next i
End Sub

bon après midi
@+

Edition erreur d'opérateur...

 

[maval]

Re : Selectionner shapes

Bonjour Pierrot

J'ai un message d'erreur "l'élément portant se nom est introuvable" alors que j'ai des shapes nommer " Shapes-07 et Shapes-08"

Bon aprés midi

Max

 

[Pierrot93]

Re : Selectionner shapes

Re,

bah... vérifie le nom, si pas d'espace par exemple.... fonctionne chez moi.... fonctionne sur les premières chez toi ?

 

[maval]

Re : Selectionner shapes

Re,

Voila un fichier exemple avec le code

 

[Pierrot93]

Re : Selectionner shapes

Re,

fonctionne comme ceci dans le fichier joint :

Sub test_shapes()
Dim i As Byte
For i = 1 To 4
    Feuil1.Shapes("Shapes-" & Format(i, "00")).Select i = 1
Next i
End Sub

A noter j'avais édité le code du post #2

 

[maval]

Re : Selectionner shapes

Re,

A oui il faut lui donner le nombre exact.

Merci

 

[Pierrot93]

Re : Selectionner shapes

Re,

bah oui en l'état....

 

[Pierrot93]

Re : Selectionner shapes

Re,

sinon le faire ainsi :

Option Explicit
Sub test()
Dim i As Byte
On Error Resume Next
For i = 1 To 100
    Feuil1.Shapes("Shapes-" & Format(i, "00")).Select i = 1
Next i
On Error GoTo 0
End Sub

 

[maval]

Re : Selectionner shapes

Re,

OK merci

Bonne Aprés midi