Somme avec condition

Private O As Worksheet 'déclare la variable O (Onglet)
Private TV As Variant 'déclare la varaible TV (Tableau des Valeurs)

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim I As Integer 'déclare la variable I (Incrément)

Set O = Worksheets("Feuil2") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
    D(TV(I, 1)) = "" 'alimente le dictionnaire D avec les données en colonne 1
Next I 'prochaine ligne de la boucle
Me.ComboBox1.List = D.keys 'alimente la ComboBox1 avec la listes des éléments du dictionnaire D sans doublon
End Sub

Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
Dim I As Integer 'déclare la variable I (Incrément)

Me.TextBox1.Value = "" 'vide la TextBox1
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
    'si la donnée ligne I en colonne 1 de TV est égale à la valeur de la ComboBox1, définit la variable T
    'somme d'elle-même avec la donnée ligne I colonne 2 de TV, convertie en entier
    If TV(I, 1) = Me.ComboBox1.Value Then T = T + CInt(TV(I, 2))
Next I 'prochaine ligne de la boucle
Me.TextBox1.Value = T 'renvoie la variable T (la somme) dans la TextBox1
End Sub

Set O = Worksheets(CByte(ComboBox1.Value)) 

Private O As Worksheet 'déclare la variable O (Onglet)
Private TV As Variant 'déclare la varaible TV (Tableau des Valeurs)

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim k As Integer
For k = 1 To Sheets.Count
    ComboBox2.AddItem (k)
Next k
End Sub

Private Sub ComboBox2_Change()
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim I As Integer 'déclare la variable I (Incrément)

Me.ComboBox1.Clear 'vide la ComboBox1
Me.TextBox1.Value = "" 'efface la TextBox1
Set O = Worksheets(CByte(ComboBox2.Value)) 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
Set D = CreateObject("Scripting.Dictionary") 'définit le dictionnaire D
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
    D(TV(I, 1)) = "" 'alimente le dictionnaire D avec les données en colonne 1
Next I 'prochaine ligne de la boucle
Me.ComboBox1.List = D.keys 'alimente la ComboBox1 avec la listes des éléments du dictionnaire D sans doublon
End Sub


Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
Dim I As Integer 'déclare la variable I (Incrément)

Me.TextBox1.Value = "" 'vide la TextBox1
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
    'si la donnée ligne I en colonne 1 de TV est égale à la valeur de la ComboBox1, définit la variable T
    'somme d'elle-même avec la donnée ligne I colonne 2 de TV, convertie en entier
    If TV(I, 1) = Me.ComboBox1.Value Then T = T + CInt(TV(I, 6))
Next I 'prochaine ligne de la boucle
Me.TextBox1.Value = T 'renvoie la variable T (la somme) dans la TextBox1
End Sub