Macro sur toutes les feuilles d'un classeur

Marsh Posté le 08-02-2017 à 11:02:53

Bonjour à tous,

j'ai un petit soucis, j'ai une macro qui s'effectue à chaque fois que la valeur d'une cellule est modifiée, cependant elle ne fonctionne que sur la feuille ou la macro est placé.
J'aimerai que cette macro se lance si la valeur d'une cellule change et cela de n'importe quelle feuille (existante ou pas encore)!

Code :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Erreurs
If Target.Value = "1" Then
Target.Value = "115457"
End If
Erreurs:
End Sub

Merci !

Message cité 1 fois

Marsh Posté le 08-02-2017 à 11:02:53

Marsh Posté le 08-02-2017 à 11:47:31

Bonjour,

juste déplacer le code du module de la feuille de calculs
dans celui du classeur - ThisWorkbook - en utilisant l'évènement Workbook_SheetChange …

Marsh Posté le 08-02-2017 à 12:09:45

Bonjour merci mais ça ne fonctionne pas, il y a une erreur dans la déclaration de Workbook_SheetChange...

De plus, est-il préférable d'utiliser "IF ... = ... then ..." pour plusieurs cas où utiliser "Select case..." sachant que ce dernier boucle sur lui même étant donné qu'à chaque fois la valeur de la cellule change...

Message édité par sasafca le 08-02-2017 à 12:23:03

Marsh Posté le 08-02-2017 à 15:39:51

Dans ce cas veillez à effectuer une présentation initiale correcte :

sasafca a écrit :

j'ai un petit soucis, j'ai une macro qui s'effectue à chaque fois que la valeur d'une cellule est modifiée, cependant elle ne fonctionne que sur la feuille ou la macro est placé.

J'ai donc répondu à la question posée ‼

Donc en fait le code présenté initialement ne fonctionne déjà pas !
Il suffit de désactiver temporairement durant l'exécution la détection des évènements via la propriété EnableEvents (cf aide VBA) …

Message édité par Marc L le 08-02-2017 à 15:40:31

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *