Faire apparaitre image + texte - Page 2

' Hublot Conditions
Public Sub majConditions(nomh, nomob)
With ActiveSheet
  .Shapes(nomh).Select
  Selection.ShapeRange.ZOrder msoBringToFront
  .Shapes("hublot_Conditions").Select
  Selection.ShapeRange.ZOrder msoBringToFront
  .Range(celConditions).Value = Replace(nomob, "_", " ")
  .Range(celQuit).Select
End With
End Sub

Option Explicit

Const FL = "Liste_shapes"
Const FC = "CONSOLE"

Sub ListeShapes_1()
Dim T(), n As Long, sh As Shape, k As Long
With Sheets(FC)
  n = .Shapes.Count
  ReDim T(1 To n, 1 To 6)
  k = 0
  For Each sh In .Shapes
    k = k + 1
    T(k, 1) = sh.Name
    T(k, 2) = sh.Type
    T(k, 3) = sh.Top
    T(k, 4) = sh.Left
    T(k, 5) = sh.Height
    T(k, 6) = sh.Width
  Next sh
End With
Sheets(FL).Cells(2, 1).Resize(n, 6) = T
End Sub