XL 2010 {RESOLU} Problème Fonction CountA

[Philo]

Bonjour le forum

petit problème avec ma function.CountA dans le code de mon UserForm

fx = TextBox1 ":" & "CountA(" & TextBox1 & ") &" & """ PARTICIPANTS"""

je n'arrive pas a trouver mon erreur

merci de votre aide

Amicalement

 

[thebenoit59]

Bonjour Philo.

Je ne comprends pas à quoi va servir ta formule.
Peux-tu détailler ?

 

[Philo]

Bonjour thebenoit59
ma formule va me servir a compter les participants
c'est a dire dans mon tableau j'ai une formule( ="LeClub: " & NBVAL(LeClub) & " PARTICIPANTS")
mais cette formule je voudrais la mettre en VBA car mon tableau au départ sera vide,
je rajoute un club avec le bouton ajouter club je renseigne le TextBox et quand je VALIDE
et quand je rentre un coureur c'est a dire le Nom Prenom et dans la colonne E le club je voudrais que sa me dise combien j'ai de participants

ps au départ le fichier et vide j'ai 3 ligne de masquer c'est pour cela que je fait ajouter club

j’espère que je suis clair des mes explication

amicalement

 

[thebenoit59]

Peux-tu joindre le fichier avec des lignes remplies et inscrire le résultat souhaité en dur ?
Je ne comprends pas le but final.

 

[Philo]

Voila le fichier
avec la gestion du nom du club dans le gestionnaire de nom
chose que la macro ne fait pas encore

 

[thebenoit59]

Je te propose une solution différente que de travailler avec une plage nommée.

Range("E" & bas).FormulaR1C1Local = "=""LeClub: "" & NBVAL(L(1)C:L(2)C) & "" PARTICIPANTS"""

La fonction NBVal englobera de la ligne en-dessous à la ligne grisée.
Quand tu ajouteras des lignes entre deux la fonction restera cohérente.
A tester.

 

[Philo]

Range("E" & bas).FormulaR1C1Local = "=""LeClub: "" & NBVAL(L(1)C:L(2)C) & "" PARTICIPANTS"""
est ce on peut remplacer LeClub par le nom de mon textbox c'est la ou j'ai un problème

 

[thebenoit59]

Tu peux essayer ça :

leclub = Chr(34) & TextBox1.Value & ": " & Chr(34)
Range("E" & bas).FormulaR1C1Local = "=" & leclub & " & NBVAL(L(1)C:L(2)C) & "" PARTICIPANTS"""

 

[Philo]

Merci thebenoit59
avec ton code j'ai trouver la solution