aide pour une correction du code

[creolia]

Bonsoir

j'ai trouver cette macro

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

que j'ai adapter comme ceci

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

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

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

au lieu de ceci

=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]

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]

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]

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