Property Let TypeControl(oObjet As Object, NameContainer As String, NameControl As String, _ NamePropriete As String, ValuePropriete As Variant) ' DONNE UNE VALEUR A UNE PROPRIETE A L'ENSEMBLE D'UN TYPE DE CONTROLE Dim cTypeControl As Control For Each cTypeControl In oObjet.Controls If StrComp(TypeName(cTypeControl), NameControl, vbTextCompare) = 0 Then If NameContainer = vbNullString Then CallByName cTypeControl, NamePropriete, VbLet, ValuePropriete Else On Error Resume Next If StrComp(cTypeControl.Container, NameContainer, vbTextCompare) = 0 Then If Err = 0 Then CallByName cTypeControl, NamePropriete, VbLet, ValuePropriete End If End If End If Next Set cTypeControl = Nothing End Property
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.