CyberNeo99
XLDnaute Occasionnel
Bonjour,
C'est encore moi. Cette fois tout marche dans mon code mais j'aimerais pouvoir faire exécuter ce code à la fermeture du fichier lors de sa sauvegarde car il reste toujours la possibilité qu'une personne change la valeur que le VLookup va placer dans la cellule de la colonne D et je voudrais qu'il puisse refaire le calcul pour que la bonne valeur soit palcer dans cette cellule. La façon que je vois est lors de la sauvegarde du fichier en mettant dans ThisWorkBook avec BeforeClose il suffirati de mettre le code sauf que je vois un autre problème si je mets le code
If Not Application.Intersect(Target, Range("B2:B10")) Is Nothing Then
il n'identifie pas quelle feuille....
Je me demandais si c'est possible d'appeler dans ThisWorkBook la macro du code Worksheet_Change ??? Si ou comment doit-on écrire le code....
Grand Merci à l'avance
Neo
C'est encore moi. Cette fois tout marche dans mon code mais j'aimerais pouvoir faire exécuter ce code à la fermeture du fichier lors de sa sauvegarde car il reste toujours la possibilité qu'une personne change la valeur que le VLookup va placer dans la cellule de la colonne D et je voudrais qu'il puisse refaire le calcul pour que la bonne valeur soit palcer dans cette cellule. La façon que je vois est lors de la sauvegarde du fichier en mettant dans ThisWorkBook avec BeforeClose il suffirati de mettre le code sauf que je vois un autre problème si je mets le code
If Not Application.Intersect(Target, Range("B2:B10")) Is Nothing Then
il n'identifie pas quelle feuille....
Je me demandais si c'est possible d'appeler dans ThisWorkBook la macro du code Worksheet_Change ??? Si ou comment doit-on écrire le code....
Grand Merci à l'avance
Neo
Pièces jointes
-
Insertion de formule dans une cellule si autre cellule non vide par code VBA v5.xls35.5 KB · Affichages: 55
-
Insertion de formule dans une cellule si autre cellule non vide par code VBA v5.xls35.5 KB · Affichages: 59
-
Insertion de formule dans une cellule si autre cellule non vide par code VBA v5.xls35.5 KB · Affichages: 63