Macro avec recherchev

Bonjour à tous

Cette macro avec fonction recherchev bug au niveau du range

Une idée ?

Merci d'avance !

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro1()   Dim Formule As String     Formule = "=RECHERCHEV(Principal!G20;Collectivités!E5:K16;11;FAUX)"     Range("B2").Value = Formule   End Sub

---

il ne sait peut-être pas sur quel classeur et quelle feuille travailler ?

Code:

---

workbook("toto.xls").worksheets(1).range("B2").value

---

Je ne pense pas que ce soit ça mais je vais essayer quand même demain au boulot

Peut-être un problème avec "Formule" ?

Bonjour

Recherches dans l'aide Access du coté de Formula et FormulaLocal, de même sur le forum et la FAQ Excel : http://excel.developpez.com/faq/inde...rmules#Formula

De plus comme le dit le Petit Nicolas, affectes bien à ton classeur.

Starec

Bonsoir

Code:

---

1 2	Range("B2").FormulaLocal = Formule

---

Abed_H

Bonsoir,

Citation:

---

Envoyé par Tof XXX

Code:

---

1 2	Formule = "=RECHERCHEV(Principal!G20;Collectivités!E5:K16;11;FAUX)" Range("B2").Value = Formule

---

---

L’idée un peu curieuse dans ton code était l’emploi de Value, qui correspond à la valeur de la cellule, sauf si tu veux y afficher la formule.

Dans ce cas, il aurait fallu écrire :

Code:

---

1 2	Formule = """=RECHERCHEV(Principal!G20;Collectivités!E5:K16;11;FAUX)""" Range("B2").Value = Formule

---

Car les guillemets étant significatifs dans le code VBA, pour en afficher 1, la convention consiste à le doubler, et à le placer lui-même entre guillemets comme toute chaine de caractères :

Code:

---

MsgBox """"

---

affichera un guillemet.

Pour afficher la formule, le code de Abed_H

Code:

---

Range("B2").FormulaLocal = Formule

---

est parfait.

La seule restriction est que si tu travailles dans un environnement international, cela ne fonctionnera pas avec une version d’Excel dans une autre langue.

Pour que le code fonctionne quelle que soit la langue,

Code:

---

Range("B2").FormulaR1C1 = "=VLOOKUP(Principal!R[18]C[5],Collectivités!R[3]C[3]:R[14]C[9],11,FALSE)"

---

ou

Code:

---

Range("B2").Formula = "=VLOOKUP(Principal!G20,Collectivités!E5:K16,11,FALSE)"

---

NB - La variable "Formule" ne se justifie que si elle est réutilisée ailleurs.

Cordialement,

Merci à vous tous, ça marche

Code:

---

Range("B2").FormulaLocal = Formule

---