Aide correction Macro

[Lone-wolf]

Bonjour à tous,

Sub test()
    Range("B5").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(R[-2]C="""","""",IF(R[-2]C>R[-1]C[2],""C'est moins!"",IF(R[-2]C<R[-1]C[2],""C'est plus!"",""Bravo! C'est bien le ""&R[-2]C)))"
End Sub

J'aimerais faire ceci avec un nombre aléatoire mais sans la formule et,
si possible, effacer le champ si le nombre n'est pas trouvé.

Merci Shöne! 😉

 

[Lone-wolf]

Re : Aide correction Macro

Problème résolu.