Cette fonction permet de checker une combobox à la recherche d'une entrée spécifique et renvoit 'True' si trouvée. En +, le paramètre Prm_I_Pos avec la position dans la combobox est renseigné toujours si trouvée.
Source / Exemple :
Public Function InCmb(ByVal Prm_C_Combo As ComboBox, ByVal Prm_S_MatchString As String, Optional ByRef Ret_I_PosFound As Integer) As Boolean
Dim I_Bcl As Integer
On Error GoTo InCmb_Err
For I_Bcl = 0 To Prm_C_Combo.ListCount - 1
If (UCase(Prm_C_Combo.List(I_Bcl)) = UCase(Trim(Prm_S_MatchString))) Then
InCmb = True
Ret_I_Pos = I_Bcl
Exit Function
End If
Next I_Bcl
InCmb = False
Exit Function
InCmb_Err:
Call MsgBox("Erreur n° " & Err.Number & vbCrLf & "Description : " & Err.Description)
End Function
Conclusion :
Utilisation :
Dim I_Pos As Integer
If(InCmb(Combo1, "machaineatrouver",I_Pos)) Then
' Positionnement sur l'entrée
Combo1.ListIndex = I_Pos
End If
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.