Bonjour,
Comment puis-je traduire cette formule en VBA
=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).
Sachant qu'elle est dynamique et que $A2 est fonction de la ligne
sélectionnée.
Si je sélectionne la ligne =$a2
Si c'est la trois=$a3
et ainsi de suite
Merci
Pascal
Bonjour,
Comment puis-je traduire cette formule en VBA
=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).
Sachant qu'elle est dynamique et que $A2 est fonction de la ligne
sélectionnée.
Si je sélectionne la ligne =$a2
Si c'est la trois=$a3
et ainsi de suite
Merci
Pascal
Bonjour,
Comment puis-je traduire cette formule en VBA
=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).
Sachant qu'elle est dynamique et que $A2 est fonction de la ligne
sélectionnée.
Si je sélectionne la ligne =$a2
Si c'est la trois=$a3
et ainsi de suite
Merci
Pascal
Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula = "=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) & ",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0, 1) & ",Produit,0),1)))""PABD" a écrit dans le message de groupe de discussion :,Comment puis-je traduire cette formule en VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si je sélectionne la ligne =$a2Si c'est la trois=$a3et ainsi de suiteMerciPascal
Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula = "=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) & ",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0, 1) & ",Produit,0),1)))""PABD" <pabd@nospam.fr> a écrit dans le message de groupe de discussion :ecOsIulnJHA.4912@TK2MSFTNGP04.phx.gbl...Bonjour,Comment puis-je traduire cette formule en VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si je sélectionne la ligne =$a2Si c'est la trois=$a3et ainsi de suiteMerciPascal
Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula = "=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) & ",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0, 1) & ",Produit,0),1)))""PABD" a écrit dans le message de groupe de discussion :,Comment puis-je traduire cette formule en VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si je sélectionne la ligne =$a2Si c'est la trois=$a3et ainsi de suiteMerciPascal
Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un
copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant
pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula =
"=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) &
",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0, 1)
& ",Produit,0),1)))""PABD" a écrit dans le message de
groupe de discussion
:,Comment puis-je traduire
cette formule en
VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant
qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si
je sélectionne la ligne =$a2Si c'est la trois=$a3et ainsi de
suiteMerciPascal
Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un
copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant
pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula =
"=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) &
",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0, 1)
& ",Produit,0),1)))""PABD" <pabd@nospam.fr> a écrit dans le message de
groupe de discussion
:ecOsIulnJHA.4912@TK2MSFTNGP04.phx.gbl...Bonjour,Comment puis-je traduire
cette formule en
VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant
qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si
je sélectionne la ligne =$a2Si c'est la trois=$a3et ainsi de
suiteMerciPascal
Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un
copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant
pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula =
"=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) &
",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0, 1)
& ",Produit,0),1)))""PABD" a écrit dans le message de
groupe de discussion
:,Comment puis-je traduire
cette formule en
VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant
qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si
je sélectionne la ligne =$a2Si c'est la trois=$a3et ainsi de
suiteMerciPascal
Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant
pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula =
"=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) &
",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0, 1) &
",Produit,0),1)))""PABD" a écrit dans le message de groupe de
discussion :,Comment puis-je traduire
cette formule en
VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant
qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si je sélectionne
la ligne =$a2Si c'est la trois=$a3et ainsi de suiteMerciPascal
Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant
pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula =
"=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) &
",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0, 1) &
",Produit,0),1)))""PABD" <pabd@nospam.fr> a écrit dans le message de groupe de
discussion :ecOsIulnJHA.4912@TK2MSFTNGP04.phx.gbl...Bonjour,Comment puis-je traduire
cette formule en
VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant
qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si je sélectionne
la ligne =$a2Si c'est la trois=$a3et ainsi de suiteMerciPascal
Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant
pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula =
"=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) &
",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0, 1) &
",Produit,0),1)))""PABD" a écrit dans le message de groupe de
discussion :,Comment puis-je traduire
cette formule en
VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant
qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si je sélectionne
la ligne =$a2Si c'est la trois=$a3et ainsi de suiteMerciPascal
salut Denis,
sais tu pourquoi celle-ci fonctionne
Range("A3").Formula =
"=IF(ISERROR(MATCH($A2,Produit,0)),"""",INDEX(Prix,MATCH($A2,Produit,0)))"
mais pas celle-ci, à moins d'y ajouter un p'tit coup d'édition
Range("A4").Formula =
"=SI(ESTERREUR(EQUIV($A2,Produit,0)),"""",INDEX(Prix,EQUIV($A2,Produit,0)))"
SendKeys "{F2}~", True
isabelle
MichDenis a écrit :Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un
copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant
pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula =
"=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) &
",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0,
1) & ",Produit,0),1)))""PABD" a écrit dans le message de
groupe de discussion
:,Comment puis-je traduire
cette formule en
VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant
qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si
je sélectionne la ligne =$a2Si c'est la trois=$a3et ainsi de
suiteMerciPascal
salut Denis,
sais tu pourquoi celle-ci fonctionne
Range("A3").Formula =
"=IF(ISERROR(MATCH($A2,Produit,0)),"""",INDEX(Prix,MATCH($A2,Produit,0)))"
mais pas celle-ci, à moins d'y ajouter un p'tit coup d'édition
Range("A4").Formula =
"=SI(ESTERREUR(EQUIV($A2,Produit,0)),"""",INDEX(Prix,EQUIV($A2,Produit,0)))"
SendKeys "{F2}~", True
isabelle
MichDenis a écrit :
Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un
copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant
pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula =
"=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) &
",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0,
1) & ",Produit,0),1)))""PABD" <pabd@nospam.fr> a écrit dans le message de
groupe de discussion
:ecOsIulnJHA.4912@TK2MSFTNGP04.phx.gbl...Bonjour,Comment puis-je traduire
cette formule en
VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant
qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si
je sélectionne la ligne =$a2Si c'est la trois=$a3et ainsi de
suiteMerciPascal
salut Denis,
sais tu pourquoi celle-ci fonctionne
Range("A3").Formula =
"=IF(ISERROR(MATCH($A2,Produit,0)),"""",INDEX(Prix,MATCH($A2,Produit,0)))"
mais pas celle-ci, à moins d'y ajouter un p'tit coup d'édition
Range("A4").Formula =
"=SI(ESTERREUR(EQUIV($A2,Produit,0)),"""",INDEX(Prix,EQUIV($A2,Produit,0)))"
SendKeys "{F2}~", True
isabelle
MichDenis a écrit :Un petit truc pour te faciliter la tâche.
Supposons que ta formule est en A1
En vba, dans un petit procédure tu peux écrire ceci :
En cellule A3 tu vas écrire la même formule que A1 mais en anglais
Il te restera à dédoubler les guillements lorsque tu feras un
copier-coller
dans la fenêtre de l'éditeur de code
Range("A3") = "'" & Range("A1").Formula
Range("A10").Formula = _
"=IF(ISERROR(INDEX(Prix,MATCH($A2,Produit,0),1)),"""",(INDEX(Prix,MATCH($A2,Produit,0),1)))"Maintenant
pour A2 , qu'il s'adapte lors de la recopie ...Range("A10").Formula =
"=IF(ISERROR(INDEX(Prix,MATCH(" & _ Range("A2").Address(0, 1) &
",Produit,0),1)),"""",(INDEX(Prix,MATCH(" _ & Range("A2").Address(0,
1) & ",Produit,0),1)))""PABD" a écrit dans le message de
groupe de discussion
:,Comment puis-je traduire
cette formule en
VBA=SI(ESTERREUR(INDEX(Prix;EQUIV($A2;Produit;0);1));"";(INDEX(Prix;EQUIV($A2;Produit;0);1))).Sachant
qu'elle est dynamique et que $A2 est fonction de la lignesélectionnée.Si
je sélectionne la ligne =$a2Si c'est la trois=$a3et ainsi de
suiteMerciPascal
Bonjour Isabelle,
Tu connais la différence en FormulaLocal et formula ?
Vous avez reçu trop de neige ? Épuisé par la pelle ?
;-)))
Bonjour Isabelle,
Tu connais la différence en FormulaLocal et formula ?
Vous avez reçu trop de neige ? Épuisé par la pelle ?
;-)))
Bonjour Isabelle,
Tu connais la différence en FormulaLocal et formula ?
Vous avez reçu trop de neige ? Épuisé par la pelle ?
;-)))
Bonjour Isabelle,
Essaie ceci
Range("A4").FormulaLocal =
"=SI(ESTERREUR(EQUIV($A2;Produit;0));"""";INDEX(Prix;EQUIV($A2;Produit;0)))"
Bonjour Isabelle,
Essaie ceci
Range("A4").FormulaLocal =
"=SI(ESTERREUR(EQUIV($A2;Produit;0));"""";INDEX(Prix;EQUIV($A2;Produit;0)))"
Bonjour Isabelle,
Essaie ceci
Range("A4").FormulaLocal =
"=SI(ESTERREUR(EQUIV($A2;Produit;0));"""";INDEX(Prix;EQUIV($A2;Produit;0)))"