Bonjour,
Bon je suis débutante en VBA et j'ai rencontré un problème, en fait je veux faire la somme d'une colonne sous une condition: si le nom de projet dans la 2éme colonne =combobox2.value alors je dois sommer sur toutes les valeurs correspondantes à ce projet(un projet peut se répéter plusieurs fois) et ces valeurs se trouvent dans la colonne V et je dois afficher la somme dans textbox1
j'ai essayé le code sous-dessous mais malheureusement ça marche pas,il me donne toujours une somme nulle!!
code:
Private Sub ComboBox2_Change()
Dim PlageDeRecherche As Range, sum As Double
Dim i As Integer, j As Integer
Dim Valeur_Cherchee As String
Valeur_Cherchee = InfosP.ComboBox2.Value
With Sheets("Feuil2")
'derniere cellule non vide colonne B
derlig = .Range("B" & Rows.Count).End(xlUp).Row
Set PlageDeRecherche = .Range("B1:B" & derlig)
'nombre de fois la valeur trouvee colonne B
Nb = Application.CountIf(PlageDeRecherche, Valeur_Cherchee)
If Nb > 0 Then
lig = 1
'boucle de recherche valeur 1
For Point = 1 To Nb
'ligne valeur 1
lig = .Columns(2).Find(Valeur_Cherchee, .Cells(lig, 2), , xlWhole).Row
Next
'test si valeur 2 meme ligne colonne A
sum = .Cells(lig, 2).Offset(0, 19).Value
For i = lig + 1 To 330
sum = sum + .Cells(lig, 2).Offset(0, 19).Value
TextBox1.Value = sum
Next
End If
