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

aide pour Modification de formulalocal

  • Initiateur de la discussion Initiateur de la discussion tactic6
  • Date de début Date de début

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 !

tactic6

XLDnaute Impliqué
Bonjour le forum
je cherche à modifier une formule dans un code pour remplacer ceci
Code:
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
Code:
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
 
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 🙂.
 
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
Code:
=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
 
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
 
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
Code:
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
 
- 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

Réponses
5
Affichages
780
Réponses
2
Affichages
461
Réponses
4
Affichages
646
Réponses
8
Affichages
690
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…