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 ? )
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
JB
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" wrote:
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
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" <Infogrou...@orange.fr> wrote:
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 ? )
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" wrote:
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
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" a écrit dans le message de 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" wrote:
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
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" <boisgontier@hotmail.com> a écrit dans le message de
news:6374ee9b-b7c3-4141-9169-11942d22a571@13g2000yql.googlegroups.com...
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" <Infogrou...@orange.fr> wrote:
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 ? )
Mais comment fais-tu toi et tous les autres maîtres du royaume " EXCEL " pour être aussi bon !
Respect
Merci Cordialement
Infogroup
"JB" a écrit dans le message de 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" wrote:
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 ? )