probléme sur l'ecriture d'une formule

[akramenergie]

Bonjour mes amis
je voudrais copié la formule suivant dans des cellules :

=SI(Data!B8="";"";Data!B8)

par le billet de la ligne de code suivant

Sheets("Feuil1").Range("D" & k).Value = "SI(Data!B" & k & "="";"";Data!B" & k & ")"

mais le resulta affiché c sa : =SI(Data!B8=";";Data!B8).

comme vous le remarquer il manque une " dans chaque coté de la formule je sais pas koi faire???
(k c'est une variable qui change)

 

[tbft]

Re : probléme sur l'ecriture d'une formule

bonjour

essayer avec formulaloca ou forulal a la place de value

 

[akramenergie]

Re : probléme sur l'ecriture d'une formule

ce probléme est résolu j'aivais just a tapé
Sheets("Feuil1").Range("D" & k).Value = "SI(Data!B" & k & "="""";"""";Data!B" & k & ")"

est sa marche.

Mais maintenent un autre probléme pérciste c'est le = que j 'arrive pas a le mettre au début de la formule
le résultat affiché c'est : SI(Data!B6="";"";Data!B6) sans le = au début
normalement il faut écrire : = SI(Data!B6="";"";Data!B6)

 

[tbft]

Re : probléme sur l'ecriture d'une formule

essaye
Sheets("Feuil1").Range("D" & k).FormulaLocal = "=SI(Data!B" & k & "="";"";Data!B" & k & ")"

 

[akramenergie]

Re : probléme sur l'ecriture d'une formule

malheuresement sa fonctione pas il m affiche erreur de l'objet😕

 

[tbft]

Re : probléme sur l'ecriture d'une formule

serait il possible de mettre un petit bout de fichier,svp?

 

[tbft]

Re : probléme sur l'ecriture d'une formule

Sheets("data").Range("D" & k).FormulaLocal = "=SI(estvide(Data!B" & k & ");"""";Data!B" & k & ")"

 

[akramenergie]

Re : probléme sur l'ecriture d'une formule

sa marche sauf que il ya un msg qui s s'affiche a chaque fois c'est un message qui demade "Fichier non trouver" comme si il cherche un fichier Data et il le trouve pas ???

mais la formule est bien ecrite

 

[Gael]

Re : probléme sur l'ecriture d'une formule

Bonsoir à tous,

Je ne comprends pas bien le problème, chez moi les 3 formules suivantes marchent très bien à condition d'avoir une feuille nommée "Data" et une nommée "Feuil2":

Sub Test()
ActiveCell.FormulaR1C1 = "=IF(Data!RC[-2]="""","""",Data!RC[-2])"
End Sub
Sub test1()
Dim k As Integer
k = 8
Sheets("Feuil2").Range("D" & k).FormulaLocal = "=SI(Data!B" & k & "="""";"""";Data!B" & k & ")"
End Sub
Sub Test2()
Dim k As Integer
k = 8
Sheets("data").Range("D" & k).FormulaLocal = "=SI(estvide(Data!B" & k & ");"""";Data!B" & k & ")"
End Sub

@+

Gael

 

[tbft]

Re : probléme sur l'ecriture d'une formule

Bonjour

est avec
ActiveSheet.Range("D" & k).FormulaLocal = "=SI(estvide(B" & k & ");"""";B" & k & ")"

 

[akramenergie]

Re : probléme sur l'ecriture d'une formule

Merci les amis de votre répense c bon le probléme est résolut avec vos proposition .