Code VBA qui s'arrête un peu tot

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:

---

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

Une fonction générique qui a comme paramètre le code et qui donne directement

C'est identique à la formule Excel

Code:

---

=SOMMEPROD((C2:C100=413000)*(D2:D100))

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Function CalculCOUPON(ByVal Num As String) As Double Dim LastLig As Long Dim Frml As String   With Worksheets("Valo RBC Dexia") LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row Frml = "=SUMPRODUCT(('" & .Name & "'!C2:C" & LastLig & "=" & CStr(Num) & ")*('" & .Name & "'!D2:D" & LastLig & "))" End With CalculCOUPON = Evaluate(Frml) End Function

---

Cette fonction est appelée comme ceci

Code:

---

1 2 3 4

Sub Test()   MsgBox CalculCOUPON(413000) End Sub

---

Salut Merci de ta réponse, mais ça ne marche pas ce que tu m'as proposé ! En plus dans ta fonction tu rentres un paramètre (Num) alors que pour moi je ne doit rien rentrer du tout ,c'est la fonction qui cherche d'elle même

Sinon j'ai fais un deuxième code , qui affiche bien ce que je veux en message box (il affiche le bon résultat) mais lorsque je l'éxecute sous Excel ou que je le met dans un code vba il bug :( et je ne comprend pas pourquoi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Function CalculCoupon0() Sheets("Valo RBC Dexia").Select Dim Result As Double Result = 0   Cells.Select Range("G1").Activate   Do While ActiveCell.Value <> 413000 ActiveCell.Offset(1, 0).Select Loop   Do While ActiveCell.Value = 413000 Result = ActiveCell.Offset(0, 8).Value + Result ActiveCell.Offset(1, 0).Select Loop     Do While (ActiveCell.Value <> "413000" And Not IsEmpty(ActiveCell)) ActiveCell.Offset(1, 0).Select   Do While ActiveCell.Value = "413000" Result = ActiveCell.Offset(0, 8).Value + Result ActiveCell.Offset(1, 0).Select Loop   Loop   ' Sheets("Valo Sophis").Select   ' Cells.Select ' Range("C1").Activate   MsgBox (Result)   CalculCoupon0 = Result     End Functio

---

n


Thx

J'ai donné un code plus général. Rien ne t'empêche de supprimer la paramètre Num et de l'entrer en dur dans le code.

Et si par hasard, demain tu chercherai les données pour un autre code?Tu vas le changer en dur dans le code?

Tu pourrais aussi en dure faire comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

Function CalculCOUPON() As Double Dim LastLig As Long Dim Frml As String   With Worksheets("Valo RBC Dexia") LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row Frml = "=SUMPRODUCT(('" & .Name & "'!C2:C" & LastLig & "=413000)*('" & .Name & "'!D2:D" & LastLig & "))" End With CalculCOUPON = Evaluate(Frml) End Function

---

Le code précédent et celui là, supposent que sur toute ta colonne D, à partir de la 2ème ligne tu n'as que des données numériques (sans texte).

Les codes comme tu peut le constater, cherche le code 413000 dans la colonne C et fait la somme des lignes de la colonne D.

A adapter


PS: Évites dans ton code les Select, Activemachin, boucles inutiles...
Enfin de compte, c'est une simple proposition testée que tu peux ignorer

Ok merci beaucoup