attribuer une valeur a une cellule si celle ci est plus grande que rien

[saverloo]

bonsoir,

voila je souhaiterais si par exemple je met un caractère dans la cellule B1( n importe quoi ) il remplace ce que j'ai mis dans cette cellule A1 par la valeur notée dans la cellule A1
si rien de noté dedans alors ne rien faire

je ne me souviens plus comment je faire ceci

 

[mapomme]

Re : attribuer une valeur a une cellule si celle ci est plus grande que rien

Bonsoir saverloo,

D'après ce que j'en ai compris,

mettre le code ci-dessous dans le module de code de la feuille concernée:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [b1]) Is Nothing Then If Not IsEmpty([a1]) Then [b1] = [a1]
Application.EnableEvents = True
End Sub