Discussion :

[Misha]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub lblReplyDirect_Click()
    'Recup_Val_Info
        Active_Onglet 0, "lblReplyDirect", "lblInformation"
 
End Sub

Merci d'avance.

[peaceandloveman01]

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

[Misha]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Active_Onglet 0, frmSaisie.lblReplyDirect, frmSaisie.lblInformation

ne fonctionne pas car donne la même erreur.

[peaceandloveman01]

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

[Misha]

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 ... mais si quelqu'un a une idée ça m'intéresse aussi.

[patbou]

bonjour,

Crée un userform1 + 1 label1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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