déplacer des shapes

[jmlm]

bonjour le forum

je voudrai un petit coup de main en vba je n'y connais pas grand chose
mon probleme je voudrai deplacer des zone texte (shapes) en fonction d'une liste qui se trouve sur une autre feuille et en fonction du nom qu'il y a dans la zone de texte

ci joint un fichier avec une explication

merci a tous pour tous le travail que vous fournissez sur le forum

 

[BOISGONTIER]

Re : déplacer des shapes

Bonjour,

Sub essai()
  i = 1
  For Each s In Sheets("planning").Shapes
    texte = s.TextFrame.Characters.Text
    p = Application.Match(texte, [liste], 0)
    If Not IsError(p) Then
      s.Left = Cells(i, 7).Left
      s.Top = Cells(i, 7).Top
      i = i + 1
    End If
  Next s
End Sub

JB
Formation Excel VBA JB

 

[jmlm]

Re : déplacer des shapes

Merci a toi boigontier

ca marche super!!!