Microsoft 365 Comment effacer une cellule en remplissant une autre

[ChantalTreize]

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

 

[Victor21]

Bonjour.
En B2 , mise en forme conditionnelle : =D2<>"" couleur du fond de B2 et couleur de police identiques.

 

[Eric C]

Bonjour le forum
Bonjour ChantalTreize, bonjour Victor21

Sans passer par une MFC :

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