Bonjour à tous,
J'ai un problème de code au niveau du formulaLocal.
En effet cette action ne veut pas accepter un objet string contenant la commande que je veux effectuer dans la case.
Le problème se situe à la dernière ligne avec le commande qui retourne bien le string voulu mais la formule qui ne l'accepte pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 For y = 11 To Derligne commande = "=SI(Notation_criteres!F" & y & ">Notation_criteres!Q" & total_lettre + 1 & ";" & Chr(34) & Unite(0) & Chr(34) For i = 1 To total_lettre - 2 commande = commande & ";SI(Notation_criteres!F" & y & ">Notation_criteres!Q" & total_lettre + 1 - i & ";" & Chr(34) & Unite(i) & Chr(34) Next i commande = commande & ";" & Chr(34) & Unite(total_lettre - 1) & Chr(34) & "))))" .Sheets("Lettre_critere").Cells(y, 7).FormulaLocal = commande Next y
Une solution ?
Merci d'avance.
Partager