Pb VBA FormulaRC1

Le
Jc
Bonjour,
J'essaie au travers d'une boucle for each , d'insérer une formule ou une
autre en fonction d'un critère donné.
La macro s'oriente correctement dans son fonctionnement.
Mon problème se situe au moment de la mise en place de la formule

Sub ChangementDeNotation()
Select Case
ActiveSheet.Shapes("ZoneTexteTypePerf").TextFrame2.TextRange.Characters.Text
Case "Noté par Age et Sexe"
For Each Cellul In Range("Equiv_Catégorie")


'""""""""""""""""""""""""""""""""""""""""""""""""""""
A la ligne suivante, le débogueur m'informe de l'erreur 1004
'""""""""""""""""""""""""""""""""""""""""""""""""""""
Cellul.FormulaR1C1 =
"=""Perf_""&LEFT(Classe,1)&""_""&Sexe"

'""""""""""""""""""""""""""""""""""""""""""""""""""""
'""""""""""""""""""""""""""""""""""""""""""""""""""""

Next Cellul
ShapeTexte = "Noté par Niveau de Classe"
Case "Noté par Niveau de Classe"
For Each Cellul In Range("Equiv_Catégorie")
'""""""""""""""""""""""""""""""""""""""""""""""""""""
La formule suivante ne pose pas de problème
'""""""""""""""""""""""""""""""""""""""""""""""""""""
Cellul.FormulaR1C1 = "=""_"" & Age & Sexe"
Next Cellul
ShapeTexte = "Noté par Age et Sexe"
End Select
End Sub

Or lorsque j'enregistre une macro sur une cellule quelconque la formule ad
'hoc, il m'enregistre ce qui suit
Je précise que Classe et Sexe sont des plages nommées.

Sub Macro13()
ActiveCell.FormulaR1C1 = "=""Perf_""&LEFT(Classe,1)&""_""&Sexe"
Range("Z7").Select
End Sub

Une idée ?
Merci d'avance
___________________________________________
A+
Jc
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jc
Le #25770452
Bonjour,
Trouvé

Cellul.FormulaR1C1 = "=""Perf_""&GAUCHE(Classe;1)&""_""&Sexe"

C'est la ,(virgule) qui m'a mis sur le chemin.
En la remplaçant par ; (point virgule), j'ai obtenu un résultat.
Et la facile, on change LEFT par GAUCHE

___________________________________________
A+
Jc
Publicité
Poster une réponse
Anonyme