Effacer données

Dull

XLDnaute Barbatruc

• 13 Octobre 2009

• #2

Re : Effacer données

Salut atlantique444, le Forum

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

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

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 13 Octobre 2009

• #3

Re : Effacer données

Salut atlantique, bonjour Dull.

Ca ne serait pas plutôt :

Code:

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 13 Octobre 2009

• #4

Re : Effacer données

Salut JB , re le Fil

atlantique444 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 13 Octobre 2009

• #5

Re : Effacer données

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

 

Vote positif 0 Vote négatif