[RESOLU] VBA: créer une nouvelle feuille, la renommer et copier

chacal33 · 28 Décembre 2011

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

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

Et je n'arrive pas à trouver comment ne pas prendre en compte les formules...

Merci de votre retour

Dan · 28 Décembre 2011

Re : VBA: créer une nouvelle feuille, la renommer et copier uniquement valeurs et for

Bonjour,

Essaie en ajoutant ce bout de code juste avant le END SUB

Code:

With ActiveSheet.UsedRange
   .Copy
    .PasteSpecial Paste:=xlValues
End With

Amicalement

chacal33 · 28 Décembre 2011

Re : VBA: créer une nouvelle feuille, la renommer et copier uniquement valeurs et for

SUPER!!!

Merci Dan, tu me sors une sacrée épine du pied.

Merci beaucoup.

Staple1600 · 28 Décembre 2011

Re : VBA: créer une nouvelle feuille, la renommer et copier uniquement valeurs et for

Bonjour

Et les formats alors ? (cf ton titre), faut les copier ou pas ?

Car s'il s'agit simplement de garder les valeurs, tu peux aussi user de ce moyen

Code:

Sub Macro1()
' Macro enregistrée le 28/12/2011 par l'agrafe
    Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
    With ActiveSheet.UsedRange
    With .SpecialCells(xlCellTypeFormulas, 23)
    .Value = .Value
    End With
    End With
End Sub

EDITION: Mon bon JNP; heureusement que tu veilles

Errare humanum est, perseverare diabolicum.

C'est bien le diable si avec deux options ( utilisation du Collage Spécial et sa non utilisation), le demandeur ne trouve pas son paradis

PS2: Ce qui me fatigue, ce sont certains novices d'XLD qui sont nés trop jeunes

JNP · 28 Décembre 2011

Re : VBA: créer une nouvelle feuille, la renommer et copier uniquement valeurs et for

Bonjour le fil ,

Staple1600 à dit:
Et les formats alors ? (cf ton titre), faut les copier ou pas ?

[Private joke]Un coup de fatigue en cette fin d'année, Jean-Marie [/Private Joke]
Vu qu'il a copié sa feuille, il a copié les formats avec ...
Bonne suite

[RESOLU] VBA: créer une nouvelle feuille, la renommer et copier

chacal33

XLDnaute Junior

Dan

XLDnaute Barbatruc

chacal33

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

Discussions similaires