Discussion :

[Pompaero]

Bonjour le forum

Depuis un bon moment d'absence ici je suis fier de revenir sur ce type de forum. Je me suis remis à construire (enfin j'essai..) des petits fichiers pour le taf ou j'ai la responsabilité de mettre en place des systèmes simplifiés pour la traçabilité dans le cadre d'une certification (ça c'est ma vie, vous vous en foutez peu être ), bon je reviens à mes moutons.

Le fichier joint concerne le suivi des Note de Frais, j'ai pas mal avancé grace au forum ou j'ai trouvé les exemples qui m'on ammené à ce résultat, mais la je commence à patoger dans la construction des macros.
Donc je viens vers vous pour avoir un peu d'aide si vous le voulez bien?
L'objectif est de renseigner la Note de Frais, la sauvegarder en faisant une copie puis masquer. (Je suis arrivé un peu prêt à ce résultat avec des montages maison ).
J'aimerai que quelqu'un puisse vérifier et aménager mes macros dont je résume si après :
* Module 2
Macro NouvelleFeuille = construit seul, elle sert à copier la Note de Frais sur un autre onglet, sauvegarder puis masquer
Macro Macro1 = Créer un bouton à l'ouverture des onglets masquer (Note de frais 15/001, ect..) afin de pouvoir le remasquer.
* Module 3
Macro SelctionFeuille = Créer un lien en colonne A de la feuille "Recherche" afin de démasquer l'onglet correspondant au N° (à arranger)
Macro NomIncrement = Incrémenter automatiquement les Note de Frais.
Le numéro incrémenté serait avec les 2 derniers chiffre de l'année en cour suivi d'un "-" puis le chiffre 001 et 002 et 003 et ect.... C'est numéros reviendront à 001 à chaque changement d'année.
ex : fiche 15-001, fiche 15-002, fiche 15-003, ect jusqu'à la fin de l'année puis
fiche 16-001, fiche 16-002, ect...
Voilà mes explications qui j'espère sont assez claire, pour mieux comprendre je mets mon fichier en PJ.

Merci à vous tous

---

Fichiers joints dans les discussions

---

[pasdechances]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
sub question()
if msgbox ("Tu veux de l'aide pour qu'on te fasse le boulot ?" ,VBYESNO,"que veux tu réelement ?") = VBNO then
    msgbox "je te prierai de bien vouloir nous exposer ton code" & _ 
             "(en te servant des balises faites pour) et nous dire"  & _ 
             "ou tu bloque afin que l'on puisse t'aider =)." ,vbOKOnly,""
    else
    msgbox "il te reste les tutos ou les idots. " ,vbOKOnly,""
end if
end sub

[Pompaero]

Bonjour pasdechances.

Le speuso est inquiétant !! , je plaissante bien sûr.

Désolé si je n'est pas été précis dans mon post. Mais comme il y a plusieurs choses j'ai préféré mettre le fichier afin que vous puissiez vous rentre compte de l'utilisation.
Donc je pars sur le point dans Module 3 ===> Macro NumIncrement qui pour moi servirai à numéroter les notes de frais comme ceci (15-001, 15-002, 15-003, ect….), le 15 correnspond aux 2 derniers chiffres de l'année en cours suivi des numéros 001, 002, ect.. ceci jusqu'à la fin de l'année puis au changement d'année on recommence comme ceci (16-001, 16-002, ect...
Je me permet de ne pas mettre de code ici car je ne sais pas si il faut un lien avec les autres macros et préfére que vous voyez le fichier complet (dans post précédent) pour son fonctionnement, cela est plus parlant ( enfin je trouve, pour moi).
Merci encore pour l'aide

cdlt

[pasdechances]

Je suis désolé, mais je n'ouvrirait pas ton fichier excel, pour les simples raisons que :
1- je ne suis pas chez moi
2- je n'utilise donc pas mon pc
3- c'est en dernier recours que tu peut te permettre de joindre ton fichier

cela dit tu peut toujours nous exposer ton code grâce au balise de code, c'est le petit "#" pour la mise en forme ^^ ou le [CODE][/CODE]

[Pompaero]

Re

Je comprends bien ta situation alors voici mon code. "tu as le droit de rigoler mais pas de ce moquer !!! )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub NumIncrement() 'Incrémentation des fiches à sauvegarder
Dim An, Serie
 
An = Format(Sheets("Acceuil").Range("H4"), "yy")  'Récupère les 2 derniers chiffres de l'année
Serie  '(= série de numéros 001, 002, 003, ect)
Num = Sheets("Note").Range("J1") = An & "-" & Serie
 
End Sub

Cdlt

[pasdechances]

Merci,

bon tu as plusieurs possibilité.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("h:h").NumberFormat = "00-000"

après tu met se que tu veux dans cellule et sa donnera le résultat que tu attend