Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Fractionner une formule - Résolu

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

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 "
 
Trier par date Trier par votes
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);)"
 
Vote positif 0 Vote négatif
ça ne marche pas !
L’éditeur me corrige la formule en mettant
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);)"
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 Est-il possible de concaténer dans une formule ?
Réponses
4
Affichages
482
Cougar
C
L
  • Question Question
XL 2019 Excel formule recherche
Réponses
3
Affichages
699
danielco
D
C
  • Résolu(e)
Microsoft 365 Formule qui ralenti ma macro
2
Réponses
15
Affichages
3 K
mapomme
D
  • Question Question
Microsoft 365 vba - appliquer un formula local sur une plage filtrée
Réponses
2
Affichages
861
douguy
D
D
  • Question Question
XL 2016 (Résolu): Actualiser une formule
Réponses
14
Affichages
2 K
Didier 57
D
T
  • Résolu(e)
XL 2019 Filtrer un colonne de donnée suivant une autre colonne
Réponses
5
Affichages
1 K
sylvanu
R
  • Question Question
XL 2019 Condition SI renvoi une valeur fausse s'il y a une cellule avec formule
Réponses
4
Affichages
955
re4
R
R
  • Question Question
XL 2019 Fichier inscription VBA
Réponses
0
Affichages
983
Richard 58
R
O
  • Question Question
XL 2016 Assistance a conversion de formule excel en macro VBA
Réponses
2
Affichages
2 K
sylvanu
H
  • Question Question
XL 2013 Créer une formule RechercheV dans une celui en VBA
Réponses
5
Affichages
2 K
Helios77
H
  • Question Question
XL 2016 problème dans une macro en plus je voudrais rajouter une colonne dans le choix
Réponses
13
Affichages
1 K
bellenm
V
  • Question Question
Microsoft 365 Actualisation formule écrite via macro en liaison avec une BBD
Réponses
2
Affichages
2 K
vynmarius
V
  • Question Question
XL 2013 Pb validation de donnees
Réponses
1
Affichages
555
Chris401
R
  • Question Question
Compiler des fichiers avec une routine VBA
Réponses
4
Affichages
3 K
Rapou
R
J
  • Question Question
Résolu : Appliquer une fonction à tout un tableau
Réponses
4
Affichages
2 K
Jacob
J
D
  • Question Question
Excel => VBA => Intégrer variable dans une formule de plage pour insérer une formule
Réponses
5
Affichages
6 K
demonsares
D
M
  • Question Question
Comparer 2 listes avec une macro
Réponses
6
Affichages
2 K
Maryloo2005
M
I
  • Question Question
Probleme de traduction de formule
Réponses
1
Affichages
1 K
insosama
I
  • Question Question
problème vba suite migration 2003 vers 2010
2
Réponses
20
Affichages
4 K
MikeBelgique
D
  • Question Question
[Résolu] Formule saisie avec VBA n'affiche pas le même résultat dans la cellule FR/US
Réponses
7
Affichages
3 K
Dut
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…