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
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:
VB:
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