Déterminer une plage de données selon un critère.

[apt]

Bonjour,

J'aimerais savoir comment déterminer une plage de données dans la colonne B avec le début et la fin de cette plage selon un critère donné dans la colonne A ?
Par exemple :

Si valeur1 = critere alors Maplage = 'cette plage commence à ' DebutPlg ' et se termine à ' FinPlg'

ensuite j'aimerais savoir quel est le test qui m'informe si cette valeur1 donnée est le debut ou la fin de cette plage ?

Merci.

 

[apt]

j'ai pu adopyé ce code :

Private Sub testvaleur(Val As Integer)
    Dim Debut, Fin
    ctr = Application.Match(Val * 1, Range('A:A'), 0)
    If IsNumeric(ctr) Then
    Debut = Range('B2')(ctr, 1).Value 'Valeur de la 2eme Col qui corresponde
    'et puis on doit continuer pour trouver la derniere occurence
    Fin = Range('B2')(ctr + 7, 1).Value
    MsgBox 'La valeur ' & Val & ' se trouve dans la plage de ' & Debut & ' au ' & Fin
    End If
End Sub

mais voila au lieu de me donner cette phrase :

La valeur 14 se trouve dans la plage de 01-04-06 au 07-04-06

dans les données suivantes :

13 28-03-06
13 29-03-06
13 30-03-06
13 31-03-06
14 01-04-06
14 02-04-06
14 03-04-06
14 03-04-06
14 05-04-06
14 06-04-06
14 07-04-06
15 08-04-06
15 09-04-06
15 10-04-06

elle j'ai :

La valeur 14 se trouve dans la plage de 02-04-06 au 08-04-06

Ou est le problème ?

Merci.