Appeler un shape dans une procédure

Question

Bonjour!
Je souhaite cr&#233;er des dynamiquement des shapes via une proc&#233;dure : pour cela voil&#224; ce que j'ai fait index&#233; mon objet Shape1 :

- Dans ma  page principale :
Call CreerPalette(Nb, Shape1)

- Dans mon module :
Sub CreerPalette(ByVal Nb As Integer, ByRef MonShape As Shape)
    For i = 1 To Nb
        Call Load(MonShape(i))
        MonShape(i).Visible = True
    Next
End Sub

Je ne comprend pourquoi il me met le message :
"Type incompatible".
Merci de votre aide.
A+.

jpleroisse · Answer

Bonjour,
Essaie cette m&#233;thode

Private Sub Form_Load()
   Dim I
 'Positionne le contr&#244;le Shape
   Shape1(0).Move 0, 100, 700, 300
   ' Cr&#233;e les autres boutons.
   For I = 1 To 3
      ' Cr&#233;e un bouton.
      Load Shape1(I)
      ' Place et dimensionne le contr&#244;le
      Shape1(I).Move I * 700, 100, 600, 300
      Shape1(1).Top = 500
      ' Affiche le contr&#244;le
     Shape1(I).Visible = True
      Shape1(1).BorderColor = vbRed
      Shape1(0).Shape = 2
   Next I


End Sub

jpleroisse

jpleroisse · Answer

Re,
Place un contr&#244;le Shape sur ta Form et met son Index &#224; 0
jpleroisse

pcmanprogrammeur · Answer

Merci pour la r&#233;ponse.

Je sais d&#233;j&#224; faire ce que tu viens de me montrer.

Mais l&#224;, je souhaite vraiment cr&#233;er mes shapes via une proc&#233;dure se
trouvant dans un module. R&#233;f&#233;re-toi &#224; mon premier post qui montre que
je s&#233;pare le code de mon "Form1" qui appelle la proc&#233;dure et celui du
"Module" qui contient la proc&#233;dure.

Si tu as une solution ou que quelqu'un comprend bien ce que je souhaite, merci pour votre solution!!!

A bient&#244;t.

jpleroisse · Answer

Bonjour,
Rien ne t'emp&#234;ches de placer cette proc&#233;dure dans un module et l'appeler depuis ta Form.
Dans un Module.

Public Sub Cr&#233;erShape()
   Dim I
 'Positionne le contr&#244;le Shape
   Form1.Shape1(0).Move 0, 100, 700, 300
   ' Cr&#233;e les autres shapes.
   For I = 1 To 3
      ' Cr&#233;e un bouton.
      Load Form1.Shape1(I)
      ' Place et dimensionne le contr&#244;le
      Form1.Shape1(I).Move I * 700, 100, 600, 300
      Form1.Shape1(1).Top = 500
      ' Affiche le contr&#244;le
     Form1.Shape1(I).Visible = True
      Form1.Shape1(1).BorderColor = vbRed
      Form1.Shape1(0).Shape = 2
   Next I
End Sub

'Dans le module de la Form.

Private Sub Form_Load()
Call Cr&#233;erShape
End Sub

jpleroisse

pcmanprogrammeur · Answer

Oui mais le truc est que je souhaite que l'objet "shape" soit en param&#232;tre dans la proc&#233;dure pour pouvoir l'utiliser ult&#233;rieument dans plusieurs feuilles.
Ainsi, ma proc&#233;dure pourra &#234;tre appel&#233;e de n'importe quelle feuille si je passe en param&#232;tre : Form1.Shape1 ou Form2.Shape1 ou Form3.Shape1 .....
J'esp&#232;re avoir &#233;t&#233; clair.
A bient&#244;t.
Merci pour ton aide.

pcmanprogrammeur · Answer

Bonjour!
Voil&#224; un petit moment que j'avais post&#233; ce message et j'ai de nouveau besoin de vous car &#224; l'&#233;poque j'avais cr&#233;&#233; ma proc&#233;dure de la fa&#231;on suivante dans un module:
sub ColorierShape(Cellules as Objet)
for i=0 to 9
   Cellules(i).backcolor=&HFF8080
next
endsub
Comme vous pouvez le voir dans ma proc&#233;dure, j'ai ind&#233;x&#233; mes shapes.

Dans mon programme principale, je faisais :
ColorierShape(MesCellules)

Maintenant, je souhaite modifier ma proc&#233;dure par :
sub ColorierShape(Cellules as Shape)
mais &#231;a ne marche pas car quand je met :
ColorierShape(MesCellules)
il me met l'erreur "Type incompatible"
Auriez-vous une id&#233;e de comment mettre un shape ind&#233;x&#233; en param&#232;tre et comment l'appeler?
Merci de votre r&#233;ponse.
A bient&#244;t.

Appeler un shape dans une procédure

6 réponses

Discussions similaires