Effacement cellules suite modification autre cellule

[Gil_Se]

Bonjour à tous.
Je souhaite que dès que le contenu d'une certaine cellule est modifié, le contenu de certaines autres cellules soit effacer.
J'ai trouvé cette macro qui fonctionne très bien:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
Range("D4").ClearContents
Range("F4").ClearContents
Range("J4").ClearContents
End If
End Sub

Mais je souhaite que cela soit également pour les cellules du dessous, c-a-d:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
Range("D5").ClearContents
Range("F5").ClearContents
Range("J5").ClearContents
End If
End Sub

etc, etc

Je suppose qu'il existe une autre macro plus simple.
Merci d'avance.
Je vous joins un fichier d'exemple.
Gilles

 

[tototiti2008]

Re : Effacement cellules suite modification autre cellule

Bonjour Gil_se,

à tester :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long
    If Target.Column = 2 Then
        Ligne = Target.Row
        Application.EnableEvents = False
        Range("D" & Ligne & ",F" & Ligne & ",J" & Ligne).ClearContents
        Application.EnableEvents = True
    End If
End Sub

Edit : bon ,le problème c'est que ça affecte toute la colonne B. Je suppose que ça devrait être limité de la ligne 4 à 100 par exemple, donc plutôt :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long
    If Target.Column = 2 and Target.Row>3 and Target.row<100 Then
        Ligne = Target.Row
        Application.EnableEvents = False
        Range("D" & Ligne & ",F" & Ligne & ",J" & Ligne).ClearContents
        Application.EnableEvents = True
    End If
End Sub

 

[Gil_Se]

Re : Effacement cellules suite modification autre cellule

Merci pour cette macro qui fonctionne très bien.
Par contre cela m'a fait découvrir un nouveau problème:
Dans une zone de cellules d'une seconde feuille, était copiée la valeur de ces cellules modifiées.
J'aurais voulu qu'elle soient également effacer.
Un fichier joint pour plus d'explications.
Merci d'avance
Gilles

 

[tototiti2008]

Re : Effacement cellules suite modification autre cellule

Bonjour Gil_Se,

comme tes prénoms sont saisis (même si c'est au travers d'une liste de validation), je vois mal comment une fonction pourrait faire ça. D'ailleurs je ne connais pas de fonction qui efface le contenu d'une cellule... Bref dans ce cas je ne vois qu'une macro (mais je peux me tromper 😉)

 

[Gil_Se]

Re : Effacement cellules suite modification autre cellule

La fonction était juste une préférence. Je pense que la macro est obligatoire...