C'est une petite fonction utile surtout quand on utlise CallByName.
Ca évite de spécifier l'objet directement, on peut maintenant le spécifier en string
Ex:
CallByName Cobj(LeNomDeTaFonction), blablabla...
Source / Exemple :
Private Function CObj(ByVal Name As String) As Object
Dim frm As Form, Ctrl As Control
For Each frm In Forms
If frm.Name = Name Then
Set CObj = frm
Exit Function
End If
For Each Ctrl In frm.Controls
If Ctrl.Name = Name Then
Set CObj = Ctrl
Exit Function
End If
Next Ctrl
Next frm
End Function
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.