XL 2016 Fractionner une formule - Résolu

[BBdoc31]

Bonjour,

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

j'ai à l'origine

        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

        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]

Bonjour,

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

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]

ça ne marche pas !
L’éditeur me corrige la formule en mettant

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

 

[M12]

Re,

Pour scinder une formule,
tu places un espace et un "underscore" (tiret soulignement sous la touche 8) puis entrée

mais il se peut que cela ne fonctionne pas avec une formule importée par macro automatique

 

[BBdoc31]

non, cela bloque toujours :'(

je te joints le code complet

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]

Re,
Teste comme ceci

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

 

[BBdoc31]

ça marche nickel !
Mais pourquoi est-on obligé de faire la césure au & ?

 

[M12]

Re,
En principe, on ne coupe pas une formule entre des "................."
surtout pour une bonne compréhension pour se relire