Pb de lancement d'une Macro

[Eric D]

Bonjour à toutes et tous,

Bien que l'on serait mieux dehors par ce temps presque estival, j'ai un soucis avec le lancement d'une partie de Macro.

Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Row = 77 Then

UserForm1.Show
UserForm2.Show
ThisWorkbook.Close SaveChanges:=True

End If

'If Target.Row = 100 Then
If Target.Row = 100 And Target.Column = 2 Then
...

la 1ère va bien, mais quand B100 change la 2ème ne se lance pas???
Il y a une petite différence, je ne sais pas si il y a une importance, J77 est modifié manuellement, mais B100 est modifié par l'application.

Avez vous une solution, merci.

Bon Après midi.

Eric D

 

[galopin01]

Bonsoir,
A mon avis l'erreur est plus loin : toute modification de B100 entraîne le lancement de Worksheet_Change
Si tu place un MsgBox 'Ok' tout de suite après...
If Target.Row = 100 And Target.Column = 2 Then
MsgBox 'Ok'
...
Alors tu verras que la condition est bien évaluée. Il faut donc chercher l'erreur plus loin...
A+

 

[Eric D]

Bonjour Galopin, le forum,

Merci pour ton conseil. Effectivement elle était enclanchée, mais ce que je ne savait pas, c'est que si elle ouvrait et fermait d'un autre classeur, son éxécution était interompue.

Il est vraiment super ce forum, on apprend tout le temps.

Merci encore et bonne journée

Eric D