Bonjour,

Sur une feuille excel, j'ai des valeurs dans 2 colonnes (A et B)

La colonne A correspond à des articles et la colonne B correspond à des quantités. Dans la colonne A je peux avoir plusieurs fois le même article.

Je souhaite dans la colonne G copier les articles et mettre ensemble ce qui sont identiques et dans la colonne H avoir la somme des articles identiques.

Voici le début de code que j'ai mais je bloque au second If :

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
Sub concatenercai()
 
Dim cai As Range
Dim conc
 
For Each cai In Sheets("feuil2").Range("A:A")
 
    If cai <> "" Then
conc = cai.Value
    If conc <> Range("G:G") Then
cai.Copy ActiveSheet.Columns("G").Cells(Rows.Count, 1).End(xlUp)(2)
    End If
    End If
 
Next cai
 
End Sub