Re : Centraliser des données (Rapport) par macro
Bonsoir Le Forum,
Voici la solution que j'ai mise en place :
Sub SOUSTb()
With Worksheets("SYNTH")
...
K = K + Application.CountIf(Plage.Columns(1), Plage.Columns(1).Cells(I, 1))
If Cells(J, 5) = "" Then Exit Sub
J = J + 1
.Cells(J, 5) = Plage.Columns(1).Cells(I, 1)
puis dans
Sub Centalisateur()
...
SOUSTb
Range("A2").Select
...
Merci à toi Bebere pour ton intervention, mais ta proposition ne fonctionnait pas bien. Par contre je vais étudier le code car il est très intéressant.
Néné06, j'ai expérimenté ta solution ; ça bloquait.
Il a suffit que je déplace légèrement ta ligne complémentaire et cette fois-là ça fonctionne.
En supplément, une fois sorti avec Exit Sub de la macro 2, il faut toutefois forcer un placement, en A2 par exemple, dans la macro générale, et tout devient limpide dans ce cas.
Mission accomplie donc avec le remède de Néné06 : merci à vous deux.
Je suis ravi de vos propositions.
Cordialement,
Webperegrino