Bonjour à tous,
Je suis nouveau sur le site et dans ce forum. J'ai pu apprécier la qualité de ce site et, comme je suis en difficulté de rédaction VBA, je viens poser ma question :
Mon fichier traite de gens qui viennent toutes les semaines pour obtenir un service. Toutes les semaines, nous enregistrons leur passage, cela toute l'année.
J'ai donc créer avec l'outil "tableau" 52 colonnes dans lesquels, pour chacun des bénéficiaires, je note leur passage. En fin de journée, nous devons éditer une feuille qui exprime les résultats.
J'ai donc fait une macro qui est (reproduction partielle) :
Sub essai1()
' essai1 Macro
'En C2, l'utilisateur donne le N° de la semaine (de 1 à 52)
'En C3, je fais une concaténation du mot "Sem_" et de la valeur de C2
'j'obtiens en C3 "Sem_1" qui est un nom déclaré dans le gestionnaire de nom qui correspond à la colonne N dans mon tableau, soit :
Range("C3").Value = "Sem_" & Range("C2").Value
Range("A18").Select 'cellule ou doit apparaitre mon résultat
ActiveCell.FormulaR1C1 = "=SUMPRODUCT(([C3]<>"""")*(Profil=""Couple+enf.""))"
End Sub
Il y a blocage au niveau de la ligne "ActiveCell.Formulat.....
Remarque : si, dans la macro, je remplace directement [C3] par "Sem_1", j'obtiens bien le résultat recherché. Evidemment je ne peux pas le faire pour 52 colonnes!
Pourriez vous m'aider ? Je ne suis pas assez ferru de VBA, Je n'ai pas trouvé de réponse (en clair!) dans le forum.
Merci par avance.