Chercher un mot ou une partie d'un mot dans une colonne d'une feuille excel

Commenter

Contenu du snippet 

Public Function getWordAdress(ByVal sExpression As String, ByVal sColumnLetter As String, Optional ByVal bPartial As Boolean = False,  Optional ByVal bSelectResult As Boolean = False,  Optional vsSheetName  As Variant) As Integer
'   sExpression      mot(s) ou partie de mot à chercher
'    sColumnLetter   lettre de la colonne dans laquelle chercher
'   bPartial        choix sur le mot comlet ou partie du  mot
'   bSelectResult   sélectionner la cellule de  la première occurence trouvée
'   vsSheetName      nom de la feuille dans laquelle cherche, celle active par défaut
'   RETURN          numéro de la ligne de la première occurence  trouvée
    Dim iColStop    As Integer
    Dim i           As Integer
    
    'selection  feuille
    If Not IsMissing(vsSheetName) Then Sheets(vsSheetName).Select
    
    'dernière cellule
    iColStop = Range(sColumnLetter & "65536").End(xlUp).Row
    
    If bPartial Then
        For i = 1 To iColStop
            If Cells(i, sColumnLetter) Like "*" & sExpression & "*" Then
                getWordAdress = i
                If bSelectResult Then Cells(i,  sColumnLetter).Select
                Exit For
            End If
        Next i
    Else
        For i = 1 To iColStop
            If Cells(i, sColumnLetter) = sExpression Then
                getWordAdress = i
                If bSelectResult Then Cells(i,  sColumnLetter).Select
                Exit For
            End If
        Next i
    End If
End Function

Compatibilité : VBA

A voir également

S'inscrire maintenant

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.

Du même auteur (PCPT)