Bonjour à tous,
J'ai un tableau Excel qui contient un code "413000" (qui se répètent pleins de fois) . Mon but est de faire une rechercheV sur ce code et de récupérer un numéro à 8 colonne à coté , puis de faire la somme des tous ces numéros.

Le code que j'ai fais me permet de bien faire cela , cependant , si les code "413000" ne sont pas successifs mon code s'arrêtent.
Je ne trouve pas ce qu'il faut rajouter pour que même si la case suivant ne contient pas "413000" le code continue et qu'il s'arreteras que si il a parcouru le code "413000" et qu'il n'ya que des cases vides. (car si je lui dis direct de s'arrêter s'il y'a une case vide, il risque de s'arrêter avant même d'atteindre la case "413000" car en effet, il peut y avoir des cases vides avant le fameux code "41300" , mais il n'yaura aucune case vide e entre les "413000"

Voici mon codes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
   Function CalculCOUPON() As Double
    Dim c As Range
    Dim isCOUPON As Boolean
    CalculCOUPON = 0
    isCOUPON = False
 
      For Each c In Worksheets("Valo RBC Dexia").Range("C1:C" & Worksheets("Valo RBC Dexia").[C65000].End(xlUp).Row)
 
        If c.Value = "413000" Then
            isCOUPON = True
            CalculCOUPON = CalculCOUPON + c.Offset(0, 8).Value
        ElseIf isCOUPON Then
           Exit For
        End If
 
      Next c
 
 
    End Function
Je vous remercie vraiment beaucoup