effacer le contenu de cellules en fonction d'une autre Résolu/Fermé

Question

Bonjour,

Encore une colle  pour les pros ! ;)

1/ quelle est le code  de la macro pour  :

Effacer  en même temps les cellules de H28 à H45, de I28 à I45 et de K28 à K45, si dans la cellule K3 est écrit le texte : "KDC" ?

2/  Comment rajouter cette macro sur ma feuille sachant que j'ai déjà la combinaison de macros suivante :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("F28")) Is Nothing Then Range("F30").ClearContents : exit sub

If Not Intersect(Target, Range("S7")) Is Nothing Then  Range("S11:S17").ClearContents : exit sub

If Not Intersect(Target, Range("S11")) Is Nothing Then Range("S13:S17").ClearContents : exit sub

If Not Intersect(Target, Range("S13")) Is Nothing Then Range("S14:S17").ClearContents : exit sub

End Sub

Merci pour votre aide !!!  :)

Windows / Chrome 113.0.0.0

Le Pingou · Answer

Bonjour,

Avant de poursuivre, est-ce que le code  de cette macro fonctionne?

Merci du retour.

Le Pingou · Answer

Bonjour,

En attendant le retour, l'instruction suivante devrait suffire, à placer dans votre code!

If Range("K3") = "KDC" Then
Range("H28:I45,K28:K45").ClearContents
End If

ccm81 · Answer

Re

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F28")) Is Nothing Then Range("F30").ClearContents: Exit Sub
    If Not Intersect(Target, Range("S7")) Is Nothing Then Range("S11:S17").ClearContents: Exit Sub
    If Not Intersect(Target, Range("S11")) Is Nothing Then Range("S13:S17").ClearContents: Exit Sub
    If Not Intersect(Target, Range("S13")) Is Nothing Then Range("S14:S17").ClearContents: Exit Sub
    If Not Intersect(Target, Range("K3")) Is Nothing Then
      If Target.Value = "KDC" Then Union(Range("H28:I45"), Range("K28:K45")).ClearContents: Exit Sub
    End If
End Sub

Cdlmnt

Effacer le contenu de cellules en fonction d'une autre

3 réponses

Discussions similaires