Microsoft 365 Comment effacer une cellule en remplissant une autre

ChantalTreize

XLDnaute Occasionnel
Bonjour tout le monde,
Je cherche à savoir, je mets un nombre en B2
Si après je mets un nombre en D2
Je souhaite que B2 s'efface ou se mette en blanc avec les MFC

Merci d'avance pour vos réponse
Chantal
 

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour ChantalTreize, bonjour Victor21

Sans passer par une MFC :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, [D2]) Is Nothing And [B2] <> "" Then
 '[B2] = ""   'Efface le contenu de "B2"
 With [B2]
 .Value = "": .Interior.Color = RGB(255, 255, 255): .Font.Color = RGB(255, 255, 255) 'Efface le contenu de "B2" puis couleur de fond et de police = blanc
 End With
End If
End Sub
Bonne journée à toutes & à tous
Eric c
 

Discussions similaires