Tous les controles d'un frame sauf les labels

Hervé

XLDnaute Barbatruc

• 6 Octobre 2006

• #2

Re : Tous les controles d'un frame sauf les labels

bonjour

a essayer :

Code:

Dim ctrl As Control

With Me.Frame1
    For Each ctrl In .Controls
        ctrl.Enabled = Left(ctrl.Name, 5) = "Label"
    Next ctrl
End With

salut

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Octobre 2006

• #3

Re : Tous les controles d'un frame sauf les labels

bonjour zeltron
Salut Hervé

Comme les carabiniers !!

Code:

Private Sub UserForm_Initialize()
For Each Control In UserForm1.Controls
   If Left(Control.Name, 5) <> "Label" Then
     Control.Enabled = False
   End If
Next Control
End Sub

 

Vote positif 0 Vote négatif

zeltron

XLDnaute Occasionnel

• 6 Octobre 2006

• #4

Re : Tous les controles d'un frame sauf les labels

Merci Hervé pour ta réponse rapide, ca marche impec.

Cependant peux tu m'expliquer si tu as le temps la partie de ton code:
Left(ctrl.Name, 5) = "Label" ;afin que je puisse comprendre, car là je ne vois pas comment cela arrive à indiquer de mettre les control à enabled = false, et de plus a quoi correspond le "5"?

Merci d'avance

Zeltron

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 6 Octobre 2006

• #5

Re : Tous les controles d'un frame sauf les labels

re zeltron, salut pierrejean

Ce type de syntaxe ce lit de droite à gauche :

Left(ctrl.Name, 5) = "Label" renvoi VRAI ou FAUX suivant les 5 premieres lettres du nom du controle.

donc si le nom ne commence pas par "label" le code renvoi faux à ctrl.enabled.

pierrejean te propose une autre solution, identique dans son raisonnement à la mienne.

si tu as changé les noms de tes controles, tu peux essayer comme ceci :

Code:

Dim ctrl As Control

With Me.Frame1
    For Each ctrl In .Controls
        ctrl.Enabled = TypeName(ctrl) = "Label"
    Next ctrl
End With

salut

 

Vote positif 0 Vote négatif

zeltron

XLDnaute Occasionnel

• 6 Octobre 2006

• #6

Re : Tous les controles d'un frame sauf les labels

Merci Hervé pour tes explications on ne peut + précises. Merci Pierre Jean pour cette autre type de code.

1 question; 3 solutions différentes, on ne peut rêver mieux pour s'améliorer efficacement en VBA!!

Merci encore à vous deux.
Bonne journée.

Zeltron

 

Vote positif 0 Vote négatif