Aide complémentaire pour comptage

Bonjour à tous,

Cette nuit 1h57 j'ai posté une demande et i20100 a répondu par l'écriture d'un code afin de le tester. Ne pouvant le joindre par MP et mes connaissances étant très limitées j'ai besoin d'aide pour le faire fonctionner.

Sub comptage()

Dim tb(15)

For Each c In Range("AQ98:AQ104,AXZ98:BC104")

x = Split(c, "-")

For i = LBound(x) To UBound(x)

If x(i) <> "" Then tb(x(i)) = tb(x(i)) + 1

Next

Next

[AM107].Resize(1, UBound(tb)) = tb

End Sub

Est-il possible SVP d'inclure dans le fichier comptage la macro écrite par i20100.

MERCI pour vos réponses.

Philturf

10comptage.xlsx (30.64 Ko)

Bonjour

Tu insères un module et tu colles le code

Bye

Bonjour Patty5046,

Merci

J'ai inséré dans un module et le code ne fonctionne pas ou je ne sais pas le faire fonctionner.

RE

Renomme peut-être ton fichier en xlsm qui accepte les macros

Dis-moi

impossible pour moi

Re

Qu'est-ce qui est impossible ??

A+

Je ne sais pas faire tout simplement

Merci pour ton aide

Bonjour philturf

Ton fichier a changé je pense , donc

Sub comptage()
Dim tb(15)
For Each c In Range("AS99:AS105,AZ99:BE105")
x = Split(c, "-")
For i = LBound(x) To UBound(x)
If x(i) <> "" Then tb(x(i)) = tb(x(i)) + 1
Next
Next
[AO108].Resize(1, UBound(tb)) = tb
End Sub

En fait si tes colonnes et lignes changent tout le temps tu ne pourras pas faire fonctionner la macro comme elle est

A+

Re...

Vois ce fichier

6comptage.xlsm (29.07 Ko)

Bon courage

Merci Patty5046,

Je viens de le charger et si je modifie une donnée le tableau n'évolue pas.

Philturf

ReBonjour

Je t'ai rajouté un bouton pour réactualiser à chaque changement

8comptage-v1.xlsm (31.65 Ko)

Cela te va ??

Merci Patty5056

C'est parfait, comment te remercier pour ton aide car je demande souvent de l'aide et j'ai pas la connaissance dans ce domaine.

Philturf

Bonjour

Enchantée pour toi et tu peux surtout remercier i20200 qui a fait la macro...je n'ai fait que t'aider à l'utiliser !!

Bonne journée

Merci à i20100 pour le code et à Patty5056 pour sa faisabilité, je vous souhaite une bonne fin de journée.

Philturf

Rechercher des sujets similaires à "aide complementaire comptage"