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