besoin d'aide URGENTE !!!!!!!

[Jérémie]

Auteur: Jérémie (---.fbx.proxad.net)
Date: 05-08-04 14:30

Salut a tous !

Voila, je dois créer pour une entreprise un devis informatisé avec données injectables dans une GPAO. Le problème est que ce fichier va comporter parfois plus de 80 feuilles. alors pour optimiser le poid du fichier, au lieu de créer un fichier avec 100 pages et pas une de plus ni de moins, je voudrais créer une macro qui me permet de dupliquer la première feuille et au fur et a mesure de leur création, le nom des feuilles vont s'incrémenter de la manière suivante: SE1,SE2,SE3,...
mais, il y a des contraintes techniques que je n'arrive pas a surmonter. Par exemple, je suis arrivé a la feuille SE4. Dans celle-ci il y a des formules qui font réferences a la feuille précedente. Lorsque j'execute ma macro, il me demande de mettre a jours le fichier parce qu'il ne reconnait pas la feuille appelé "nomfeuilprece". Normal! Parce que il aurait du s'appeler "SE3" !!Mon vrai problème est donc sur la syntaxe que doit avoir la variable appelé "nomfeuilpreced" faisant réference au nom de la feuille précedente.

Voici mon petit bout de code qui me fait défaut ( c'est vrai que les formules sont un peu compliquées mais elles sont bonnes, y a pas de soucie )


Sub formulese2(nombrefeuille As Integer)

Dim nbfeuil As Integer

nb = Format(nombrefeuille)------------------->Format, c'est pour convertir un entier en caractere !!!
nomfeuil = ("SE" + nb)
nbfeuil = nombrefeuille - 1
feuilpreced = Format(nbfeuil)
nomfeuilpreced = ("SE" + feuilpreced)
Sheets(nomfeuil).Select
Range("C23:E23").Select
ActiveCell.FormulaR1C1 = "=IF(RC[3]<>"""",IF(SUM(nomfeuilpreced!RC:R[56]C)<>0,MAX(nomfeuilpreced!RC:R[56]C)+10,""""),"""")"
Range("C30:E30").Select
ActiveCell.FormulaR1C1 = "=IF(AND(RC[3]<>"""",SUM(R[-7]C:R[-1]C[2])<>0)=TRUE,MAX(R[-7]C:R[-1]C[2])+1,IF(AND(RC[3]<>"""",SUM(R[-7]C:R[-1]C[2])=0)=TRUE,MAX(nomfeuilpreced!R[-7]C:R[49]C)+10,""""))"


End Sub


Qui peu m'aider ? Merci beaucoup....

 

[jmps]

Yo Véri ! Re le fil,

C'est plus un fil, c'est "Les Tontons Flingueurs" ! LOL !

J'en reste sur le **** ;°)

José

 

[andré]

Salut jmps,

A nouveau une faute d'orthographe !

sur le **** s'écrit : sur le ***.

Tu ne te corrigeras donc jamais ?

Ândré.

 

[jmps]

Salut Ândré,

Comment sais-tu que c'est sur le *** que je suis et pas sur le **** ?

C'est sur que ça prête à ********, mais c'est la nouvelle ***** du *****.

D'un coup je me sent comme un Sch*****pf !

LOL Ândré !

J**é

 

[Vériland]

Niark!

l'avantage d'une telle discussion, c'est que les **** peuvent être interprêtés par chacun comme il l'entend

Moi je pense **** mais p'têt que vous pensez **** ??

ouarf!

Par contre on pourrait aussi remplacer les **** par

... ce qui donnerait pour l'exemple précédent :

Pour enlever des mots interdit, genre

,

et bien d'autre

du même style, en tenant compte de la casse, de la gestion du pluriel et d'un mot placé en fin de phrase comme

c'est p'têt plus rigolo...lol

A+ Vériland