Discussion :

[Tof XXX]

Bonjour à tous

Cette macro avec fonction recherchev bug au niveau du range

Une idée ?

Merci d'avance !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[le petit nicolas]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tof XXX]

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

[Tof XXX]

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

[Invité]

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

[Abed_H]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Abed_H

[Bigalo]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

   MsgBox """"

affichera un guillemet.

Pour afficher la formule, le code de Abed_H

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

       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,

[Tof XXX]

Merci à vous tous, ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B2").FormulaLocal = Formule