Copier et renommer feuille sans formule
Résolu
Giroen
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Copier et renommer feuille sans formule
- Formule si et - Guide
- Renommer des fichiers en masse - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Comment copier une vidéo youtube - Guide
5 réponses
Bonjour
Essaies ceci
Cdlmnt
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
Merci ccm81
La macro efface tout, j’aimerais quel transforme les formules en valeur, Je me suis mal exprimé.
Salutations
La macro efface tout, j’aimerais quel transforme les formules en valeur, Je me suis mal exprimé.
Salutations
Essaies comme çà
Cdlmnt
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
