Creation d'un relevé de comptes

[anthony.unac]

Bonjour,

Je tente de creer un releve de compte permettant de creer a chaque nouveau mois une nouvelle feuille portant le nom du mois en cours.

Aujourdhui je bloque sur le copier coller des :
- Longueurs et largeurs des cellules
- Conservations des formules
- Conservation des couleurs

Autre soucis, la creation d une nouvelle feuille :

Sheets.Add.Name = [I2]

la place automatiquement en premiere position (chose que je ne souhaite pas)
Comment fait on pour la placer en derniere position ?

Donc au final mon code est le suivant :

Sub Nouveau()

Sheets.Add.Name = [I2]

'Une ligne de code pour le copier/coller
'Une ligne de code pour placer la nouvelle feuille creee en derniere position

End Sub

Cordialement
Anthony

 

[Guest]

Re : Creation d'un relevé de comptes

Bonjour,

Tu renommes "Modèle" la feuille vide que tu nous as donnée,
et dans une macro de ton choix:

    Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = MonthName(Month(Date)) & " " & Right(Date, 2)

Attention si la feuille existe déjà, tu auras une erreur.

A+

 

[klin89]

Re : Creation d'un relevé de comptes

Bonjour Hasco, anthony.unac

Pour t'aider, vois l'exemple de cbea ci-dessous.

https://www.excel-downloads.com/threads/ajout-feuille.94445/

Amicalement klin89

 

[anthony.unac]

Re : Creation d'un relevé de comptes

Merci beaucoup pour vos reponses.
Je vais deja bucher avec ca

A+

 

[anthony.unac]

Re : Creation d'un relevé de comptes

Re,

Apres 10 000 tentatives, j arrive a quelquechose de pas si mal (cf. fichier ci dessous) a un détail pres :
Les feuilles creees perdent leurs formules de C6 à C36 ainsi que de M6 à M36
Comment se fait ce ?

Un probleme de copier/coller special et pourtant voici le code :

Sub Nouveau()

nom = Range("O4").Value
'Sheets.Add.Name = [I2]
ActiveSheet.Copy after:=Worksheets(ThisWorkbook.Worksheets.Count)

With ActiveSheet
    .Name = nom

    .Range("D6:D36").ClearContents
    .Range("E6:E36").ClearContents
    .Range("G6:G36").ClearContents
    .Range("H6:H36").ClearContents
    .Range("J6:J36").ClearContents
    .Range("K6:K36").ClearContents
    
    lig = 6
    For jour = 1 To 31
        .Range("B6:M6").Copy
        .Range("B" & lig & ":M" & lig).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        .Range("B" & lig & ":M" & lig).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        .Range("B" & lig & ":M" & lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        .Range("B" & lig & ":M" & lig).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        .Range("B" & lig & ":M" & lig).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        .Range("B" & lig).Value = jour
        
        Application.CutCopyMode = False
        
        lig = lig + 1
        
    Next jour
    
End With

    
End Sub

A+
Anthony

 

[anthony.unac]

Re : Creation d'un relevé de comptes

Re,

Je crois que ma reponse nocturne est passee a la trappe alors je me permets un ptit up

A+
Anthony

 

[MuscatMimi]

Re : Creation d'un relevé de comptes

Salut a tous

Je ne sais pas si cela peut te sastifaire
mais j'ai fouillé dans mes archives ,et ai trouvé ce Fichier que j'avais crée il y a qq mois de cela
Cdlt

 

[anthony.unac]

Re : Creation d'un relevé de comptes

Salut a tous

Je ne sais pas si cela peut te sastifaire
mais j'ai fouillé dans mes archives ,et ai trouvé ce Fichier que j'avais crée il y a qq mois de cela
Cdlt

Salut !

Merci pour ce fichier.
A travailler

A+
Anthony