Sélection de shapes

Le
Infogroup
Bonsoir à tous,

dans une feuille, j'ai peut-être une cinquantaine de shapes, mais je
voudrais savoir s'il est possible de ne sélectionner que ceux se trouvant
dans la plage A10:D25

le code ActiveSheet.Shapes.SelectAll ne convient pas dans ce cas, pas plus
que Selection.Shapes ( du moins je ne crois pas ? )

Merci pour votre aide

Infogroup
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #17989921
Bonsoir,

Sub SelectionneShapesChamp()
For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell, Range("$A$1:$D$20")) Is Nothing
Then
s.Select False
End If
Next s
End Sub

JB
http://boisgontierjacques.free.fr/

On 28 nov, 18:35, "Infogroup"
Bonsoir à tous,

dans une feuille, j'ai peut-être une cinquantaine de shapes, mais je
voudrais savoir s'il est possible de ne sélectionner que ceux se trouva nt
dans la plage A10:D25

le code ActiveSheet.Shapes.SelectAll ne convient pas dans ce cas, pas plu s
que Selection.Shapes ( du moins je ne crois pas ? )

Merci pour votre aide

Infogroup


Infogroup
Le #17990041
Merci JB, une fois de plus tu es épatant !

Mais comment fais-tu toi et tous les autres maîtres du royaume " EXCEL "
pour être aussi bon !

Respect

Merci
Cordialement

Infogroup

"JB" news:
Bonsoir,

Sub SelectionneShapesChamp()
For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell, Range("$A$1:$D$20")) Is Nothing
Then
s.Select False
End If
Next s
End Sub

JB
http://boisgontierjacques.free.fr/

On 28 nov, 18:35, "Infogroup"
Bonsoir à tous,

dans une feuille, j'ai peut-être une cinquantaine de shapes, mais je
voudrais savoir s'il est possible de ne sélectionner que ceux se trouvant
dans la plage A10:D25

le code ActiveSheet.Shapes.SelectAll ne convient pas dans ce cas, pas plus
que Selection.Shapes ( du moins je ne crois pas ? )

Merci pour votre aide

Infogroup


Publicité
Poster une réponse
Anonyme