Effacer données

[atlantique444]

Bonjour,

J'ai un tableau qui comprends des données de A5 à N309
Lorsque je modifie ou éfface une donnée en H5, je voudrais que la donnée située en N5 (6 cellules à droite) s'éfface automatiquement.
Existe t-il une solution

merci

 

[Dull]

Re : Effacer données

Salut atlantique444, le Forum

Pas sur du tout d'avoir compris mais teste ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A5:N309")) Is Nothing Then Target.Offset(0, 6).ClearContents
End Sub

Bonne Journée

 

[13GIBE59]

Re : Effacer données

Salut atlantique, bonjour Dull.

Ca ne serait pas plutôt :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("[B]H5[/B]")) Is Nothing Then Target.Offset(0, 6).ClearContents
End Sub

 

[Dull]

Re : Effacer données

Salut JB , re le Fil

J'ai un tableau qui comprends des données de A5 à N309

j'ai supputé qu' H5 était un exemple: que se soit A20 ou N300 la cellule 6colonnesàdroitedoitêtreeffacée

Est-ce cela? A voir la réaction d'Atlantique444

Bonne Journée

 

[13GIBE59]

Re : Effacer données

Effectivement, c'est une interprétation à laquelle je n'avais pas pensé.
Attendons donc.