Aide sur un code macro évenementielle Change

[jipi06]

Bonjour à toutes et tous

j'ai écris ce code qui me permet sur le changement d'une cellule d'affecter la même valeur à 2 autres cellules.
J'aimerais savoir si il est possible de le simplifier et concaténer 2 ou N affectations de type :

If Cell.Value = "" Then Cell.Offset(0, -2) = "" AND Cell.Offset(0, 2) = ""

Merci beaucoup de votre aide

Jipi




Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range

If Not Intersect(Target, Range("c1:c20")) Is Nothing Then
Application.EnableEvents = True
For Each Cell In Target

If Cell.Value = "NN" Then Cell.Offset(0, 2) = "NN"

Next Cell

End If
If Not Intersect(Target, Range("c1:c20")) Is Nothing Then
Application.EnableEvents = True
For Each Cell In Target

If Cell.Value = "NN" Then Cell.Offset(0, -2) = "NN"

Next Cell

End If
If Not Intersect(Target, Range("c1:c20")) Is Nothing Then
Application.EnableEvents = True
For Each Cell In Target

If Cell.Value = "" Then Cell.Offset(0, -2) = ""

Next Cell

End If
If Not Intersect(Target, Range("c1:c20")) Is Nothing Then
Application.EnableEvents = True
For Each Cell In Target

If Cell.Value = "" Then Cell.Offset(0, 2) = ""

Next Cell

End If
Application.EnableEvents = True
End Sub

 

[Staple1600]

Re : Aide sur un code macro évenementielle Change

Bonjour

Tu peux essayer avec un Select Case

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c1:c20")) Is Nothing Then
Application.EnableEvents = False
Select Case Target.Value
Case Is = ""
Target.Offset(0, 2) = ""
Target.Offset(0, -2) = ""
Case Is = "NN"
Target.Offset(0, 2) = "NN"
Target.Offset(0, -2) = "NN"
End Select
Application.EnableEvents = True
End If
End Sub

EDITION: Re Pierrot93

 

[Pierrot93]

Re : Aide sur un code macro évenementielle Change

Bonjour,

peut être ceci, non testé...

If Cell.Value = "" Then Range(Cell.Offset(0, 2), Cell.Offset(0, -2)) = ""

bonne journée
@+

 

[jipi06]

Re : Aide sur un code macro évenementielle Change

Merci beaucoup Pierrot
je vais utilser Case

A bientôt

Jipi