aide pour une correction du code

creolia · 17 Mars 2010

Bonsoir

j'ai trouver cette macro

Code:

Worksheets("Feuil1").Range("B5:B100").Value = "=A5 + 10"

que j'ai adapter comme ceci

Code:

worksheets("Feuil1").Range("F5:F100").Value = "=SI(E5<> "" ;E5+1095; "" )"

le probleme c'est que sa me copie dans les cellule ceci

Code:

=SI(E5<> [COLOR="Red"]"[/COLOR] ;E5+1095; [COLOR="Red"]" 
[/COLOR])

au lieu de ceci

Code:

=SI(E5<> [COLOR="Red"]""[/COLOR] ;E5+1095; [COLOR="Red"]""[/COLOR] )

je comprend pas trop pourquoi et comment y remedier merci pour toute votre aide

a bientot

CBernardT · 17 Mars 2010

Re : aide pour une correction du code

Bonsoir creolia,

essaye avec la syntaxe suivante directement issue de l'enregistreur de macro :

Worksheets("Feuil1").Range("F5:F100").FormulaR1C1 = "=IF(RC[-1]<>"""",RC[-1]+1095, """" )"

Roland_M · 17 Mars 2010

Re : aide pour une correction du code

bonsoir

comme ceci ! (à savoir ceci n'est pas une macro !)

Worksheets("Feuil1").Range("F5:F100").FormulaLocal = "=SI(E5<>" & Chr(34) & Chr(34) & ";E5+1095;" & Chr(34) & Chr(34) & ")"

creolia · 17 Mars 2010

Re : aide pour une correction du code

merci CBernardT et roland M

la solution de CBernardT s'adapte parfaitement à mon problème

merci pour la précision au sujet de la macro ROLAND M

je vous souhaite une bonne nuit à bientôt

aide pour une correction du code

creolia

XLDnaute Impliqué

CBernardT

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

creolia

XLDnaute Impliqué

Discussions similaires

aide pour une correction du code

creolia

XLDnaute Impliqué

CBernardT

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

creolia

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency