Copie de feuilles et blocage des données

Bonjour,

Grace à JFL, mon travail avance bien.. Merci encore!

J'aurai une autre requête :

j'ai crée un bouton d'enregistrement dans le but d'avoir une image à un instant T de l'enregistrement. Seulement ma macro crée une copie parfaite de la feuille "facturation" avec les formules et les boutons...

Comment puis-je adapter ce code pour n'avoir que la mise en forme et les données afin de "bloquer" les données entrées mensuellement??

Une dernière question... est-il possible que les feuilles crées suite à l'enregistrement ai une couleur d'onglet différentes (une couleur par mois)?

Merci de votre support éventuel.

Cordialement,

Yannick

Bonjour,

Votre fichier avec la macro modifiée.

le code

Private Sub Enregistrer_Click()
    Dim s As String
    Dim i As Integer
    s = InputBox("Veuillez saisir le nom de la feuille!", "Attribuer une date à la feuille", "Feuil1")
    If s = "" Then Exit Sub
    i = Sheets.Count
    On Error Resume Next
    Sheets(1).Copy After:=Sheets(i)
    ActiveSheet.Name = s

    'ne conserve que mes données
    With ActiveSheet
        .Range("C8:K37").Value = Range("C8:K37").Value 'écrase les formules
        .DrawingObjects.Delete 'efface les boutons

        'Couleurs des onglets pour chaque mois
        Select Case Sheets.Count
            Case 4
                .Tab.Color = RGB(255, 0, 0) 'rouge
            Case 5
                .Tab.Color = RGB(0, 255, 0) 'vert
            Case 6
                .Tab.Color = RGB(0, 0, 255) 'bleu
            Case 7
                .Tab.Color = RGB(255, 255, 0) 'jaune
            Case 8
                .Tab.Color = RGB(255, 0, 255) 'violet
            Case 9
                .Tab.Color = RGB(255, 192, 0) 'orange
            Case 10
                .Tab.Color = RGB(0, 176, 80) 'vert foncé
            Case 11
                .Tab.Color = RGB(192, 0, 0) 'rouge foncé
            Case 12
                .Tab.Color = RGB(123, 123, 123) 'gris
            Case 13
                .Tab.Color = RGB(102, 255, 255) 'bleu clair
            Case 14
                .Tab.Color = RGB(191, 31, 65) 'marron
            Case 15
                .Tab.Color = RGB(244, 176, 230) 'marron orangé
        End Select
    End With
End Sub

Cdlt

Merci Arturo83 pour cette réponse rapide et efficace.

Votre aide va me permettre d'avancer ce projet.

Merci encore,

Cordialement

Bonjour yannickb19, Arturo83 , le forum,

Une variante...un peu tardive...à tester...

Cordialement,

Bonjour xorsankukai,

j'aime beaucoup votre variante, elle me servira pour continuer le travail commencé.

Bien cordialement,

Merci encore

Xorsankukai,

j'aurai une dernière question, est-il possible de créer en même temps que la feuille mensuelle, une feuille "récap client" avec une extraction du montant HT par client rentrée sur la feuille de facturation?

exemple : le client 'GIRPI' a 5 entrées sur la feuille "facturation" que le total de ces entrées soit sur une feuilles "récap mensuelle" avec juste une ligne GIRPI = ****,** HT.

Faut-il mettre en place une RECHERCHEV sur colonnes combinées, SOMMEPROD, NBSI ??? je suis perdu dans la façon d'aborder ce nouveau problème.

Bien cordialement

Bonjour à tous,

J'ai fait au plus simple.....en rajoutant 2 colonnes supplémentaires....

Cordialement,

Merci Xorsankukai,

votre méthode est bien plus efficace que ce que j'avais pu imager...

Merci encore,

Bien cordialement,