Coding "For each" & "If"

Bonjour,

dans la séquence :

Code:

---

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:

---

1 2 3

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

---

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:

---

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:

---

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

---