Créer auto un onglet Excel en fonction d'un mois
Bonjour,
J'ai crée (en inspirant de ce que j'ai pu trouver ici) un petit fichier de création de bordereau de remise de chèque.
La macro fonctionne bien, mais ne correspond pas complètement au besoin de utilisateur.
En effet le bordereau se crée bien sur le mois considéré, mais l'utilisateur voudrait :
que un bordereau se crée par mois de date saisie
que les lignes se vident sur l'onglet "Modèle"
que si un chèque est ajouté dans l'onglet modèle il s'ajoute dans le mois concerné
j’espère avoir été clair, je joins le fichier et la macro ci-dessous.
L'onglet "Modèle" se remplit automatiquement via une autre source dans le version qui sera définitive.
Sub creation_onglet_mois()
Dim mois As String, x As Byte
Sheets("Modèle").Activate
ActiveSheet.Copy After:=Sheets(Sheets.Count)
x = Range("a15") 'repérer le n° du mois à sauvegarder
ActiveSheet.Name = UCase(Format(30 * x, "mmmm")) 'ex:JANVIER
' ActiveSheet.Name = UCase(Format(30 * x, "mmm")) 'ex:JANV
' ActiveSheet.Name = UCase(Format(30 * x, "mm")) 'ex: 01
' ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Delete 'Effacer le bouton de commande
mois = ActiveSheet.Name
Sheets("Modèle").Select
Range("b16:f45").ClearContents
Range("B16").Select
MsgBox ("Le mois de " & mois & "" & " est sauvegardé")
'Next
End Sub
Cordialement.
Bonsoir,
C'est top par contre si je recrée une donnée supplémentaire sur un mois existant ça écrase la donnée dans le mois concerné plutôt que de l'ajouter.
Je vais essayer de trouver une solution.
Si je trouve je te dis cela
Merci de ton aide
Xavier
Bonjour,
Super cool merci de ton aide.