Copier et renommer feuille sans formule

Résolu
Giroen Messages postés 2 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,

j'ai une macro qui copie et renomme une feuille en fonction d'une cellule.
Cette dernière ajoute une feuille avec les formules.

comment puis-je adapter la macro pour quelle fasse une copie sans les formules mais tout en changeant le nom

Sub Copyrenameworksheet()

Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
ActiveSheet.Copy after:=Worksheets(Sheets.Count)
If wh.Range("I3").Value <> "" Then
ActiveSheet.Name = wh.Range("I3").Value

End If
wh.Activate

End Sub

Je suis assez nul avec VBA et je n'arrive pas à adapter cette macro.

Merci pour votre aide

Configuration: Windows / Edge 93.0.961.47

5 réponses

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Essaies ceci 

    Option Explicit

Sub Copyrenameworksheet()
Dim wh As Worksheet, nomf As String
Set wh = Sheets("Feuil1")
nomf = wh.Range("I3").Value
wh.Copy after:=Worksheets(Sheets.Count)
If wh.Range("I3").Value <> "" Then
  ActiveSheet.Name = nomf
  ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).ClearContents
End If
wh.Activate
End Sub

    Cdlmnt
    0
  2. Giroen
     
    Merci ccm81

    La macro efface tout, j’aimerais quel transforme les formules en valeur, Je me suis mal exprimé.

    Salutations
    0
  3. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Essaies comme çà 

    Option Explicit

Sub Copyrenameworksheet()
Dim wh As Worksheet, nomf As String, c As Range
Set wh = Sheets("Feuil1")
nomf = wh.Range("I3").Value
wh.Copy after:=Worksheets(Sheets.Count)
If wh.Range("I3").Value <> "" Then
  ActiveSheet.Name = nomf
  For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
    c.Copy
    c.Select
    Selection.PasteSpecial Paste:=xlPasteValues
  Next c
End If
wh.Activate
End Sub

    Cdlmnt
    0
  4. Giroen
     
    Merci
    Top elle fonctionne à merveille

    Salutations
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Si c'est fini, peux tu mettre le sujet à résolu (en haut dans ton premier message)

    Cdlmnt
    0