Tableau d'image

[gecanosaga]

Bonjour à tous,

Voila mon problème : je souhaite sélectionner toutes les images contenues dans une feuille afin de faire un groupe. Etant donné que j'ai beaucoup d'images, j'ai pensé faire un tableau et le sélectionner. Seuleument voila il me bloque à l'avant dernière ligne : "Erreur d'exécution '1004' : L'index de cette collection est en dehors des limites"

Est ce que mon tableau est trop grand ou est ce un autre problème?

Sub groupeimage()

    Dim i As Integer
    Dim n As Integer
    Dim a
    
    i = 0
    n = 0
    
    For Each s In ActiveSheet.Shapes
        n = n + 1
    Next s
    
    ReDim a(n)
    
    For Each s In ActiveSheet.Shapes
        nomimage = s.Name
        a(i) = nomimage
        i = i + 1
    Next s
    ActiveSheet.Shapes.Range(Array(a)).Select
    Shapes.Select

End Sub

Si quelqu'un a une idée merci

 

[Pierrot93]

Re : Tableau d'image

Bonjour,

essaye ceci :

ActiveSheet.Shapes.SelectAll

bon après midi
@+

 

[gecanosaga]

Re : Tableau d'image

Des fois je me dis que je suis trop c*

Comment faire compliqué (ou tout du moins essayer) alors que la solution était toute simple....

Merci pour ta réponse très rapide Pierrot93 🙂

 

[gecanosaga]

Re : Tableau d'image

Bon alors mon problème est presque le même je n'ai peut être pas besoin de créer un nouveau post !

Alors voila en fait je voudrais ne sélectionner que les image de type "rectangle" car c'est les seuls avec les lesquels je peux faire une rotation. pour le reste va falloir que je me retappe tout mais c'est une autre histoire!
j'ai fais ce code là :

Sub groupeimage()

    Dim i As Integer
    Dim n As Integer
    Dim a
    
    i = 0
    n = 0
    
    For Each s In ActiveSheet.Shapes
        n = n + 1
    Next s
    
    ReDim a(n)
    
    For Each s In ActiveSheet.Shapes
        nomimage = s.Name
        If nomimage Like "Rectangle*" Then
            a(i) = nomimage
            i = i + 1
        End If
    Next s
    ActiveSheet.Shapes.Range(a).Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.rotation = 270#
End Sub

Malheureusement je suis toujours bloqué au même niveau : au moment de la sélection des éléments.
Pourtant si l'on écrit

ActiveSheet.Shapes.Range(Array("Rectangle 1","Rectangle 2").Select

et ben ça fonctionne ! donc je suis perdu...🙁

 

[Pierrot93]

Re : Tableau d'image

Re,

essaye ceci :

Sub groupeimage()
Dim s As Shape
Range("A1").Select
For Each s In ActiveSheet.Shapes
    If s.Name Like "Rectangle*" Then s.Select False
Next s
End Sub

 

[gecanosaga]

Re : Tableau d'image

Alors là je dis bravo même si je sais pas pourquoi en mettant False ça fonctionne?????

Je ne comprend pas non plus pourquoi ma méthode ne fonctionne pas :'(

Mais la tienne fonctionne super bien merciiii 😀

 

[Pierrot93]

Re : Tableau d'image

Re,

Alors là je dis bravo même si je sais pas pourquoi en mettant False ça fonctionne?????

utilisation de l'argument "replace" de la méthode "select", "false" permet de ne pas remplacer la selection existantes, ci dessous extrait de l'aide vba..;

Replace Argument de type Variant facultatif. Objet à remplacer.

 

[gecanosaga]

Re : Tableau d'image

Merci pour cette explication, c'est sympa 🙂

En tout cas je m'incline bien bas !