Effacer le contenu de cellules en fonction d'une autre
Résolu
delph42
Messages postés
7
Statut
Membre
-
delph42 Messages postés 7 Statut Membre -
delph42 Messages postés 7 Statut Membre -
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
A voir également:
- Effacer le contenu de cellules en fonction d'une autre
- Fonction si et - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Excel
- Effacer les données de navigation sur android - Guide
3 réponses
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 Sub
Cdlmnt
Bonjour !
Oui ma formule ci dessous fonctionne parfaitement :)