Re : Recherche d'un mot et addition des répétitons sur plage de valeurs
C'est bon, j'ai réussi a le faire tourner, il manquait l'itération, mais je sais pourquoi les valeurs ne sont pas les bonnes.
La macro, ne fait pas la différence entre entry et exit.
elle les additionne directement
Voila la macro modifier, mais il reste a déterminer comment prendre en compte uniquement les entry
Sub entry()
Dim i As Variant
Dim g As Range, x%
'Saisie du nombre d'itération de la boucle
Do
i = InputBox("Indiquez le nombre de valeurs à caluler de 1 à 256", "Nombre de valeurs", 90)
Loop Until (Val(i) > 0) And (Val(i) < 257)
Range("G5:G" & Range("G65536").End(xlUp).Row).Select
Selection.ClearContents
For k = 5 To Range("A65536").End(xlUp).Row
For Each g In Range("D5
" & i + 4)
If Cells(k, 1).Value > Range("D" & g.Row).Value Then
If Cells(k, 1).Value < Range("E" & g.Row).Value Then
Cells(g.Row, 7).Value = Cells(g.Row, 7).Value + 1
Exit For
End If
End If
Next g
Next k
End Sub