Total

[anber]

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"

 

[Minick]

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.Range("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