Maro qui ne se lance pas avec DEL et Worksheet_Change
Bonjour,
comme vous le verrez j'ai un fichier en PJ. Quand je modifie le nom en C1 (menu déroulant) j'ai sa traduction qui apparait dans C7 via la macro qui se lance avec Worksheet_Change. Tout est normal.
Par contre quand je change le contenu de la C1 en appuyant sur DEL, rien ne se passe.
j'ai cherché et testé mais rien ne marche!!!
N'hésitez pas à me faire part de vos lumières car je suis dans une vraies impasse!!!
merci par avance
Bonjour
Fonctionnement normal
Quand tu écris (via la liste de validation) tu n'écris que sur une cellule : C1 --> If Target.Address = "$C$1" Then --> Exact
Quand tu effaces (Del) tu effaces 6 cellules C1 à E2 ---> If Target.Address = "$C$1" Then ---> Faux
Remplaces ce test par
If Target.Range("A1").Address = "$C$1" ThenBonjour,
Modifier la macro de la manière suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("C1"))
If Not isect Is Nothing Then
Call Module1.MAJ_titre_recette
End If
End SubNota : les cellules fusionnées font rarement bons ménage avec les macros...
[EDit] Oups ! Salut Banzai !
A+
Merci à vous,
c'est vraiment idiot de ma part! En voyant intersect, j'ai opté pour une solution que j'avais déjà dans un autre code:
If Not Application.Intersect(Target, Range("C1:E2")) Is Nothing Then
'macro à lancer
End Ifbonne soirée!