XL 2013 Message d'erreur

maval · 26 Juillet 2019

Bonjour

J'ai mon code comme ceci et j'ai un message d'erreur:
Erreur de compilation Sub ou Function non définie

Mon code

VB:

Private Sub UserForm_Initialize()

For i = 1 To 4
    Label(i).Visible = False
Next i

For i = 1 To 20
    TBx_(i).Visible = False
Next i

Me.Width = 425
Me.Height = 83

End Sub

Je vous remercie

max

Roland_M · 26 Juillet 2019

Bien le bonjour,

'si les noms des "Label" sont ainsi: Label1, Label2, ...
Private Sub UserForm_Initialize()
Dim Ctrls As Control
For Each Ctrls In Me.Controls
If Left(Ctrls.Name, 5) = "Label" Then Ctrls.Visible = False
Next
'ou bien, si tu veux sélectionner par numéro:
I = 0
For Each Ctrls In Me.Controls
I = I + 1
'ici tu devras rajouter un test si les nos conviennent ! à toi de voir !?
If Ctrls.Name = "Label" & Trim(I) Then Ctrls.Visible = False
Next

'tu fais pareil avec les autres contrôles

EDIT: ou en plus court comme notre ami Robert que je salut au passage !

Robert · 26 Juillet 2019

Bonjour le fil, bonjour le forum,

VB:

Private Sub UserForm_Initialize()
For i = 1 To 4
    Me.Controls("Label" & i).Visible = False
Next i
For i = 1 To 20
    Me.Controls("TBx_" & i).Visible = False
Next i
Me.Width = 425
Me.Height = 83
End Sub

maval · 26 Juillet 2019

Bonjour Roland, Robert

Je vous remercie Nickel

Max

XL 2013 Message d'erreur

maval

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires