Macro qui s'active dans plusieurs feuilles

Bonjour à tous,

Voilà j'ai un fichier avec plusieurs feuilles qui reprennent dans les 4 premières colonnes les même chose.

J'ai une colonne "État", j'ai fait une petite macro pour que lorsque je clique sur le bouton les lignes qui sont en "archivé" se masque dans la feuille "Suivi Contrats".

Ce que j'aimerais c'est que cette macro se fasse en même temps dans toutes les autres feuilles quand je clique sur le bouton de la feuille "Suivi contrat", sauf sur la feuille "Suivi Commande".

J'espère avoir été clair.

Pouvez-vous m'aider ?

Je vous remercie

16suivi-iin1.xlsm (226.46 Ko)

Bonjour,

Dans ton fichier joint ... le module1 est vide ...

Pas de macro ...

Bonjour,

Dans ton fichier joint ... le module1 est vide ...

Pas de macro ...

Si tu ouvre le développeur, la macro est dans la feuille "suivi commande"

Bonjour,

Pour ton info ... la macro est dans la feuille "suivi commande" est

une macro évènemenielle ...

Bonjour,

Pour ton info ... la macro est dans la feuille "suivi commande" est

une macro évènemenielle ...

Je ne connais pas la différence entre une macro et une macro événementielle. Tu penses qu'on peut faire en sorte qu'elle se répète sur les autres feuilles ?

Pour qu'une macro évènementielle s'applique à plusieurs feuilles ... il faut la transformer en une macro ' générique ' stockée dans le module ThisWorkbook ...

ou

elle peut être transformée en macro standard ... et être appelée pour n'importe quelle feuille au choix ...

J'espère que cette explication est assez claire ...

Pour qu'une macro évènementielle s'applique à plusieurs feuilles ... il faut la transformer en une macro ' générique ' stockée dans le module ThisWorkbook ...

ou

elle peut être transformée en macro standard ... et être appelée pour n'importe quelle feuille au choix ...

J'espère que cette explication est assez claire ...

Ok l'explication est claire j'ai pas de soucis la dessus. Mais du coup tu aurais une idée pour faire en sorte que si je clique sur mon bouton dans la feuille 3 la macro agisse dans la feuille 1, 3, 4, 5, 6, 7, 8, 9 ?

Bonjour,

Ta macro s'éxécute pas en page 1.

Tu pourrais enlever la protection qu'on puisse travailler dessus ton fichier ?

merci

Franck

Bonjour,

Ta macro s'éxécute pas en page 1.

Tu pourrais enlever la protection qu'on puisse travailler dessus ton fichier ?

merci

Franck

Tous les mots de passe sont dans le développeur dans "thisworkbook"

Bonjour,

Ta macro s'éxécute pas en page 1.

Tu pourrais enlever la protection qu'on puisse travailler dessus ton fichier ?

merci

Franck

J'ai tenté ça mais...ça n'a pas l'air de trop marcher

Private Sub CommandButton1_Click()

Application.EnableEvents = False 'interdit les macro événementielles

Application.ScreenUpdating = False 'masque les raffraîchissements d'écran

ActiveCell.Select 'enlève le focus au bouton

Sheets(1).Unprotect Password:="BUFRA2020!"

For Each c In Range("G2", [G65000].End(xlUp))

If c.Value = "Archivé" Then c.EntireRow.Hidden = True

Next c

Sheets(4).Unprotect Password:="JEN2048#"

For Each c In Range("G2", [G65000].End(xlUp))

If c.Value = "Archivé" Then c.EntireRow.Hidden = True

Next c

Sheets(5).Unprotect Password:="JEN2048#"

For Each c In Range("G2", [G65000].End(xlUp))

If c.Value = "Archivé" Then c.EntireRow.Hidden = True

Next c

Sheets(6).Unprotect Password:="IIN2020!"

For Each c In Range("G2", [G65000].End(xlUp))

If c.Value = "Archivé" Then c.EntireRow.Hidden = True

Next c

Sheets(7).Unprotect Password:="CVA2041$"

For Each c In Range("G2", [G65000].End(xlUp))

If c.Value = "Archivé" Then c.EntireRow.Hidden = True

Next c

Sheets(8).Unprotect Password:="HSE2045?"

For Each c In Range("G2", [G65000].End(xlUp))

If c.Value = "Archivé" Then c.EntireRow.Hidden = True

Next c

Sheets(9).Unprotect Password:="CVA2042$"

For Each c In Range("G2", [G65000].End(xlUp))

If c.Value = "Archivé" Then c.EntireRow.Hidden = True

Next c

Sheets(1).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="BUFRA2020!"

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$"

Application.EnableEvents = True 'autorise les macro événementielles

Application.ScreenUpdating = True 'masque les raffraîchissements d'écran

End Sub

Je trouve pas tes mots de passe.

sans titre

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 ???

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

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.

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

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

Hello,

Essayes de voir si çà fonctionne avec ce fichier.

5suivi-iin1.xlsm (223.67 Ko)

j'ai oublié, il faut prendre la macro 'masquer'.

Re,

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

A tester ...

En espèrant que cela t'aide

6suivi-iin1-v2.xlsm (219.79 Ko)

James,

Cà fonctionne pas sur ton fichier, y'a pas de modif.

Le mien fonctionne sans les mots de passe.

a+

Franck

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 ...

Rechercher des sujets similaires à "macro qui active feuilles"