probléme sur l'ecriture d'une formule

tbft

XLDnaute Accro

• 8 Juillet 2010

• #2

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

bonjour

essayer avec formulaloca ou forulal a la place de value

 

Dernière édition: 8 Juillet 2010

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 8 Juillet 2010

• #3

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)

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 8 Juillet 2010

• #4

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

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

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 8 Juillet 2010

• #5

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

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

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 8 Juillet 2010

• #6

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

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

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 8 Juillet 2010

• #7

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

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

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 8 Juillet 2010

• #8

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

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 8 Juillet 2010

• #9

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":

Code:

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

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 9 Juillet 2010

• #10

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

Bonjour

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

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 9 Juillet 2010

• #11

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 .

 

Vote positif 0 Vote négatif