variable dans les paramètrea d'un rectangle

[olhey]

bonjour amis xldien.

J'ai une pettie question:
Comment intégrer un nom de variable la dedans:

With Origine.Parent.Shapes.AddShape(msoShapeRectangle, Origine.Left + (posDeb * Echelle), Origine.[COLOR="Red"]Top[/COLOR], Longueur * Echelle, 3)

j'ai une variable string qui s'appelle cote

If .Range("O" & Cpt).Value = "g" Then
                Cote = "top"
                Else: Cote = "bottom"
                End If

j'aimerais que la position du rectangle change en fonction de cote mais je sais pas comment intégrer cote dans With Origine.Parent.Shapes.AddShape(msoShapeRectangle, Origine.Left + (posDeb * Echelle), Origine.Top, Longueur * Echelle, 3)

MERCI bcp et dsl de mon état de débutant

 

[Minick]

Re : variable dans les paramètrea d'un rectangle

Soit pas si impatient...

Va voir ton post d'origine

ICI

 

[pierrejean]

Re : variable dans les paramètrea d'un rectangle

bonjour olhey

A tester:

If .Range("O" & Cpt).Value = "g" Then
  With Origine.Parent.Shapes.AddShape(msoShapeRectangle, Origine.Left + (posDeb * Echelle), Origine.[COLOR=red]Top[/COLOR], Longueur * Echelle, 3)
else
  With Origine.Parent.Shapes.AddShape(msoShapeRectangle, Origine.Left + (posDeb * Echelle), Origine.[COLOR=red]Bottom[/COLOR], Longueur * Echelle, 3)
end if

Edit:
Salut Minick

 

[olhey]

Re : variable dans les paramètrea d'un rectangle

Minick, en aucun cas je te suis infidèle tu t'occupe très bien de moi!
C'était juste une question qui m'est venue comme ça...

Merci encore de votre aide