effacer le contenu des cellules selon la condition

[Ilino]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("D1").Value = "1" Then
Range("E1").ClearContents
End If
End Sub

Bonsoir Forum
question très simple comment faire pour généraliser ce code sur l’ensemble des cellule de la colonne D et E

 

[Grand Chaman Excel]

Re : effacer le contenu des cellules selon la condition

Bonsoir Ilino,
Si j'ai bien compris, comme ceci peut-être :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 And Target.Value = "1" Then Target.Offset(0, 1).ClearContents
End Sub

 

[Ilino]

Re : effacer le contenu des cellules selon la condition

Bonsoir GC
Grazie MERCI
et BON DÉBUT DE SEMAINE

 

[Ilino]

Re : effacer le contenu des cellules selon la condition

et Un grand GRAZIE pour le site Grand Chaman Excel | Trucs et astuces pour devenir efficace avec Excel
A+

 

[job75]

Re : effacer le contenu des cellules selon la condition

Bonjour Ilino, Grand Chaman Excel,

Si l'on sélectionne plusieurs cellules, le code du post #2 beugue...

Utiliser plutôt :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [D:D], Me.UsedRange)
If Not r Is Nothing Then
  For Each r In r 'si plusieurs cellules
    If r = "1" Then r(1, 2).ClearContents
  Next
End If
End Sub

A+

 

[Grand Chaman Excel]

Re : effacer le contenu des cellules selon la condition

Bonjour job75, le forum,
Bien vu job75... je n'avais pas testé.
Une autre alternative :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count = 1 Then
      If Target.Column = 4 And Target.Value = "1" Then Target.Offset(0, 1).ClearContents
   End If
End Sub

 

[job75]

Re : effacer le contenu des cellules selon la condition

Re,

Dans ce cas j'écrirais plutôt :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 4 And ActiveCell.Value = "1" Then ActiveCell.Offset(0, 1).ClearContents
End Sub

ou encore :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 And Target(1).Value = "1" Then Target(1, 2)).ClearContents
End Sub

A+

 

[Ilino]

Re : effacer le contenu des cellules selon la condition

buonasera JOB , Grand Chaman Excel et FORUM
Grazie per i commenti ei suggerimenti.😎
A+