XL 2016 Fractionner une formule - Résolu

BBdoc31

XLDnaute Nouveau
Bonjour,

j'essaye de fractionner une formule vba mais je bute avec les & et "

j'ai à l'origine
Code:
        Cells(X, Z).FormulaLocal = _
        "=SIERREUR(RECHERCHEV($A5;CFU!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;MFS!$A$4:$DA$150;" & n & ";FAUX);)"
que je voudrais afficher dans l'éditeur vba en
Code:
        Cells(X, Z).FormulaLocal = _
        "=SIERREUR(RECHERCHEV($A5;CFU!$A$4:$DA$150;" & n & ";FAUX);)"
        "+SIERREUR(RECHERCHEV($A5;MFS!$A$4:$DA$150;" & n & ";FAUX);)"

mais je ne sais pas ou placer correctement les & et les _ ou "
 

M12

XLDnaute Accro
Bonjour,

Je suppose un retour à la ligne pour la visibilité de la formule

Code:
Cells(X, Z).FormulaLocal = _
        "=SIERREUR(RECHERCHEV($A5;CFU!$A$4:$DA$150;" & n & ";FAUX);) _
        +SIERREUR(RECHERCHEV($A5;MFS!$A$4:$DA$150;" & n & ";FAUX);)"
 

BBdoc31

XLDnaute Nouveau
non, cela bloque toujours :'(

je te joints le code complet
Code:
Sub pointage()
'
'
'
X = 5
Z = 13
W = 51
    For n = 5 To 5 + 2 * (W - 1) Step 2
   
        Cells(X, Z).FormulaLocal = _
        "=SIERREUR(RECHERCHEV($A5;CFU!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;MFS!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;MLF!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;SGE!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;NLE!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;VLR!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;JMD!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;MCM!$A$4:$DA$150;" & n & ";FAUX);)"
        Cells(X + 499, Z).FormulaLocal = _
        "=SIERREUR(RECHERCHEV($A504;CFU!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A504;MFS!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A504;MLF!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A504;NLE!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A504;VLR!$A$4:$DA$150;" & n & ";FAUX);)"
        Cells(X + 500, Z).FormulaLocal = _
        "=SIERREUR(RECHERCHEV($A505;CFU!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A505;MFS!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A505;MLF!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A505;NLE!$A$4:$DA$150;" & n & ";FAUX);)+SIERREUR(RECHERCHEV($A505;VLR!$A$4:$DA$150;" & n & ";FAUX);)"
Z = Z + 2
       
   Next n

End Sub

Espace ou pas , j'ai une erreur, le reste des lignes se met en rouge
 

M12

XLDnaute Accro
Re,
Teste comme ceci
Code:
Sub pointage()
'
'
'
X = 5
Z = 13
W = 51
    For n = 5 To 5 + 2 * (W - 1) Step 2
  
        Cells(X, Z).FormulaLocal = _
        "=SIERREUR(RECHERCHEV($A5;CFU!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;MFS!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;MLF!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;SGE!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;NLE!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;VLR!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;JMD!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A5;MCM!$A$4:$DA$150;" & n & ";FAUX);)"
        Cells(X + 499, Z).FormulaLocal = _
        "=SIERREUR(RECHERCHEV($A504;CFU!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A504;MFS!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A504;MLF!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A504;NLE!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A504;VLR!$A$4:$DA$150;" & n & ";FAUX);)"
        Cells(X + 500, Z).FormulaLocal = _
        "=SIERREUR(RECHERCHEV($A505;CFU!$A$4:$DA$150;" & _
        n & ";FAUX);)+SIERREUR(RECHERCHEV($A505;MFS!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A505;MLF!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A505;NLE!$A$4:$DA$150;" _
        & n & ";FAUX);)+SIERREUR(RECHERCHEV($A505;VLR!$A$4:$DA$150;" & n & ";FAUX);)"
Z = Z + 2
      
   Next n

End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG