Macro qui s'active dans plusieurs feuilles Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 477
Appréciations reçues : 10
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 25 avril 2019, 16:27

Je trouve pas tes mots de passe.

Image
Sans titre.png
Sans titre.png (14.09 Kio) Vu 36 fois
Pour coder les opérations simples, enregistrer une macro avec la manipulation que vous voulez faire. ;;)
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 415
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 25 avril 2019, 16:28

Bonjour,

Est ce que toutes tes Feuilles 1, 2, 3, 4, 5, 6, 7, 8, 9 sont structurées exactement de la même façon pour qu'un seul et même code puisse correctement inter-agir avec chacune de tes feuilles ???
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 415
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 25 avril 2019, 16:34

fronck a écrit :
25 avril 2019, 16:27
Je trouve pas tes mots de passe
@ fronck

Ils se trouvent dans ThisWorkbook ... ;;)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets(1).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="BUFRA2020!"
    Sheets(2).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="CDE2040@"
    Sheets(3).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="CVA2042$"
    Sheets(4).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="JEN2048#"
    Sheets(5).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="JEN2048#"
    Sheets(6).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="IIN2020!"
    Sheets(7).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="CVA2041$"
    Sheets(8).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="HSE2045?"
    Sheets(9).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="CVA2042$"
End Sub
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 477
Appréciations reçues : 10
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 25 avril 2019, 17:25

Ok messieurs, fallait me dire en visual basic dans le développeur.
La macro se fait sur les onglets seulement si on enléve la protection des feuilles.
Pour coder les opérations simples, enregistrer une macro avec la manipulation que vous voulez faire. ;;)
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 415
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 25 avril 2019, 17:29

La question la plus importante demeure toujours la même ...

Est-ce-que toutes les Feuilles ont exactement la même structure ...?
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 477
Appréciations reçues : 10
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 25 avril 2019, 18:11

Hello,

Essayes de voir si çà fonctionne avec ce fichier.
Suivi IIN1.xlsm
(223.67 Kio) Pas encore téléchargé
Pour coder les opérations simples, enregistrer une macro avec la manipulation que vous voulez faire. ;;)
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 477
Appréciations reçues : 10
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 25 avril 2019, 18:13

j'ai oublié, il faut prendre la macro 'masquer'.
Pour coder les opérations simples, enregistrer une macro avec la manipulation que vous voulez faire. ;;)
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 415
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 25 avril 2019, 19:41

Re,

Ci-joint un fichier qui reprend ta macro pour toutes tes feuilles ...

A tester ...

En espèrant que cela t'aide
Suivi IIN1 V2.xlsm
(219.79 Kio) Téléchargé 2 fois
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 477
Appréciations reçues : 10
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 25 avril 2019, 19:50

James,
Cà fonctionne pas sur ton fichier, y'a pas de modif.
Le mien fonctionne sans les mots de passe.
a+
Franck
Pour coder les opérations simples, enregistrer une macro avec la manipulation que vous voulez faire. ;;)
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 415
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 25 avril 2019, 19:52

fronck a écrit :
25 avril 2019, 19:50
James,
Cà fonctionne pas sur ton fichier, y'a pas de modif.
Le mien fonctionne sans les mots de passe.
a+
Franck
Perso ...je ne m'occupe pas des mots de passe ...
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message