Import

[Brat'ac]

Bonjour,

Sur un classeur avec 20 feuilles j'ai du code dans Worksheet Activate

J'aimerais que si je modifie le code d'une feuille d'avoir la
possibilité
de le recopier automatiquement dans le Worksheet Activate des autres
feuilles
J'ai cherché sur le net et rien trouvé
Une piste ?
Merci.

[Droopy191]

Post by Brat'ac
Bonjour,
Sur un classeur avec 20 feuilles j'ai du code dans Worksheet Activate
J'aimerais que si je modifie le code d'une feuille d'avoir la possibilité
de le recopier automatiquement dans le Worksheet Activate des autres
feuilles
J'ai cherché sur le net et rien trouvé
Une piste ?
Merci.

Salut,

Si j'ai bien compris votre idée.
Il faut mettre le code dans un module, et adapter le code pour qu'il
prenne en compte la feuille appelante.


Et dans le Worksheet Activate de chaque feuille, appeler le sub
générique, avec éventuellement un paramètre pour la feuille.

[Brat'ac]

Post by Droopy191
Salut,
Si j'ai bien compris votre idée.
Il faut mettre le code dans un module, et adapter le code pour qu'il prenne
en compte la feuille appelante.
Et dans le Worksheet Activate de chaque feuille, appeler le sub générique,
avec éventuellement un paramètre pour la feuille.

Bonjour,

J'explique:

Dans Sub Worksheet_Activate de la première feuille j'ai par exemple
ceci

Private Sub Worksheet_Activate()
Colore_Une_Ligne_Sur_Deux
Calcul_Le_Solde
'Positionne le bouton pour Imprimer sur la ligne figée
ActiveSheet.Shapes("Bouton 1").Left = Range("M1").Left
ActiveSheet.Shapes("Bouton 1").Top = Range("M1").Top
Range("A2").Select
End Sub

Si je rajoute une ligne de code ou plusieurs, j'aimerais pourvoir les
rajouter
sur toutes les feuilles sans le faire manuellement feuille par feuille
avec une procédure sur un bouton par exemple ou tout autre moyen.

[Brat'ac]

Post by Brat'ac

Post by Droopy191
Salut,
Si j'ai bien compris votre idée.
Il faut mettre le code dans un module, et adapter le code pour qu'il prenne
en compte la feuille appelante.
Et dans le Worksheet Activate de chaque feuille, appeler le sub générique,
avec éventuellement un paramètre pour la feuille.

Bonjour,
Dans Sub Worksheet_Activate de la première feuille j'ai par exemple ceci
Private Sub Worksheet_Activate()
Colore_Une_Ligne_Sur_Deux
Calcul_Le_Solde
'Positionne le bouton pour Imprimer sur la ligne figée
ActiveSheet.Shapes("Bouton 1").Left = Range("M1").Left
ActiveSheet.Shapes("Bouton 1").Top = Range("M1").Top
Range("A2").Select
End Sub
Si je rajoute une ligne de code ou plusieurs, j'aimerais pourvoir les
rajouter
sur toutes les feuilles sans le faire manuellement feuille par feuille
avec une procédure sur un bouton par exemple ou tout autre moyen.

Ne pas tenir compte de cette réponse, tellement simple que je n'y ai
pas pensée avec le sub générique
mal réveillé, je me donne une claque :-@ :-@ :-@ >:|