Passage paramètres

Bonjour,

je souhaiterais en fait savoir si on peut passer en paramètres d'une procédure un label ou pas ? Si oui comment faire ?

J'ai tenté comme ça mais ça me génère une erreur "Type incompatible".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Active_Onglet(NumPage As Integer, NomOnglet As Label, NomOngletPrec As Label)   '''Sub Active_Onglet(NumPage As Integer, strOnglet As String, strNomOngletPrec As String) ''' Dim NomOnglet As Label ''' Dim NomOngletPrec As Label ''' ''' NomOnglet.Name = strOnglet ''' NomOngletPrec.Name = strNomOngletPrec   If MultiPage1.Pages(NumPage).Enabled = True Then MultiPage1.Value = 0 NomOnglet.ForeColor = &HFFFFFF   If MultiPage1.Pages(NumPage + 1).Enabled = True Then NomOngletPrec.ForeColor = &H80000015 Else NomOngletPrec.ForeColor = &H8000000B End If End If End Sub

---

et voici l'appel de la procedure

Code:

---

1 2 3 4 5

Private Sub lblReplyDirect_Click() 'Recup_Val_Info Active_Onglet 0, "lblReplyDirect", "lblInformation"   End Sub

---

Merci d'avance.

Bonjour,

je ne suis pas expert en VBA mais je pense avoir une idée sur l'origine de ton problème, j'espère que ça te donnera matière à réfléchir.

Dans tes déclarations pour ta procédure Active_Onglet tu as en paramètre un entier et 2 labels. Puis quand tu appelles cette procédure, tes paramètres sont un entier (jusque là tout va bien) et deux string !! Ca ne peut pas coller... Un label est de type Form. C'est un objet. Alors que tu appelles avec des chaines de caractères. Je pense que ton problème vient de là.

Cordialement,

Lyonel

bonjour,

hum oui je pense que ça viendrais de la mais le problème serait comment passer ce paramètre label lors de l'appel à la procédure ?

Code:

---

Active_Onglet 0, frmSaisie.lblReplyDirect.Name, frmSaisie.lblInformation.Name

---

ou

Code:

---

Active_Onglet 0, frmSaisie.lblReplyDirect, frmSaisie.lblInformation

---

ne fonctionne pas car donne la même erreur.

Ca peut paraite stupide comme question mais pourquoi cherches tu à passer des lables en paramètres lors de l'appel de ta procédure ? 8O

Parce que je dois le faire plusieurs fois (sur autant d'onglet qu'aura le contrôle multipage) donc éviter de reproduire le même code plusieurs fois juste en changeant le nom du label.
Je concède que ça peut paraitre inutile, voir stupide :?, de chercher absolument a faire ça ...

Enfin bon je vais peut être l'écrire autant de fois qu'il y aura de pages :cry:... mais si quelqu'un a une idée ça m'intéresse aussi.

bonjour,

Crée un userform1 + 1 label1

Code:

---

1 2 3 4 5 6 7 8 9 10

Function label(lab As Object) label = lab.Caption MsgBox label End Function   Sub essais() Dim d d = label(UserForm1.Label1) End Sub

---

Bonjour,

Par curiosité, quelle différence cela fait de mettre un objet au lieu de label en paramètre ?

J'ai finalement écrit plusieurs fois le code mais je vais tester ta méthode quand même.

Bonsoir Misha, peaceandloveman01, patbou,

On peut effectivement passer le Label en argument à la procédure en tant qu'Object, mais il doit être également possible de procéder ainsi :

Code:

---

Sub Active_Onglet(NumPage As Integer, NomOnglet As MSForms.Label...

---

Pour passer le Label (contrôle ActiveX) à la procédure, il suffit normalement de préciser le composant (la bibliothèque) dont il est issu : MSForms.

Cordialement,
Didier_mDF

bonjour,

Tu as 3 facon de passer en paramètre un objet label

Code:

---

1 2 3 4

Function label(lab As Control) Function label(lab As Object) Function label(lab As MSForms.label)

---

Apres c ' est suivant ce que tu veux en faire par la suite ....