Selectionner shapes

Pierrot93

XLDnaute Barbatruc

• 2 Janvier 2015

• #2

Re : Selectionner shapes

Bonjour,

regarde peut être ceci :

Code:

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...

 

Dernière édition: 2 Janvier 2015

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 2 Janvier 2015

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Janvier 2015

• #4

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 ?

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 2 Janvier 2015

• #5

Re : Selectionner shapes

Re,

Voila un fichier exemple avec le code

 

Pièces jointes

• Sélectionner_Shapes.xlsm

  27.3 KB · Affichages: 26

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Janvier 2015

• #6

Re : Selectionner shapes

Re,

fonctionne comme ceci dans le fichier joint :

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 2 Janvier 2015

• #7

Re : Selectionner shapes

Re,

A oui il faut lui donner le nombre exact.

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Janvier 2015

• #8

Re : Selectionner shapes

Re,

bah oui en l'état....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Janvier 2015

• #9

Re : Selectionner shapes

Re,

sinon le faire ainsi :

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 2 Janvier 2015

• #10

Re : Selectionner shapes

Re,

OK merci

Bonne Aprés midi

 

Vote positif 0 Vote négatif