Je souhaite sélectionner différents shapes dans un Chart en fontion de leur
nom.
Le code suivant fonctionne très bien pour des shapes contenus dans une
worksheet.
Dim tb()
Dim i As Integer
i = 0
For Each shp In ActiveSheet.Shapes
If shp.Name Like "nomShape*" Then
i = i + 1
ReDim Preserve tb(i)
tb(i) = shp.Name
End If
Next
ActiveSheet.Shapes.Range(tb).Select
Mais si je remplace ActiveSheet par ActiveChart, cela ne fonctionne plus.
Bien sût, je lance ma macro en ayant pris soin de sélectionner un chart...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
djepy
J'ai finalement trouvé une solution. Ci-dessous le code, au cas où ça puisse dépanner qqun.
Dim blnSelect As Boolean
blnSelect = True For Each shp In ActiveChart.Shapes If shp.Name Like "nomShape*" Then shp.Select blnSelect blnSelect = False End If Next
Bonjour,
Je souhaite sélectionner différents shapes dans un Chart en fontion de leur nom. Le code suivant fonctionne très bien pour des shapes contenus dans une worksheet.
Dim tb() Dim i As Integer i = 0 For Each shp In ActiveSheet.Shapes If shp.Name Like "nomShape*" Then i = i + 1 ReDim Preserve tb(i) tb(i) = shp.Name End If Next ActiveSheet.Shapes.Range(tb).Select
Mais si je remplace ActiveSheet par ActiveChart, cela ne fonctionne plus. Bien sût, je lance ma macro en ayant pris soin de sélectionner un chart...
Merci d'avance.
J'ai finalement trouvé une solution.
Ci-dessous le code, au cas où ça puisse dépanner qqun.
Dim blnSelect As Boolean
blnSelect = True
For Each shp In ActiveChart.Shapes
If shp.Name Like "nomShape*" Then
shp.Select blnSelect
blnSelect = False
End If
Next
Bonjour,
Je souhaite sélectionner différents shapes dans un Chart en fontion de leur
nom.
Le code suivant fonctionne très bien pour des shapes contenus dans une
worksheet.
Dim tb()
Dim i As Integer
i = 0
For Each shp In ActiveSheet.Shapes
If shp.Name Like "nomShape*" Then
i = i + 1
ReDim Preserve tb(i)
tb(i) = shp.Name
End If
Next
ActiveSheet.Shapes.Range(tb).Select
Mais si je remplace ActiveSheet par ActiveChart, cela ne fonctionne plus.
Bien sût, je lance ma macro en ayant pris soin de sélectionner un chart...
J'ai finalement trouvé une solution. Ci-dessous le code, au cas où ça puisse dépanner qqun.
Dim blnSelect As Boolean
blnSelect = True For Each shp In ActiveChart.Shapes If shp.Name Like "nomShape*" Then shp.Select blnSelect blnSelect = False End If Next
Bonjour,
Je souhaite sélectionner différents shapes dans un Chart en fontion de leur nom. Le code suivant fonctionne très bien pour des shapes contenus dans une worksheet.
Dim tb() Dim i As Integer i = 0 For Each shp In ActiveSheet.Shapes If shp.Name Like "nomShape*" Then i = i + 1 ReDim Preserve tb(i) tb(i) = shp.Name End If Next ActiveSheet.Shapes.Range(tb).Select
Mais si je remplace ActiveSheet par ActiveChart, cela ne fonctionne plus. Bien sût, je lance ma macro en ayant pris soin de sélectionner un chart...
