Effacer contenu cellule en fonction du résultat d'une autre
Bonjour à tous,
Après plusieurs recherches infructueuses, je me permets cet appel à l'aide.
Le problème à sûrement déjà été évoqué, mais je n'ai pas trouvé de solution pour mon fichier.
Je souhaiterais mettre un code dans ma feuille qui pour chaque changement effectue une correction automatique :
Si la valeur de A3 = à "3" ou "LEER" alors le contenu des cellules B5;B6;B7;D5;D6;D7;F5;F6;F7 soit effacé...
Merci d'avance pour votre aide.
Willau
Bonjour fred2406
Cela me semble parfait !
J'essaie ça avec mon document.
Merci infiniment pour cette solution rapide et efficace !
Meilleurs messages
Willau
@fred2406
J'ai essayé votre code.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A3")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target = "3" Or Target = "LEER" Then Range("B5:B7,D5:D7,F5:F7").ClearContents
Application.EnableEvents = True
End Sub
Dans ma cellule source ("A3"), j'ai 4 options possibles :
"3" et "LEER" --> ou le contenu des autres cellules doit être effacé
"2" et "1" --> là, rien ne doit se produire.
Avec le code :
If Intersect(Target, Range("A3")) Is Nothing Then Exit Sub
Application.EnableEvents = False
cela ne fonctionne pas.
Quel code écrire pour dire "Si Target = 2 ou 1, alors rien ne se passe ?
D'avance merci !
Bonjour
C'est déjà le cas ...
la ligne
If Intersect(Target, Range("A3")) Is Nothing Then Exit Subpermet de déterminer si la cellule qui vient d'etre modifiée est la cellule A3 ou pas ....
si c'est A3 on fait la suite du code si pas A3 on quitte exit sub
dans la suite du code puisque on a modifié la cellule A3 je vérifie le contenu de la cellule A3
If Target = "3" Or Target = "LEER" Then Range("B5:B7,D5:D7,F5:F7").ClearContentssi A3 = 3 ou A3 = LEER alors on efface....
par conséquent si il y a autre chose que 3 ou LEER, le code ne fait rien ....
donc je ne comprends pas bien la question....
Fred
Merci pour la réponse
Dans la cellule A3, mes utilisateurs peuvent écrire également 2 ou 1.
Peut également déjà être inscrit 2 ou 1 dans la cellule.
Je sais qu'il serait mieux de transmettre un fichier avec ma demande.
Peut être que je peux l'envoyer en MP ?
Salutations
Willau
Bonjour Willau,
Essaye avec :
If Target = "1" Or Target = "2" Or Target = "3" Or Target = "LEER" Then Range("B5:B7,D5:D7,F5:F7").ClearContentsdhany
Bonjour Dhany
Ma cellule A3 est une liste déroulante ou l'on peut inscrire soit : 3, 2, 1 ou LEER
Dans le cas où 3 et LEER sont choisis, les autres cellules doivent être effacées (un résultat 3,2,1 ou leer varie chaque semaine et le commentaire doit être effacé si 3 et leer est choisi.
Si 2 et 1 sont choisi, un commentaire sera écrit par l'utilisateur dans les autres cellules références.
Merci
If Target = "3" Or Target = "LEER" Then Range("B5:B7,D5:D7,F5:F7").ClearContentsSi 2 et 1 sont choisis : pas d'effacement et l'utilisateur peut saisir le commentaire de son choix.
dhany