Shapes dans VB ExcelRésolu

Question

J'insert en automatique des images en utilisant des shapes.

j'ai 3 Shapes nomm&#233;es Picture 1;Picture 2;Picture 3
et 2 autres nomm&#233;es Autres 1; Autres 2
je selectionne les images Autres en utilisant dans la feuille courante:

ActiveSheet.Shapes("Autres 1").Select
et
ActiveSheet.Shapes("Autres 2").Select

j'aimerai savoir si une methode me permettait de selectionner des images sans passer tous sont nom en parametre, ainsi je pourrai selectionner toutes les images qui commencent par "Autres" comme par exemple Autres *

mrdep1978 · Accepted Answer

Voila ce que je te propose pour d&#233;marrer.
Si tu veux g&#233;rer les caract&#232;res de type "*", il faut voir modifier la condition

Public Sub SelectShapes(a_Pattern As String)
Dim ls_Shape As Shape
Dim ltab_Shapes() As Variant
'Initialise le tableau de formes &#224; s&#233;lectionner
ReDim ltab_Shapes(0)
'Parcourt toutes les formes de la feuille active
For Each ls_Shape In ActiveSheet.Shapes
    'Si le nom de la forme commence par a_Pattern, on l'ajoute au tableau
    If Left(ls_Shape.Name, Len(a_Pattern)) = a_Pattern Then
        'Ajoute la forme au tableau
        ltab_Shapes(UBound(ltab_Shapes)) = ls_Shape.Name
        'Agrandit le tableau
        ReDim Preserve ltab_Shapes(UBound(ltab_Shapes) + 1)
    End If
Next ls_Shape
'Si le nb d'&#233;l&#233;ments dans le tableau est sup&#233;rieur &#224; 0, on s&#233;lectionne
If UBound(ltab_Shapes) > 0 Then
    'On supprime le dernier &#233;l&#233;ment du tableau, car la boucle ajoute une ligne vide
    ReDim Preserve ltab_Shapes(UBound(ltab_Shapes) - 1)
    'S&#233;lectionne les formes pr&#233;sentes dans le tableau
    ActiveSheet.Shapes.Range(ltab_Shapes).Select
End If
End Sub

Sub Macro2()
 SelectShapes "Autres"
End Sub

Shapes dans VB Excel

1 réponse

Discussions similaires