Bonjour,
je tente dans un même classeur de créer une feuille, la renommer à partir de la valeur d'une cellule et de copier les données de la feuille source (pas les formules) vers la nouvelle feuille.
Jusqu'ici, j'ai comme code
Merci de votre retour
je tente dans un même classeur de créer une feuille, la renommer à partir de la valeur d'une cellule et de copier les données de la feuille source (pas les formules) vers la nouvelle feuille.
Jusqu'ici, j'ai comme code
Et je n'arrive pas à trouver comment ne pas prendre en compte les formules...Sub NOUVELLEFEUILLE()
Dim newshtname
If IsEmpty(Range("A1").Value) Then
MsgBox "Name required!", vbCritical
Exit Sub
End If
newshtname = Range("A1").Value
For Each Sheet In ActiveWorkbook.Sheets
If UCase(Sheet.Name) = UCase(newshtname) Then
MsgBox "Le nom de la Feuille existe déjà. Merci de saisir un nouveau nom.", vbCritical
Exit Sub
End If
Next Sheet
ActiveSheet.Copy after:=Sheets(1)
ActiveSheet.Name = newshtname
End Sub
Merci de votre retour
Dernière édition: