Total

Bonjour,

Je voudrais améliorer un calcul sans passer par des fonctions, j'ai commencé une macro et je suis complètement enlisé

Si quelqu'un peut me donner un coup de "macro"

Salut,

Tien tien ca me rappel quelque chose.

Et ca fonctionnait à l'époque!!

Essai comme ca:
Sub total()

Dim Cpt As Integer
Dim Recherche
Dim A As Worksheet
Dim B As Worksheet
Dim Lig As Integer

Set A = Sheets("Feuil1")
Set B = Sheets("Feuil2")

B.Range("B2:B" & B.Range("A65536").End(xlUp).Row).ClearContents

For Cpt = 2 To A.Range("A65536").End(xlUp).Row
Set Recherche = B.Range("A2:A" & B.Range("A65536").End(xlUp).Row).Find(what:=A.Rang e("A" & Cpt))
If Not Recherche Is Nothing Then
Lig = Recherche.Row
B.Range("B" & Lig) = A.Range("B" & Cpt) + B.Range("B" & Lig)
End If
Next
End Sub



@+ Minick