Bonjour
Moi aussi j'y travail dessus en cherchant l'équivalent de la formule
=F2+SOMME.SI(feuil1!C2:C25;feuil2!C2;feuil1!F2:F25)-SOMME.SI(feuil1!C2:C25;feuil2!C2;feuil1!G2:G25)
j'ai essayé avec :
dim z,f as integer
dim qa, qe, qs, crit, solution as range
f = sheets("feuil1").range("B65536").end(xlup).row
set qa = sheets("feuil1").range("C2:c"&f)
set qe = sheets("feuil1").range("F2:F"&f)
set qs = sheets("feuil1").range("G2:G"&f)
z = 2
While Sheets("feuil2").Range("c" & z) <> ""
If Sheets("feuil2").Range("C" & z) = jcode.Value Then
Set crit = Sheets("feuil2").Range("C" & z) 'le critère de recherche
Set resf = Sheets("feuil2").Range("H" & z) 'ancien valeur disponible (critère)
Set solution = Sheets("feuil2").Range("H" & z) 'nouvel valeur après calcule
solution = resf + WorksheetFunction.SumIf(qa, cri, qe) - WorksheetFunction.SumIf(qa, crit, qs)
End If
z = z + 1
Wend
Mais ça n'écrit rien (sans message d'erreur)
Si, quelqu'un peut aider?
2S1
101 - Madagascar