Problème d'execution d'une formule VBA

Bonjour à toutes et à tous :P

Voila je suis en train de concevoir une macro dans le cadre de mon stage de fin d'année et je suis bloqué sur un point qui à mon avis doit être tout bête mais je suis dessus depuis 4 heures et impossible d'y arriver

J'ai une feuille sur lequel je fais une recherchev a partir d'une autre feuille nommée ZEM1

La macro fonctionne jusqu’ici et je n'ai aucun message d'erreur. Le problème c'est que la formule ne s’exécute pas. J'obtiens seulement ça sur toute les lignes concernées: "=RECHERCHEV(B2;ZEM1!A:B;2;faux)

Voici le morceau de code qui est censé faire exécuté la formule

Code:

---

1 2 3 4

i = Range("B" & Rows.Count).End(xlUp).Row Range("C2").FormulaLocal = "=RECHERCHEV(B2;ZEM1!A:B;2;faux)" Range("C2").Copy Range("C2:C" & i)

---

Si une bonne âme pouvait me montrer d’où vient mon erreur ce serait youpi :P

Bonjour,

Ton code est correct. Regarde si tes cellules ne sont pas au format texte.

Cordialement.

Bonsoir gFZT82

Non même en convertissant la colonne C en standard, j'ai toujours la formule entière qui s'affiche :calim2:

Tu peux effectuer cette vérification :
Bouton Office / Options Excel
Options avancées /Afficher les options pour cette feuille de calcul
L'option "Formules dans les cellules au lieu de leurs résultats calculés" doit être décochée.

Cordialement.

Bonjour gFZT82

Je suis aller vérifier et la case concernée était bien décochée. Ça me fait toujours le même problème. Je met ci-joint un petit exemple.

Cordialement.

Bonjour,
Ton problème vient bien du fait que les cellules de la colonne où tu veux placer ta formule est au format texte.
Si tu modifies son format avant d'enclencher la procédure, tu n'auras pas de problème.
C'est un problème que j'ai déjà rencontré et qui est extrêmement agaçant.
Tu peux aussi faire précéder la ligne de ton code par le formatage de la cellule au mode "Général"

Code:

---

1 2	Range("C2").NumberFormat = "General" Range("C2").FormulaLocal = "=RECHERCHEV(B2;ZEM1!A:B;2;faux)"

---

Ou en variante

Code:

---

Range("C2").NumberFormat = "0"

---

Pour éviter un problème de compatibilité avec des versions anglaises ou autres, je privilégierais la propriété Formula

Code:

---

Range("C2").Formula = "=VLOOKUP(B2,ZEM1!A:B,2,FALSE)"

---

Et je préciserais aussi dans mon code l'objet feuille et classeur cela éviterait l'emploi de la méthode Activate.

Code:

---

1 2 3 4 5 6 7 8 9

Sub recherchev() 'Sheets("EM").Activate With ThisWorkbook.Sheets("EM") i = .Range("B" & Rows.Count).End(xlUp).Row .Range("C2").NumberFormat = "0" .Range("C2").Formula = "=VLOOKUP(B2,ZEM1!A:B,2,FALSE)" .Range("C2").Copy .Range("C2:C" & i) End With End Sub

---

Bonjour

J'ai testé ta macro elle marche du tonnerre !! :ccool:

Merci à toi et à gFZT82 pour vos réponses, c'est super sympa ;)

Cdt