Lone-wolf
XLDnaute Barbatruc
Bonjour à tous,
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! 😉
Code:
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 SubJ'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! 😉