Code identique pour 2 plage différente

[Patanes]

Bonjour,

N'étant pas très doué en vba, j'ai du mal à faire ce que je souhaite. J'ai déjà été dépané par Kjin et Robert sur un pb et je reviens sur le forum pour un autre pb . Je n'arrive pas à faire fonctionner un même code sur deux ou trois plages différentes(voir fichier joint) .Pouvez vous m'aider

 

[Pierrot93]

Re : Code identique pour 2 plage différente

Bonjour,

peut être déjà en modifiant le test ainsi :

If Intersect(Target, Range("A1:D8,F1:H8")) Is Nothing Or Target.Count > 1 Then Exit Sub

bonne journée
@+

 

[Patanes]

Re : Code identique pour 2 plage différente

J'ai déjà essayé mais cela groupe les deux plages, quand on saisi dans une plage cela efface la ligne dans l'autre plage

 

[Pierrot93]

Re : Code identique pour 2 plage différente

Re,

comme ceci alors :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:D8")) Is Nothing Then
    If Target = "1" Then
     Application.EnableEvents = False
        Range("A" & Target.Row & ":D" & Target.Row).ClearContents
       Target = "1"
        Application.EnableEvents = True
    End If
End If
If Not Intersect(Target, Range("F1:H8")) Is Nothing Then
    If Target = "1" Then
     Application.EnableEvents = False
        Range("F" & Target.Row & ":H" & Target.Row).ClearContents
       Target = "1"
        Application.EnableEvents = True
    End If
End If
End Sub

 

[Patanes]

Re : Code identique pour 2 plage différente

C'est Nikel ça fonctionne comme il faut
merci de ton aide