Réduction nbre de macros identiques

Dan

XLDnaute Barbatruc

• 29 Octobre 2005

• #2

Bonsoir,

Une manière simple est de subdiviser ta macro comme suit :

1. Création d'un module pour le classeur

- Donne un nom à ta macro (par ex : Sub Test)
- Place les instructions à exécuter venant de 'Private Sub Worksheet_Change(ByVal Target As Range)'

2. Private Sub Worksheet_Change(ByVal Target As Range)

Dans cette macro actuelle après avoir déplacé les instructions vers la macro Test, fais appel à ta macro TEST. Ce qui donne :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Call Test
End sub

Ceci est juste une proposition sans avoir connaissance du code actuel que comporte ta macro Private sub.

Si pb n'hésite pas



Message édité par: Dan, à: 29/10/2005 22:18

 

Vote positif 0 Vote négatif

F

Francis38

Guest

• 29 Octobre 2005

• #3

Bonsoir Dan, et MERCI,

C'est parfait, ca marche comme je le souhaitais.
Par contre il me reste un petit souci.
Dans la dernière instruction, le nom de chaque feuille est normalement repris, donc comme la procédure fait appelle à 'Sub Test' il n'y a que la feuille 'CLA C4' qui est concernée.(voir procédure ci après.)
Comment dois-je procéder, STP ?

With Worksheets('CLA C4').Range('C6:C100').Characters(Start:=1, Length:=1).Font
.Name = 'Comic Sans MS'
.FontStyle = 'Gras'
.Size = 10
End With

Encore merci, à Dan, au FORUM.

 

Vote positif 0 Vote négatif

ya_v_ka

XLDnaute Impliqué

• 29 Octobre 2005

• #4

Salut

si c'est la feuille qui appelle la macro qui est concernée, peut-être qu'avec ActiveSheets en place...

ya'v

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 29 Octobre 2005

• #5

Bonsoir

Comme dis Ya_V_Ka :

remplace 'Worksheet('CLA4')'

Par 'Activesheet'

 

Vote positif 0 Vote négatif

F

Francis38

Guest

• 29 Octobre 2005

• #6

Bonsoir ya__vka

Faut-il écrire comme celà, car si c'est le cas ça ne fonctionne pas, le message suivant s'affiche 'Objet requis' en surlignant la première phrase
With ActiveSheets.Range('C6:C100').Characters(Start:=1, Length:=1).Font
.Name = 'Comic Sans MS'
.FontStyle = 'Gras'
.Size = 10
End With

Francis38

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 29 Octobre 2005

• #7

Re Francis,

A la place de : With ActiveSheets.Range('C6:C100').Characters(Start:=1, Length:=1).Font

Mets : With ActiveSheet.Range('C6:C100').Characters(Start:=1, Length:=1).Font

 

Vote positif 0 Vote négatif

F

Francis38

Guest

• 29 Octobre 2005

• #8

C'est bien la faute du S de ActiveSheets qui empêchait la macro d'aboutir.
Donc la solution de ya_v_ka était parfaite.
Comme quoi une erreur de frappe !!!!!

Encore un grand MERCI à :
ya_v_ka,
Dan,
Le FORUM.

Francis38.

 

Vote positif 0 Vote négatif

ya_v_ka

XLDnaute Impliqué

• 30 Octobre 2005

• #9

salut tout le monde

content que ca aie fonctionné... je rame encore entre les sheets et les sheet... je dois encore toujours essayer toutes les possibilités

milles fois sur le metier tu remettras l'ouvrage... pfff

ya'v

 

Vote positif 0 Vote négatif