VBA Excel : Identifier la 4ème lettre d'un codeRésolu

Question

Bonjour à tous,
Je ne parviens pas à accéder au forum alors je ne sais pas si ma question existe ou non.
Est-ce qu'il est possible sous VBA (Excel) de parcourir une colonne et de compter tous les codes dont la 4ème lettre est un C (par exemple)
Exemple : U65V66T
                    J89X78P
                    L46CB71 ----> ici la réponse sera 1 car il y a un seul code dans la colonne avec un C en 4ème position
Merci d'avance pour vos propositions

KMIKZ

Renfield · Accepted Answer

Public Function CountItemsInColumns(ByVal voSheet As Worksheet, ByVal vnColumn As Long, ByVal vnCharPos As Long, ByRef vsFind As String, Optional vnStartRow As Long = 1) As Long
Dim i As Long
Dim nLength As Long
    nLength = Len(vsFind)
    For i = vnStartRow To voSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
        If Mid$(voSheet.Cells(i, vnColumn).Text, vnCharPos, nLength) = vsFind Then
            CountItemsInColumns = CountItemsInColumns + 1
        End If
    Next i
End Function

Sub test()
    MsgBox CountItemsInColumns(ActiveSheet, 1, 4, "C")
End Sub

KMIKZ · Answer

Merci beaucoup.
J'ai mis un peu de temps avant de conprendre.
Mais j'ai réussi à exploiter ce programme pour le faire fonctionner dans ma macro vba

KMIKZ

VBA Excel : Identifier la 4ème lettre d'un code

2 réponses

Votre réponse

Discussions similaires