Discussion :

[Nemerion]

Bonjour à toutes et à tous

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 :

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

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

[gFZT82]

Bonjour,

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

Cordialement.

[Nemerion]

Bonsoir gFZT82

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

[gFZT82]

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.

[Nemerion]

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.

[Philippe Tulliez]

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 :

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

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

Ou en variante

Code :

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

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 :

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

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 :

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

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