Traduisez ceci en VBA

Bonjour les amis jspr que vous allez bien

jspr que vous allez m'aider à traduire ceci en VBA

J'ai besoin de votre aide svp

si P(2)=0 ne rien faire

sinon

for i = 1 to P(2)

copier J(i+1) : K(i+1) (Colonne J et K)

coller J(i+1):K(i+1) dans AC(i+1)

end

si Q(2)=0 ne rien faire

sinon

for i = 1 to Q(2)

copier L(i+1) : M(i+1) (Colonne J et K)

coller L(i+1+P(2)):M(i+1) dans AC(i+1+P(2))

end

si O(2)=0 ne rien faire

sinon

for i = 1 to O(2)

copier H(i+1) : I(i+1) (Colonne J et K)

coller H(i+1+P(2)+Q(2)) : I(i+1) dans AC(i+1+P(2)+Q(2))

end

le fichier excel ci joint pour mieux comprendre la but de cette Macro

Merci a vous et bon dimanche

bonjour

je n'aime pas VBA, car je ne le pratique pas

ma suggestion : les colonnes de pointage. Solution éprouvée par les comptables depuis 500 ans !

voir le fichier

il y a des cellules SOMME pour sommer les pointages. On peut avoir une formule qui détecte la fin de chaque zone (tes zones de couelurs différentes) pour comprendre qu'il faut ou non faire une somme.

pour les max, il y a une fonction Excel .