Incrémenter une feuille ?

[SOPHIE]

Bonjour à tous !!!

J'ai une petite question à vous poser... Elle se trouve à meme le fichier joint zipé...

Ce serait super si vous pouviez m'aider !

Merci d'avance.

Sophie.

 

[wally]

Bonjour Sophie et le forum,

Regarde dans le fichier joint si cela te convient.


Slts

wally

 

[SOPHIE]

Houlala !..... Je me suis mal exprimée et c'est de mon entière faute...

Méa culpa....

Le fichier et le bouton de macro que tu m'as renvoyé fonctionne à la perfection, mais je voudrais (et c'est la que j'ai merdu...) que le nouvel onglet créé soit identique à l'onglet "Cache", c'est à dire que ça soit le meme document, pret à etre rempli !

Excuses moi....

Sophie.

 

[wally]

Re Sophie et le forum,

Cela devrait aller mieux maintenant...


Slts

wally

 

[Moa]

Salut Wally !

Juste une petite chose.

En faisant de cette manière, ton code se retrouve dupliqué dans chaque WorkSheet.

Il faudrait soit, faire un WorkSheet.Add puis un Copy Paste, soit détruire le code dans les nouvelles feuilles.

Pour éviter d'allourdir le fichier.

@ +

Moa

 

[SOPHIE]

Merci d'intevenir Moa,

Effectivement, je vais utiliser ce fichier au moins 9 ou dix fois par jour pour créer autant d'onglet nouveaux, donc je ne voudrais pas qu'il prenne trop de volume ....

Aurais tu la gentillesse Moa, s'il te plait, d'apporter tes modifications sur ce fichier ? Car pour moi, c'est du Chinois....

Milles merci à Wally et à toi Moa ;-)


Sophie.

 

[SOPHIE]

Attention !!!

J'ai un bug lorsque clic mon bouton ! A la ligne ci-dessous...

Worksheets("CACHE").Copy after:=Worksheets(Worksheets.Count)



Merci encore !

 

[Moa]

Salut Sophie !

Voilà, j'ai modifié le code, afin que ton classeur ne soit pas trop lourd.

Ceci dit, n'ayant plus de bouton ni code, sur les nouvelles feuilles crééent, tu dois repasser par la feuille "Cache", pour relancer la macro.

Ou alors, tu dois passer par le menu Outils / Macro / Macros.

Ou alors affecter un raccourci clavier à ta macro.

Ou alors rajouter un CommandBar avec un accès à ta macro dedans.

Ou un menu Popup.

@ +

Moa

 

[Moa]

Salut Sophie !

J'ai cru comprendre que tu aimais arriver directement dans la cellule qui va contenir la date du jour.

Aussi, j'ai modifié légèrement la macro afin que tu n'aies pas à remplir manuellement la date du jour.

Celà se fera désormais automatiquement.

Regarde l'exemple joint.

@ +

Moa

 

[Moa]

Re Re Re Sophie !

Voilà, j'ai encore modifié ton fichier...héhéhé.

J'ai supprimé le bouton de commande de la feuille cache et je l'ai remplacé par une barre de commande qui s'affiche en haut à droite de ta feuille.

Tu cliques dessus, tu choisis incrémenter et ta macro se lance.

L'avantage est que tu pourras lancer ta macro à partir de n'importe quelle feuille.

L'autre avantage est que tu pourras rajouter des autres macros ou commandes dans cette barre.

De même, maintenant que la date du jour s'affiche automatiquement à la création d'une nouvelle feuille, tu n'as plus besoin d'arriver en cellule G14, donc je te fais arriver directement en cellule E18.

Teste et tiens nous au courant !

@ +

Moa

 

[SOPHIE]

Hé hé Moa !

Trop fort (ou forte !?)

******************

Le fichiers joint de 17h03, avant ton dernier, bug à la ligne ci-dessous marquée d'une fleche :

Sub Incrementer()
Application.ScreenUpdating = False
---> Worksheets("CACHE").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Shapes("CommandButton1").Delete
ActiveSheet.Name = "Feuil" & Worksheets.Count - 1
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets("Feuil" & Worksheets.Count - 1).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
ActiveSheet.Range("G14").Select
ActiveCell = Sheets("Cache").Range("G14").Value
Application.ScreenUpdating = True
End Sub

C'est dommage, car j'aurais pu éventuellement m'en servir pour essayer de le reproduire pour d'autres appli (histoire de m'entrainer...) ....

Par contre, ton tout dernier, avec la barre sur le coté, LA ROLLS ROLLS, rien à redire ! C'est de l'excellent travail !
Par contre, impossible à reproduire à mon avis en ce qui me concerne...

Millessssss merci à tous et longue vie au forum !!!!

Sophie.

 

[Moa]

Salut Sophie !

Je ne comprends pas pourquoi cette ligne pose un problème chez toi, car je l'ai testée une cinquantaine de fois et je n'ai aucun prob.

En quelle version Excel et Windows es-tu ?

Sinon, en ce qui concerne la barre, le père est notre grand Ti.

Ce n'est pas si difficile que ça à comprendre et il n'est pas difficile non plus de la modifier et de s'en servir à son aise.

En fait pour t'en servir, tu recopies simplement le module 2 et tu recopies les lignes de code qui se trouvent dans WorkBook.

Dans le module 2, il y a les explications, pour changer cette barre.

Si tu as besoin d'explication à ce sujet, reviens poser des questions.

@ +

Moa

 

[SOPHIE]

Ok Moa, c'est c'est super sympa de ta part !
Je pense me pencher quand meme sur cette barre de tache qui est ma fois est fort pratique (merci au gran Ti !)...

Pour ce qui est de ma version Excel du boulot, c'est de l'office 97 sous Windows NT....

Aplus

Sophie.