Macro pour x boutons

[fenec]

Bonsoir le forum

Cherchant à alléger mon fichier, je reviens vers vous, ayant plusieurs macros qui servent plusieurs fois dans mon fichier j’aimerais savoir s’il est possible d’affecter un code à deux autres boutons sans devoir y recopier le code

Vous joint un exemple avec un code en autre

Cordialement

Fenec

 

[bof]

Re : Macro pour x boutons

Bonjour,
Remplacer les macros existante par la macro suivante :

Private Sub CommandButton1_Click()
ButtonClick
End Sub

Créer un module standart (Module1) avec la macro suivante :

Sub ButtonClick()
Dim P As Range
Application.ScreenUpdating = False
Set P = Cells(Cells(Rows.Count, 2).End(xlUp).Row - 1, 2).Resize(1, 15)
   P.Copy
   P.Insert Shift:=xlDown
   On Error Resume Next 'insertions consécutives
   P.SpecialCells(xlCellTypeConstants).ClearContents
   On Error GoTo 0
   Application.CutCopyMode = False
   Rows(P.Row).RowHeight = 30 'hauteurs de lignes différentes
   Rows(P.Row + 1).RowHeight = 50
Application.ScreenUpdating = True
End Sub

A+

 

[Efgé]

Re : Macro pour x boutons

Bonjour fenec, bonjour bof
Un petit module de classe peut être ?
Tous les CommandButtons s'apellant "Ajouter lignes" de toutes les feuilles seront pris en compte à l'ouverture du classeur
Il y a donc une "Workbook_Open" ...
Cordialement

 

[fenec]

Re : Macro pour x boutons

Bonjour le forum, Bof,Efgé

Viens de tester vos propositions ,elles fonctionnent tres bien mais je rencontre un soucis car si je protège mes feuilles cela ne marche plus

J'ai essayé avec

Sheets("Feuil1","Feuil2","Feuil3").Unprotect Password:="toto"

mais ca ne fonctionne pas

A+

 

[Efgé]

Re : Macro pour x boutons

Re
En ce qui concerne ma proposition:
Dans le module de classe ajoute:

With Wks
   .Unprotect Password:="toto"
   'Le code

et à la fin:

   .Protect Password:="toto"
End With

Cordialement

 

[fenec]

Re : Macro pour x boutons

Re,
Venant de modifier je rencontre un problème

Erreur d’exécution’91’ :
Variable objet ou variable de bloc With non défini

Sur

.unprotect password := »toto »

 

[Efgé]

Re : Macro pour x boutons

Re,
Tu ne peux pas utiliser

With Wks

avant d'avoir déclarer wks

Set Wks = ButtonGroup.Parent

Je te laisse le code revu.

Cordialement

 

[fenec]

Re : Macro pour x boutons

Re,

Je venais de trouver je m'étais deux fois

With Wks

et

End With

Merci ca fonctionne

Pour mes autres macros je peux utiliser le meme principe ou "Workbook_Open" n'est valable que pour une macro?

Cordialement

A+

 

[Efgé]

Re : Macro pour x boutons

Re,
Dans mon exemple, le workbook open ne sert qu'a cibler les objets pris en compte par le module de classe.
Si les boutons "Ajouter lignes" des feuilles doivent effectuer d'autres actions, il faudra les ajouter directement dans le module de classe.

Si cette solution te parrait par trop lourde à gérer, la solution proposée par Bof, sera une aproche à creuser.

Regarde ce que tu préfère, et reviens si tu rencontre des problèmes.

Cordialement

 

[fenec]

Re : Macro pour x boutons

Re,

En fait les boutons "ajouter lignes" n’ont pas d’autres actions
Il s’agit d’une autre macro qui me sert aussi plusieurs fois dans d’autres onglets
Je viens de la rajouter dans l’exemple

J’espère ne pas abuser

Cordialement

 

[Efgé]

Re : Macro pour x boutons

Re

Tu n'abuses pas, je m'atendais à un fil fourni en proposant mon module 🙂

Comme il y a deux types de boutons, je fais deux classes.
J'ai mis des noms plus parlant pour les variables et pour les modules.
Je pense que tu comprendras mieux le fonctionnement.

N'hésite pas si question il reste. ( (c) Victor21) 😀

Cordialement

 

[Si...]

Re : Macro pour x boutons

salut

Si... on veut éviter "la guerre des boutons" et les Modules de Classe, on les élimines 😉!
Avec une macro évènementielle "Workbook_SheetBeforeDoubleClick" dans ThisWorkbook.
Ai rajouté des lignes masquées pour faciliter la programmation (suppression de ligne).

 

[fenec]

Re : Macro pour x boutons

Re,et bonsoir Si...

Vais essayer de comprendre ton code et reviendrais si besoin mais oui des questions il risque d'en avoir ,une me viens de suite à l'esprit

Quel est la différence entre un module et un module de classe?

Si...

Merci pour ta proposition je vais également essayer de comprendre ton code

La route est encore longue avant d'arriver à faire cela tout seul mais merci à vous et tout le forum qui me permette d'apprendre tous les jours

Cordialement

 

[fenec]

Re : Macro pour x boutons

Bonsoir le forum,Efgé,Si...

Venant de regarder d'un peu plus près vos solutions afin de comprendre pourriez vous m'éclairer sur:

Efgé,
Je ne comprends pas dans thisworkbook "OLEObject"

Si...,
Ta procédure est intéressante mais je ne la comprends pas donc imposible pour moi de la modifier pour que celle-ci prenne en compte les formule dans l'insersion d'une ligne

Cordialement

 

[laetitia90]

Re : Macro pour x boutons

bonsoir tous 🙂🙂

pas forcement tout suivie ??
pourquoi pas simplement prendre un bouton (contrôle de formulaire)
dans ton premier fichier j'ai cree un bouton qui appel une macro tu recopie ce bouton par click droit sur autant de feuilles que tu veus..... tu call toujours la méme macro ???