With sur label

bernardrustrel · 2 Avril 2016

Bonjour
je voudrais pouvoir masquer certains "labels" d'un formulaire en utilisant WITH et END WITH mais je bloque, voici ce que je pensais faire:

Public Sub MasqLabel
With Form1
For I=11 to 15
with Label & I
.visible=false
end with
next I
End with

Bien entendu je peux arriver au résultat d'une autre manière, mais je préfèrerais celle ci.
merci à vous de me venir en aide

Cordialement
Bernard

mapomme · 2 Avril 2016

Re : With sur label

Bonjour bernardrustrel ,

Essayez:

VB:

Public Sub MasqLabel()
  With Form1
    For I = 11 To 15
      .Controls("Label" & I).Visible = False
    Next I
  End With
End Sub

ou si vous tenez à avoir deux With...End

VB:

Public Sub MasqLabel()
  With Form1
    With .Controls
      For I = 11 To 15
        .Item("Label" & I).Visible = False
      Next I
    End With
  End With
End Sub

bernardrustrel · 2 Avril 2016

Re : With sur label

Bonjour
Merci beaucoup, ca fonctionne et j'avais la solution à portée de main...
Merci encore
Cordialement
Bernard

With sur label

bernardrustrel

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

bernardrustrel

XLDnaute Occasionnel

Discussions similaires