Effacer le contenue d'une cellule lors d'un changement

Bonjour,

J'ai un catalogue de matériel avec les numéro d'article par matériel.

Depuis ma feuille "Modif Saisie" j'aimerai que lorsque dans la colonne B ou figure le nom du matériel, je change le nom de ce matériel (pour rectifier l'erreur lors de la saisie) la cellule correspondante de la colonne C du nom de l'article devienne vierge.

B C

1 Nom matériel Article

2 Marteau N°1

3 Marteau N°15

4 Marteau N°2

5 Eponge N°23

En fait j'aimerai que lorsque je change B3 par une liste déroulante cela efface C3

Je pourrai passer par un Private sub dans la feuille "Modif Saisie" mais en VBA je ne sais pas comment lui dire qu'il faut effacer la cellule à droite de la cellule en cours de sélection après le changement de cette dernière. Qu'il ne m'efface pas la cellule de la colonne C et de la même ligne à chaque fois que je pointe sur la colonne B sans changer le contenue de la cellule.

Merci pour votre aide

Bonsoir,

Vas dans VBA dans la feuille concernée par ta demande et place les deux codes suivants :

Public valeur As String
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Macro par Dan pour Eric2008 le 29/05/08
If Not Intersect(Target, Range("B2", Range("B65536").End(xlUp))) Is Nothing Then
Select Case Target
Case Is = valeur
Exit sub
Case Else
Target.Offset(0, 1).ClearContents
End Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Macro par Dan pour Eric2008 le 29/05/08
If Not Intersect(Target, Range("B2", Range("B65536").End(xlUp))) Is Nothing Then
valeur = Target
End If
End Sub

Amicalement

Dan

[quote="Eric2008"]Merci beaucoup cela fonctionne à merveille