Salut,
Voici les 2 formules qui marchent suivantes :
FORMULE 1:
Et:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 For iCaseJour = 0 To 5 gFeuilleHebSem.Cells(j, 6 + 2 * iCaseJour).FormulaLocal = "='Outil.xls'!CalculNbAgentParTrancheHebdo(" & j - NbLigGH + 1 & ";" & Retour_Col(6 + iCaseJour * 2) & NBLigTH + 1 & ":" & Retour_Col(7 + iCaseJour * 2) & NbLigGH - 2 & ")" Next iCaseJour
FORMULE 2:
Ce que je voudrais faire, c'est avoir au niveau d'une même cellule la chose suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 For M = 0 To 5 gFeuilleHebSem.Range(Retour_Col(2 * M + 6) & j & ":" & Retour_Col(2 * M + 7) & j).Merge gFeuilleHebSem.Cells(j, 2 * M + 6).FormulaR1C1 = "=P!R" & LigP & "C[" & 2 - M & "]" Next M
FORMULE 1 "tiret" FORMULE 2.
J'ai fais la chose suivante, mais ça ne marche pas:
Est-ce que qqun peut m'aider please ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 For iCaseJour = 0 To 5 gFeuilleHebSem.Cells(j, 6 + 2 * iCaseJour).FormulaLocal = "='Outil.xls'!CalculNbAgentParTrancheHebdo(" & j - NbLigGH + 1 & ";" & Retour_Col(6 + iCaseJour * 2) & NBLigTH + 1 & ":" & Retour_Col(7 + iCaseJour * 2) & NbLigGH - 2 & ")" _ & "-" & "=P!R" & LigP & "C[" & 2 - iCaseJour & "]" Next iCaseJour
Thx !
Mila![]()
Partager