Pbe macro formulalocal

[LaurentG]

Bonjour,

Voici un code que j'essaie d'utiliser :

Sub essai()
adresse = Range('a15000').End(xlUp).Row + 1
Range('a' & adresse).Select
ActiveCell.Offset(0, 1).FormulaLocal = '=si(' & ActiveCell.Offset(0, 2).Address & '='valide';'bravo')'

End Sub

Mais il me met un message d'erreur! j'ai l'impressoin qu'il bloque au niveau des guillemets qui entoure le 'valide', et donc probablement aussi sur ceux qui entourent le 'bravo'.

Quelqu'un a une idée sur la question?

Merci

Laurent

 

[Hervé]

Bonjour laurent

peut etre comme ceci :

Dim adresse As Integer

adresse = Range('a15000').End(xlUp).Row + 1
Range('a' & adresse).Select
ActiveCell.Offset(0, 1).Formula = '=IF(' & ActiveCell.Offset(0, 2).Address & '=''valide'',''bravo'','''')'

salut