Boucle et chiffre regulier

Bonjour à tous,

Étant débutant sur le VBA, j'essaie tant bien que mal à faire de mon mieux mais je bloque

Je souhaiterai avoir les nombres 1-2-3 dans la colonne G à la fin de la série de chiffre (Colonne D et E) (Comme dans la 2er photo ), et dans la colonne H, en face du 1, la formule =NB.SI($E$3:$E$9;1), en face du 2 =NB.SI($E$3:$E$9;2), et en face du 3 =NB.SI($E$3:$E$9;3). (1er photo )

Le but étant d'avoir le petit recap à la fin de chaque série

J'ai sais le faire manuellement, mais sous VBA je n'y arrive pas . Sachant que mon but est de l'appliquer à grande échelle.

Merci encore de votre futur aide, cette difficulté et tous mes essais ont échoué.

Vous êtes mon seul espoir

Hello,

une propostion à tester :

Der_L = Range("D65536").End(xlUp).Row
Set myRange = Range("E3:E" & Der_L)

Range("G" & Der_L ) = 3
Range("G" & Der_L ).offset(-1,0).value = 2
Range("G" & Der_L ).offset(-2,0).value =1

Range("H" & Der_L ).offset(-2,0) = Application.WorksheetFunction.CountIf(myRange, "1")
Range("H" & Der_L ).offset(-1,0) = Application.WorksheetFunction.CountIf(myRange, "2")
Range("H" & Der_L ) =Application.WorksheetFunction.CountIf(myRange, "3")

R@g

Bonjour et bienvenue sur le forum

Bonjour à tous

Une variante à tester.

Bye !