Effacer le contenu de cellules en fonction d'une autre
Résolu
delph42
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
delph42 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
delph42 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
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
3 réponses
-
Bonjour,
Avant de poursuivre, est-ce que le code de cette macro fonctionne?
Merci du retour.
-
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
-
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 SubCdlmnt
