bjr à tous
j'ai un problème avec cette macro, elle ne fonctionne pas, au moment ou je l'éxectue un message d'erreur VBA s'affiche: "Erreur de compilation: End Sub attendu"
je ne sais pas comment la corrigée.
Sub Macro1()
'
' Macro1 Macro
'
Function Compteur(CE_IR As String, segment As String, semaine As String) As Integer
Dim compt As Integer
compt = 0
For i = 2 To Sheets("Données").Range("A65536").End(xlUp).Row
If Sheets("Données").Range("B" & i).Value = CE_IR And Sheets("Données").Range("C" & i).Value = segment And Right(Sheets("Données").Range("F" & i).Value, 2) = semaine Then
compt = compt + 1
End If
Next i
Compteur = compt
End Function
End Sub
Quelq'un aurait une idée à me suggérer.
Merci
cordialement
j'ai un problème avec cette macro, elle ne fonctionne pas, au moment ou je l'éxectue un message d'erreur VBA s'affiche: "Erreur de compilation: End Sub attendu"
je ne sais pas comment la corrigée.
Sub Macro1()
'
' Macro1 Macro
'
Function Compteur(CE_IR As String, segment As String, semaine As String) As Integer
Dim compt As Integer
compt = 0
For i = 2 To Sheets("Données").Range("A65536").End(xlUp).Row
If Sheets("Données").Range("B" & i).Value = CE_IR And Sheets("Données").Range("C" & i).Value = segment And Right(Sheets("Données").Range("F" & i).Value, 2) = semaine Then
compt = compt + 1
End If
Next i
Compteur = compt
End Function
End Sub
Quelq'un aurait une idée à me suggérer.
Merci
cordialement