nombres de feuilles et egalisation de celluleRésolu

Question

Bonjour, je ne connais pas le code qui permet de detecter le nombre de feuilles au total et le numero de la feuille. c'est pour ecrire ds une cellule qui est groupé quand je clic dessus : column :JKL sont orangé line: 8 orangé faut il que je mette dim i as integer i = 1 to 100 sheet(i).range("JKL8") ou range("K8").value = page . of . une idée??? j ai aussi un autre prob: j ai a peu près 100 feuilles . j aimerai mettre la cellule ABCD 8 (car elle est groupé). j aimerai que cette cellule soit la même sur toutes les feuilles. une idée merci merci

tomy7 · Accepted Answer

les solutions:

dim Mysheet as worksheet
set Mysheet = activeworkbook.worksheets(1)
worksheets.fillacrosssheets Mysheet.range("A8: D8").value , xlfillwithall
worksheets.fillacrosssheets Mysheet.range("E8:I8").value , xlfillwithall

dim i asinteger
for i = 1to sheets.count
sheets(i). range("J8:L8"). value = "page " & i & " of " & sheet.count
next i

cs_MPi · Answer

Salut Tomy7,
Merci pour la réponse.

Je ne connaissais pas ce FillAcrossSheets
Intéressant...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Nombres de feuilles et egalisation de cellule

2 réponses

Votre réponse

Discussions similaires