macro commune à plusieurs feuilles actives

[jean paul]

bonjour à tous

Dans un classeur partagé chaque utilisateur utilise une feuille qui lui est attribuée
j'aurais voulu faire une seule macro commune utilisable par tous ,mais j'ai un probleme au niveau du non de chaque feuille

existe il une possibilite de code lorsque la feuille de l'utilisateur est activee
pour remplacer ici dans l'exemple "feuill1"

Sub Macro2()

Sheets("Feuil1").Select

ActiveSheet.Unprotect

merci pour vov réponses JP

 

[pierrejean]

Re : macro commune à plusieurs feuilles actives

bonjour JP

A tester:

[COLOR=black]Sub Macro2()

Sheets(Activesheet.name).Select

ActiveSheet.Unprotect[/COLOR]

mais a priori

[COLOR=black]Sub Macro2()


ActiveSheet.Unprotect 
[/COLOR]

devrait suffire

 

[jean paul]

Re : macro commune à plusieurs feuilles actives

Merci Pierre jean ,je vais regarder ceci pour la suite de la macro

 

[jean paul]

Re : macro commune à plusieurs feuilles actives

re bonjour

j'ai essayé votre code ca posé un probleme pour la suite de la macro avec les autres pages communes

enfin compte je recupere le nom de l'onglet en a1 avec

=STXT(CELLULE("Filename";A1);TROUVE("]";CELLULE("Filename")) + 1;31)

sub macro1()
Dim xx
xx = Range("a1")

Sheets(xx).Select

bon dimanche à tous

 

[pierrejean]

Re : macro commune à plusieurs feuilles actives

re

J'avoue ne pas comprendre !!!!

Tu selectionnes la feuille deja selectionnée ,quelle que soit la methode adoptée !!

Mais si tu es satisfait c'est l'essentiel

 

[Gorfael]

Re : macro commune à plusieurs feuilles actives

Salut jean paul, pierrejean et les autres

Dans un classeur partagé chaque utilisateur utilise une feuille qui lui est attribuée
j'aurais voulu faire une seule macro commune utilisable par tous ,mais j'ai un probleme au niveau du non de chaque feuille

Premièrement : je crois me souvenir que les macros dans les classeurs sur réseau ont quelques difficultés (mais comme je n'en utilise pas... 😀)

Au lieu de demander un bout de code qui (me) semble inutile (active sheet est la seule et unique feuille activée sur un micro a un moment donné), ne serait-il pas plus simple d'expliquer ce que tu veux faire (le but) ? Quelque soit la réponse, elle ne conviendra peut-être pas au problème, mais comme on ne connaît pas le problème...
A+

 

[jean paul]

Re : macro commune à plusieurs feuilles actives

RE bonsoir

je vais tenter de vous fournir une explication correct, chaque utilisateur à une feuille avec son nom sur l'onglet et une feuille commune à tous ou l'on recupere diverses infos
donc je voulais creer une seule macro

Sheets("commune").Select
Range("A1:A960").Select
Selection.Copy
Sheets("MOMO").Select' feuille utilisateur ici MOMO donc ca ne pouvait marcher pour la feuillee DEDE
Range("A1").Select
ActiveSheet.Paste

Donc j'ai fait ceci
en a1 =STXT(CELLULE("Filename";A1);TROUVE("]";CELLULE("Filename")) + 1;31)

sub macro1()
Dim xx
xx = Range("a1")

Sheets("commune").Select
Range("A1:A960").Select
Selection.Copy
Sheets("xx").Select
Range("A1").Select
ActiveSheet.Paste


en esperant d'avoir ete clair bone soiree à tous

 

[pierrejean]

Re : macro commune à plusieurs feuilles actives

Re

Avec une explication (un peu plus ) complete on va peut-etre avancer

teste ceci

Sub macro1()
  Sheets("commune").Range("A1:A960").Copy Destination:=ActiveSheet.Range("A1")
End Sub

 

[jean paul]

Re : macro commune à plusieurs feuilles actives

bonjour
je reprends mon classeur ,jai essayé votre code et cela me convient

merci et bonne soirée à tous