Macros valables dans plusieurs feuilles

Dan

XLDnaute Barbatruc

• 5 Avril 2005

• #2

Bonsoir,

Bon pas facile sans un fichier exemple mais ce que tu peux faire

1. c'est placer ta macro dans Thisworbook. elle sera active pour tout le classeur.

2. utiliser l'expresion SELECT CASE - CASE IS. Vois l'aide à ce sujet pour les explications.

3. Utiliser l'expression IF ... THEN - ELSE IF ..... Vois également l'aide pour les explications.

 

Vote positif 0 Vote négatif

N

niki42

XLDnaute Occasionnel

• 5 Avril 2005

• #3

Salut Dan

Je te joins un petit fichier pour que tu comprennes. En fait mes feuilles se présentent toutes du même style et ont toutes besoin de la m^me macro.
Sinon je pense à une autre solution c'est de faire un userform par feuille, est-ce une bonne idée? [file name=saisiecr2.zip size=23324]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/saisiecr2.zip[/file]

 

Pièces jointes

• saisiecr2.zip

  22.8 KB · Affichages: 20

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 6 Avril 2005

• #4

Bonsoir Niki42, re Dan,


Pourquoi pas Activesheet tout simplement ?

Cordialement

CBernardT

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 6 Avril 2005

• #5

Bonjour,

Comme Bernard vient de te l'écrire, il te suffit dans la macro 'Private Sub CmdOK_Click()' de remplacer 'worksheets ('CBA')' par 'Activesheet'.
Ce qui donne :

With ActiveSheet
derniereligne = .range('a65536').End(xlUp).Row + 1
.....
End with

Bon travail

 

Vote positif 0 Vote négatif

N

niki42

XLDnaute Occasionnel

• 6 Avril 2005

• #6

Salut le forum

Effectivement c'est la meilleur solution et j'y ai pensé mais seulement cette nuit. Comme quoi la nuit porte conseil!!

Merci


Niki

 

Vote positif 0 Vote négatif