bonjour
jai des valeurs de colonne J jusque AC donc 20 colonnes
mais que sur la ligne 8
j'essaye humblement à mon niveau "ras de terre" additionner les valeurs de chaque cellule de colonne J jusque AC sur la ligne 8 uniquement , avec une constante de cellule
J17 ou j18
pas toujours facile de bien exprimer

bien sur sur il y a des erreurs
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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub CommandButton1_Click()
 
Dim j As Integer
Dim i As Integer
Dim un As Integer
Dim deux As Integer
' et on continue jusqu'à 20
 
 
For i = 10 To 29
 
    For j = 8 To Cells(8, i)
 
        If Cells(j, i) = Value and Cells(17, j) = Value Then
 
         Cells(j, i) +  Cells(17, j) 
 
        un = un + 1
 
 
ElseIf Cells(j, i) = Value and Cells(18, j) = Value Then
         Cells(j, i) +  Cells(18, j)  
 
        deux = deux + 1
 
        End If
    Next
 
Next
 
    Range("J33").Value = un
    Range("k33").Value = deux
 
'et on continue jusqu'à 20
 
End Sub
l'ensemble du tableau de résultat me convient