recopie de feuille conditionnel

Question

Bonjour
J ai un classeur avec les sheets 1 2 3.Je desire une feuille par an.Pour cela il me faut recopier 1 sur 2 et 3.MAIS sans les valeurs de la precedente,en ne conservant que les libels et les formules?Merci

jordane45 · Answer

Bonjour,

tu peux utiliser l'enregistreur de macro pour obtenir le squelette de ton code, et ensuite l'adapter à tes besoins.

Par exemple pour copier une feuille en dernière position de ton classeur : 

Sub Ajout_Feuille()
Dim derniere_Feuille As Integer
    Nb_Feuilles = ActiveWorkbook.Sheets.Count ' Nombre de feuilles du classeur
Dim NomF  As String
    NomF = "Feuil1" ' nom de la feuille à copier
    
    'copier la feuille NomF
    Sheets(NomF).Select
    Sheets(NomF).Copy After:=Nb_Feuilles
    
    ' renomer la nouvelle feuille
    ActiveSheet.Name = "nouveau_Nom"
    
End Sub

Ne te reste plus qu'à supprimer le contenu des cellules que tu désires enlever.

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

laskachien · Answer

Merci de la reponse,cela je le sais.Mais ce qui m interesse c est une macro capable d effacer les values sauf les libels et les formules dans la nouvelle sheet copiee!

jordane45 · Answer

Bonjour,
une macro capable d effacer les values 
pour ça je pense que tu vas devoir gérer chaque Range séparément.

par exemple: 

Sub test()

Dim Ma_plage As Range
Set Ma_plage = Range("A1:C1")
    'suppression des données dans Ma_plage
        Ma_plage.Clear

End Sub


Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

jordane45 · Answer

Bonjour,
Petit complément qui peut t'aider :


Sub test()

Dim Ma_plage As Range
Set Ma_plage = Range("A1:C1")
    
Ma_plage.Select
'Selection des cellules contenant des constantes
'-----------------------------------------------------------------------------
'XlCellType peut être l'une de ces constantes XlCellType.
'xlCellTypeAllFormatConditions.  Cellules de n'importe quel format
'xlCellTypeAllValidation. Cellules présentant des critères de validation
'xlCellTypeBlanks.cellules vides
'xlCellTypeComments. Cellules contenant des commentaires
'xlCellTypeConstants. Cellules contenant des constantes
'xlCellTypeFormulas. Cellules contenant des formules
'xlCellTypeLastCell. Dernière cellule dans la plage utilisée
'xlCellTypeSameFormatConditions.  Cellules de même format
'xlCellTypeSameValidation.  Cellules présentant les mêmes critères de validation
'xlCellTypeVisible. Toutes les cellules visibles
'-----------------------------------------------------------------------------
    On Error Resume Next
Selection.SpecialCells(xlCellTypeConstants, 23).Select
' Suppression des données dans ces cellules
Selection.Clear


End Sub

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

laskachien · Answer

Merci c est juste ce qu il me fallait;pour me simplifier la vie!

jordane45 · Answer

Bonjour,


Si la réponse te convient, penses à la mettre en résolu. (réponse accéptée).

Bonne continuation.

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

Recopie de feuille conditionnel

6 réponses

Votre réponse

Discussions similaires