erreur insertion formule VBA

[cissou]

Bonjour,

Je reformule une demande précédemment faite mais sans succès.
Je voudrais insérer dans une cellule la formule suivante

form1 = '=IF(ISNA(VLOOKUP(A1;dbPR!A1:B523;2;false));0;1)'
Range('B1').Formula = form1


Mon script se plante au niveau de l'affectation de form1 à B1 avec le message suivant
RunTime Error 1004
Application-defined or object-defined error

pourtant quand je colle manuellement la formule dans le cellule cela fonctionne correctement.

Merci pour votre aide

 

[2passage]

Bonjour,

Remplace les ; par des , ou tapes la formule en francais et utilise .formulalocal

A+

 

[cissou]

Trop trop fort!!!
Super merci merci

Une autre pour la route.

Toujours avec lié avec cette formule.
Dans A1 j'affecte ceci :
Range('A1').Value = PRJ_lundi & PRJ_mardi & PRJ_mercredi & PRJ_jeudi & PRJ_vendredi
dans mon premier test, les valeurs retournées par mes variables 'PRJ'_jrsemaine sont par exemple toutes egales à 1002
Donc normalement, dans A1, je devrais avoir la valeur
10021002100210021002
quand je regarde l'espion ou fait afficher la valeur à l'écran j'ai bien cela.
Par contre, quand la valeur arrive dans A1, j'ai 10020002100210000000
Serait-ce une anomalie de format?

J'ai essayé de passer par une variable intermediaire, mais le résultat est le même

Merci

 

[2passage]

Reu..

Oui, probleme de format. Ajoute :

Range('A1').NumberFormat = '@'
avant d'attribuer la value

A+

 

[cissou]

ben tout ça c'est parfait

Encore merci pour ton aide