Discussion :

[retraite83]

Bonjour,

dans la séquence :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For Each shp In ActiveSheet.Shapes
        If shp.Top = catalogue.Range("D4").Top Then
ActiveSheet.Shapes(shp.Name).Copy

Quand on est certain de la position de l'image et son unicité, est-il possible de coder sans le "For each" et le "If" (je ne trouve pas dans les docs)

pour prendre directement le shape, quelque chose du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Select shp.Top = catalogue.Range("D4").Top
ActiveSheet.Shapes(shp.Name).Copy

[Pierre Fauconnier]

Salut.

Sans connaître le nom du shape, tu n'auras d'autre choix que de boucler sur la collection des shapes de la feuille en utilisant une propriété du shape, ou plusieurs, pour stopper la boucle.

Comme déjà dit ailleurs, laisse tomber les select et découpe ton code en fonctions.

Voici une fonction à laquelle tu dois passer une feuille et le top recherché. Elle renverra le shape qui a le même top ou nothing si elle n'a rien trouvé. Tu utilises cette fonction comme n'importe quelle fonction VBA au sein de ton code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function getShapeFromTop(ws As Worksheet, Top As Long) As Shape
  Dim Found As Boolean
  Dim sh As Shape
  Dim Counter As Long
 
  Counter = 1
  Do While Counter <= ws.Shapes.Count And Not Found
    If ws.Shapes(Counter).Top = Top Then Found = True
    Counter = Counter + 1
  Loop
  If Found Then Set getShapeFromTop = ws.Shapes(Counter - 1)
End Function

Voici un code de démo qui illustre comment utiliser cette fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Demo()
  Dim sh As Shape
  Dim Source As Worksheet
 
  Set Source = Worksheets("Feuil1")
  Set sh = getShapeFromTop(Source, 45)
  If Not sh Is Nothing Then
    Debug.Print sh.Name
  End If
End Sub