Aide complémentaire pour comptage Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
p
philturf
Jeune membre
Jeune membre
Messages : 39
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2013 fr

Message par philturf » 3 mars 2020, 10:15

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
comptage.xlsx
(30.64 Kio) Téléchargé 7 fois
Avatar du membre
Patty5046
Membre impliqué
Membre impliqué
Messages : 1'335
Appréciations reçues : 135
Inscrit le : 2 février 2016
Version d'Excel : 2016

Message par Patty5046 » 3 mars 2020, 11:55

Bonjour

Tu insères un module et tu colles le code

Bye
p
philturf
Jeune membre
Jeune membre
Messages : 39
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2013 fr

Message par philturf » 3 mars 2020, 12:32

Bonjour Patty5046,

Merci
J'ai inséré dans un module et le code ne fonctionne pas ou je ne sais pas le faire fonctionner.
Avatar du membre
Patty5046
Membre impliqué
Membre impliqué
Messages : 1'335
Appréciations reçues : 135
Inscrit le : 2 février 2016
Version d'Excel : 2016

Message par Patty5046 » 3 mars 2020, 12:58

RE

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

Dis-moi
p
philturf
Jeune membre
Jeune membre
Messages : 39
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2013 fr

Message par philturf » 3 mars 2020, 13:15

impossible pour moi
Avatar du membre
Patty5046
Membre impliqué
Membre impliqué
Messages : 1'335
Appréciations reçues : 135
Inscrit le : 2 février 2016
Version d'Excel : 2016

Message par Patty5046 » 3 mars 2020, 13:19

Re

Qu'est-ce qui est impossible ??

A+
p
philturf
Jeune membre
Jeune membre
Messages : 39
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2013 fr

Message par philturf » 3 mars 2020, 13:24

Je ne sais pas faire tout simplement
Merci pour ton aide
Avatar du membre
Patty5046
Membre impliqué
Membre impliqué
Messages : 1'335
Appréciations reçues : 135
Inscrit le : 2 février 2016
Version d'Excel : 2016

Message par Patty5046 » 3 mars 2020, 13:37

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+
Avatar du membre
Patty5046
Membre impliqué
Membre impliqué
Messages : 1'335
Appréciations reçues : 135
Inscrit le : 2 février 2016
Version d'Excel : 2016

Message par Patty5046 » 3 mars 2020, 13:39

Re...

Vois ce fichier
comptage.xlsm
(29.07 Kio) Téléchargé 5 fois
Bon courage
1 membre du forum aime ce message.
p
philturf
Jeune membre
Jeune membre
Messages : 39
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2013 fr

Message par philturf » 3 mars 2020, 13:51

Merci Patty5046,
Je viens de le charger et si je modifie une donnée le tableau n'évolue pas.
Philturf
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Macro complémentaire
    par VermeulenP » 4 mai 2020, 11:57 » dans Excel - VBA
    2 Réponses
    40 Vues
    Dernier message par thev
    4 mai 2020, 18:27
  • Macro Complémentaire
    par Arakis » 12 août 2018, 20:11 » dans Excel - VBA
    6 Réponses
    216 Vues
    Dernier message par Arakis
    13 août 2018, 20:26
  • Installation complémentaire
    par cfn3cfn » 23 décembre 2014, 06:37 » dans Excel - VBA
    8 Réponses
    841 Vues
    Dernier message par cfn3cfn
    26 décembre 2014, 04:56
  • Macro complémentaire
    par al87 » 13 janvier 2020, 07:26 » dans Excel - VBA
    1 Réponses
    38 Vues
    Dernier message par al87
    13 janvier 2020, 08:25
  • comptage et sous comptage
    par nando64 » 7 janvier 2017, 17:07 » dans Excel - VBA
    3 Réponses
    209 Vues
    Dernier message par ddetp88
    8 janvier 2017, 19:17
  • Critère complémentaire de sélection
    par bruape » 28 avril 2018, 21:51 » dans Excel - VBA
    7 Réponses
    146 Vues
    Dernier message par DjiDji59430
    30 avril 2018, 14:15