Recherche d'une entrée dans combobox + position

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 582 fois - Téléchargée 77 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de naärdin

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.