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
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
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
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
