Concaténer 2 Formules dans une cellule

Version imprimable

Salut,

Voici les 2 formules qui marchent suivantes :
FORMULE 1:

Code:

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

Et:
FORMULE 2:

Code:

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

Ce que je voudrais faire, c'est avoir au niveau d'une même cellule la chose suivante:
FORMULE 1 "tiret" FORMULE 2.

J'ai fais la chose suivante, mais ça ne marche pas:

Code:

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

Est-ce que qqun peut m'aider please ?

Thx !

Mila :)

08/10/2007, 15h49
a.dequidt

Salut Mila,

Dis nous quelle erreur tu as...
08/10/2007, 16h17
C_Mila

Concaténer un string et un Integer [Précision]

Je n'ai pas de message d'erreur.
La cellule est vide.

Est-ce que tu as bien compris mon pb, car je ne sais pas si j'ai été très claire...?

En fait, ce que je veux, c'est:
- dans une même cellule, avoir: Formule1 "/" Formule2

Merchi

Mil...
08/10/2007, 19h04
alsimbad

tu places tout betement un & entre les deux
08/10/2007, 19h25
SCHOLLERF

Pas mieux

le & remplacant la fonction concatener d'excel, tu peux meme y ajouter un espace entre tes deux resultats de requêtes...

Formule1 & " " & Formule2
08/10/2007, 19h40
alsimbad

Citation:

Envoyé par C_mila

Ce que je voudrais faire, c'est avoir au niveau d'une même cellule la chose suivante:
FORMULE 1 "tiret" FORMULE 2.

donc pour ton cas çela devient

Code:

cells (.,.).formulalocal = "FORMULE 1" & "-" & "FORMULE 2"

:oops: c'est a dire exactement ce que tu a fait et qui devrait marcher. yauntruc.
ça y est j'ai trouvé je crois. ta premiere formule est en formulalocal et ta deuxieme en r1c1. je pense que tu devrais les synchroniser avant de les concatener
08/10/2007, 21h30
C_Mila

..

Oui c'est exactement ça.
La première un Formulalocal.
La deuxième un R1C1.

Euh....Comment qu'on fait pour les synchroniser ?

Mila..
08/10/2007, 22h56
alsimbad
en fait, je sais pas exactement, je n'ai pas étudier tes formules, mais tu les réécris, soit en reference absolue a1 b3 .. soit en reference relatieves, c'est le r1c1. le plus simple, tu te met en reference absolue, et tu enregistre la macro en récrivant ta formule ( en fait, tu devrais même réécrire les deux formules), ou une proche. ensuite tu réécris exactement ta formule dans le code en rajoutant tes variables exacte. bon courage
exemple
si ta premiere formule était en D4 (admetons)
A1 + (B2*3)
et ta deuxieme
r1c3 * 6

tu cré une formule en enregistreur de macro et reference absolue qui va te donner sous excel
Code:

1 2 = A1 + (B2*3) & (E7 *6)(decalage de 1 en colone et de 3 en ligne (ou le contraire ?)
et l'enregistreur te donnera le code exact

Code:

range(D4).formulalocal = "=A1 + (B2*3) & (E7 *6...).

a toi de rajouter ensuite le nom de tes variables pour avoir la formule exacte

:( RECTIFICATION

ça ne marche pas :( :( :(

Voici ce que j'ai fait:

Code:

1
2
3
4
5
6
 
    For iCaseJour = 0 To 5
 
        gFeuilleHebSem.Cells(j, 6 + 2 * iCaseJour).FormulaR1C1Local =  "'Outil.xls'!CalculNbAgentParTrancheHebdo(" & j - NbLigGH + 1 & ";" & Retour_Col(6 + iCaseJour * 2) & NBLigTH + 1 & ":" & Retour_Col(7 + iCaseJour * 2) & NbLigGH - 2 & ")"
 
    Next iCaseJour

Dans les cellules excel, ça m'affiche:
FAUX
FAUX
FAUX

Please, help me.

Thx a lot !

Mila...

J'ai essayé ce truc là, mais ça ne marche toujours pas..

Code:

1
2
3
4
5
6
7
8
9
10
11
 
 
    For iCaseJour = 0 To 5
 
        gFeuilleHebSem.Range(j, 6 + 2 * iCaseJour) = 
("='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

et que font ces parentheses noires qui ne sont pas à l'interieur des guillemets
Code:

1 2 3 4 5 ("='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 & "]")
la formule a écrire commence par un =, donc le guillemet est placé juste avant, il ne doit rien avoir d'autre a cet endroit
ps, ta premiere formule ne semble pas contenir de reference de cellule. donc tu dois voir si dans l'utilisation de ton code, tu agis par une reference relative ou absoulue(décalage). si c'est en décalage, tu peux essayer de rester en formula r1c1?.