Bonjour un tous ...
Bon voila la situation. Pour etre claire je vais détailler vite fait
Disons que col A j'ai des noms de produits "c" et que col B j'ai des valeurs. Les mêmes nom sont répartie aléatoirement (ex: A1 - A15 - A20).
J'aimerais pouvoir additionner chacune des valeurs "d" correspondantes et renvoyer le resultats dans une autre cellule ... J'espère avoir été assez précis ! Je vous passe le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Application.ActiveCell
                        ActiveSheet.Cells.Find(Det1, LookAt:=xlWhole).Activate
                        NumCol = .Column
                        End With
                            Sheets(Det1).Activate
                            Do
                            a = a + 1
                            c.Offset(columnOffset:=10).Activate
                            Selection.Copy
                            Sheets("BILAN PERTE").Cells(NumLg, a).PasteSpecial (xlPasteValues)
                            d = c.Offset(columnOffset:=1).Value
                            res = d + c.Offset(d).Value 'ICI CA NE PASSE PAS'
                            Set c = Sheets(Det1).Cells.FindNext(c)
                            Loop While Not c Is Nothing And c.Address <> firstAddress
Mes variables sont toutes définies
Le code est un peu plus long et je pense que c'est pas nécessaire que vous l'ayez en entier. Mais si vous preferer je vous le donne.
Si vous trouver l'erreur ...
Merci pour le coup de