Bonjour à tous.

Aujourd'hui, je dois comptabiliser un mot dans une ligne (de la colonne 38 à la colonne 410). J'ai écris ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Public Function JourPris(Jour As String) As Integer
    JourDebut = DateDiff("d", "1/1/17", Now) + 38
    For a = 38 To JourDebut
        If ActiveSheet.Cells(ActiveCell.Row, a).Value = Jour Then ComptJour = ComptJour + 1
    Next
    JourPris = ComptJour
End Function
Mais évidement, ça ne fonctionne pas, c'est le ActiveCell.Row qui pose problème, j'ai donc pensé à cette "formule" : =JourPris(AN43:PH43;"RTT").
Mais je ne sais pas comment parcourir une plage (AN43 à PH43) en VBA.

Si quelqu'un a la solution, un conseil, une astuce, un lien... Je suis preneur...