aide pour Modification de formulalocal

[tactic6]

Bonjour le forum
je cherche à modifier une formule dans un code pour remplacer ceci

For Z = 15 To 50
      If IsEmpty(CellS(Z, 9)) Then
      CellS(Z, 9).FormulaLocal = "=SI(NON(ESTVIDE(B" & Z & "));RECHERCHEV(B" & Z & ";'liste des articles'!$A$1:$D$10000;4;FAUX);"""")"    
      End If
    Next

par une formule avec ESTERREUR du genre

For Z = 15 To 52
      If IsEmpty(CellS(Z, 9)) Then
      CellS(Z, 9).FormulaLocal = "=SI(ESTERREUR(B" & Z & ");RECHERCHEV(B" & Z & ";'liste des articles'!$A$1:$D$10000;4;FAUX);"";RECHERCHEV(B" & Z & ";'liste des articles'!$A$1:$D$10000;4;FAUX))"
      End If
    Next

Apparemment j'ai mal écrit la formule quelqu'un peut m'aider ?

Merci

 

[MJ13]

Re : aide pour Modification de formulalocal

Bonjoiur Tactic

Je ne comprend pas trop.

Est-ce que ta seconde formule focntionne sur une feuille 😕.

Sinon, joins un fichier avec ton problème 🙂.

 

[Paritec]

Re : aide pour Modification de formulalocal

Bonjour Michel🙂
""Apparemment j'ai mal écrit la formule quelqu'un peut m'aider ?""
je confirme c'est le cas!!
a+
papou🙂

 

[tactic6]

Re : aide pour Modification de formulalocal

Re MJ13
Merci de te pencher sur mon pb
pour repondre a ta question non la formule ne marche pas en fait je voudrais ecrire en VBA cette formule:
pour B =15 à 52

=SI(ESTERREUR(RECHERCHEV(B17;'liste des articles'!$A$1:$D$15369;4;FAUX));"";(RECHERCHEV(B17;'liste des articles'!$A$1:$D$15369;4;FAUX)))

mais le bout de code que j'ai écrit au dessus est erroné et me fait une erreur 1004

Cordialement

 

[Staple1600]

Re : aide pour Modification de formulalocal

Bonsoir le fil


Je rejoins l'avis de MJ13 (salutations au passage)
En postant un fichier exemple, nous serons à même de tester tout cela.

Donc en attendant ton fichier, je vais fumer mon clopot et boire mon kawa 😉

EDITION: Salutations, Paritec

 

[Staple1600]

Re : aide pour Modification de formulalocal

Re

Bon le café est bu, le mégot dans le cendrier

Pas de fichier en vu ...et je vais étendre ma lessive 😉

Alors je te laisse adapter comme il se doit la macro ci-dessous

Sub Macro1a()
Dim f$
f = "=SI(ESTERREUR(RECHERCHEV(" & ActiveCell.Offset(, -1).Address
f = f & ";'liste des articles'!$A$1:$D$15369;4;0));"""";RECHERCHEV(" & ActiveCell.Offset(, -1).Address & ";'liste des articles'!$A$1:$D$15369;4;0))"
ActiveCell.FormulaLocal = f
End Sub

PS: test OK chez moi

 

[tactic6]

Re : aide pour Modification de formulalocal

Merci
Sympa de m'avoir aidé
Super