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

Probleme VBA "FormulaLocal"

  • Initiateur de la discussion Initiateur de la discussion Fernandez67
  • 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 !

F

Fernandez67

Guest
Bonjour :woohoo:

Voulant effectuer une RECHERCVEV en VBA j'ai trouvé ce fil sur le sujet qui est très interessant.

Lien supprimé

J'aimerai pouvoir l'adapter pour ma formule mais du coup ca ne marche plus :sick:

Code:
Range('E13').FormulaLocal = '=SI(C13='';RECHERCHEV(D13;Base!A:E;2;FAUX);RECHERCHEV(C13;Base!A:E;2;FAUX)))'
Range('E13').AutoFill Range('E13: E14 ')

Je ne comprends pas pourquoi, aurriez vous des suggestions ?
 
Bonsoir Fernandez67,
Si cela peut t'être util, ce lien sue Excelabo :
Ce lien n'existe plus
qui donne :
La propriété Formula renvoie ou définit une formule dans la langue anglaise
FormulaLocal renvoie ou définit une formule dans la langue du pays, donc en
français pour nous. Value renvoie ou définit une valeur.
En te souhaitant une bonne soirée.
 
Bonsoir Fernandez67, bonsoir Marc, bonsoir à toutes et à tous,
bonsoir à la tata Odette d'Hervé 🙂

Fernandez, si tu as écrit la formule comme on peut la voir dans ton post, il y a une erreur de syntaxe :

Range('E13').FormulaLocal = '=SI(C13='';RECHERCHEV(D13;Base!A:E;2;FAUX);RECHERCHEV(C13;Base!A:E;2;FAUX)))'

Pour insérer des guillemets dans la formule à placer dans une cellule, il faut écrire :

Range('E13').FormulaLocal = '=SI(C13='''';RECHERCHEV(D13;Base!A:E;2;FAUX);RECHERCHEV(C13;Base!A:E;2;FAUX)))'

Voili voilà

Tiens-nous au courant 😉

A+
 
bonjour à tous si le truc de charly ne fonctionne pas non plus ,essayes à la place des guillemets de faire référence à une cellule vide de ton classeur
=SI(C13='''';RECHERCHEV(D13;Base!A:E;2;FAUX);RECHERCHEV(C13;Base!A:E;2;FAUX)))'
=SI(C13=a1;RECHERCHEV(D13;Base!A:E;2;FAUX);RECHERCHEV(C13;Base!A:E;2;FAUX)))'
si a1 vide bien sur à adapter en fonction de ton classeur
 
Bonsoir le fil, bonsoir Fernandez67, bonsoir à toutes et à tous 🙂

Effectivement, l'erreur sur les guillemets sautait tellement au yeux qu'on a oublié de vérifier les parenthèses...

Je te poste un exemple de ce que fait la macro. Si tu repasses par là, dis-nous si cela te convient 😉

[file name=Fernandez67_FormulaLocal.zip size=9431]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Fernandez67_FormulaLocal.zip[/file]

A+
 

Pièces jointes

Juste un problème :sick:

Sur un des postes ou j'utilise le fichier lorsque je saisi un des cases, la fenêtre de code s'ouvre !!!

Je n'ai pas trouvé la raison...
 
Bonjour Fernandez67, bonjour à toutes et à tous 🙂

Quand tu dis la fenêtre de code s'ouvre, cela signifie qu'il y a une erreur, je suppose. As-tu repéré le code de l'erreur ?

A+ 😉
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
2 K
Réponses
17
Affichages
2 K
Réponses
2
Affichages
770
  • Question Question
Réponses
0
Affichages
1 K
Réponses
1
Affichages
5 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…