macro copier

[meugzy]

slt je veux créer une macro qui ferait la chose suivante:
j'ai une feuille x avec des calculs en F31,F32,F34,F35,F36 je veux que la macro crée une copie de la feuille en mettant les valeurs des de calcul de F31,F32,F34,F35,F36 dans les cellulles de G31,G32,G34,G35,G36
je compte sur votre aide merci

 

[JNP]

Re : macro copier

Bonjour Meugzy 🙂,
Pense à utiliser l'enregistreur de macro... Dans ton cas, ça donne ça

    Range("F31:F36").Select
    Selection.Copy
    Range("G31:G36").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Bonne journée 😎

 

[meugzy]

Re : macro copier

ca ne marche pas as tu bien lu ma question JNP?

 

[youky(BJ)]

Re : macro copier

Salut
Comme ceci sans doute...
je supprime la Feuille "X" si elle existe déja
Changer le nom X si besoin
Ici je copie Feuil1 qui est le codeName de l'onglet et pas forcement le nom de l'onglet

Sub NouvelOnglet()
On Error Resume Next
Application.DisplayAlerts = False
Sheets("X").Delete 'si l'onglet X existe déja on le supprime
Application.DisplayAlerts = True
Feuil1.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "X" 'nouvel onglet X
Range("G31:G32").Value = Feuil1.Range("F31:F32").Value
Range("G34:G36").Value = Feuil1.Range("F34:F36").Value
End Sub

 

[JNP]

Re : macro copier

Re 🙂,
Effectivement, j'avais sauté la création de copie d'une feuille, ce qui n'enlève rien au fait que l'enregistreur t'aurais aussi donné ton code... 😱
Bonne soirée 😎