Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Creation d'un relevé de comptes

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

anthony.unac

XLDnaute Occasionnel
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 :
Code: 
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 :

Code: 
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
 

Pièces jointes

Trier par date Trier par votes
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:
Code: 
    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+
 
Vote positif 0 Vote négatif
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 :

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
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
261
NONO14
N
B
  • Question Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
237
kiki29
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
622
TooFatBoy
M
  • Question Question
XL 2021 Protection des onglets
Réponses
2
Affichages
222
MANU64360
M
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
338
jeff1494
S
  • Question Question
XL 2016 VBA - copier coller des données d'un onglet vers un nouvel onglet
Réponses
1
Affichages
776
vgendron
XLS : Sélecteur de Couleur
Réponses
10
Affichages
316
Lu76Fer
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
485
GClaire
G
M
  • Résolu(e)
XL 2016 comment créer une Barre de défilement ou faire simplement défiler son texte ?
2
Réponses
25
Affichages
1 K
melltel
M
A
  • Question Question
Microsoft 365 Retourner message si compteur 0
Réponses
4
Affichages
524
AD95
A
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
881
job75
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
613
Cheyenne_2021
C
I
  • Résolu(e)
Microsoft 365 Garder dimension des graphes issus d'un lien Excel lors de la MaJ dans PP
Réponses
2
Affichages
463
ilyes4205
I
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
428
loreak
L
S
  • Question Question
Microsoft 365 Macro pour addition dynamique de donnees
Réponses
8
Affichages
868
AtTheOne
F
  • Question Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
723
Zon
Z
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
2 K
dysorthographie
C
  • Question Question
XL 2010 Dupliquer une sub
2
Réponses
20
Affichages
1 K
mapomme
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…