Discussion :

[andrea0]

En mettant cette formule dans mon code VBA

Code :

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

g1 = "=IF(OR((" & Fe & "!R" & lig + 6000 & "C" & col1 - 1 & ")=D8,(" & Fe & "!R" & lig + 6000 & "C" & col1 - 1 & ")=D9),1,"""")"

Sur Excel quand je regarde ce que ca donne ca me met le message d'erreur suivant: #NOM?

en cliquant sur la cellule ca m'a mit:=SI(OU(($FB$6020)='D8';($FB$6020)='D9');1;"")
donc avec des ' ' quand je clique sur la cellule et que je les retire ca ne me met plus ce mesage d'erreur

(Or dans la formule que j'ai mis dans mon code j'ai bien mis D8 et D9 et pas 'D8' et 'D9')jcomprends pas quelqu'un aurait une idée??

Merci

andrea

[Invité]

Bonjour

Regardes du coté de Formula et là : Pourquoi autant de propriétés 'Formula' différentes ?

Philippe

[andrea0]

Je te remercie de m'avoir lu mais
ca ne m'aide pas beaucoup je ne trouve toujours pas

[Flo3301]

Bonjour,

Tu as 4 apostrophes d'affilé à la fin, c'est normal ? Ca me parait bizarre. D'autre part à quoi correspondent tes variables Fe, lig et col1 ?

Ton erreur vient du codage en lui même, tu as mal placé les apostrophes à mon avis.

[Theze]

Bonsoir,

Tu utilise la référence R1C1 dans ce cas, il te faut l'utiliser jusqu'au bout et donc D8 et D9 doivent être entrées en référence R1C1 :

Code :

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

1
2
 
Range("g1").FormulaR1C1 = "=IF(OR((" & Fe & "!R" & lig + 6000 & "C" & col1 - 1 & ")=R8C4,(" & Fe & "!R" & lig + 6000 & "C" & col1 - 1 & ")=R9C4),1,"""")"

Hervé.