Copier coller range

bonjour,

je tente par l'action d un bouton formulaire, de faire des copier-coller sous conditions, d une feuille sur elle même ou sur l'autre.

désolé, je poste le code que j'ai tapé pour voir ce qui va pas.

Application.DisplayAlerts = False

Application.ScreenUpdating = False

Application.Calculation = xlManual

test = Range("as5")

Select Case test

Case Is = 1

Range("a1").Select

Case Is = 12

Range("ao15") = Range("ak83")

Case Is = 13

Sheets("calcul panification").Range("ao15").Value = Sheets("calcul panification (2)").Range("ak88").Value

case is = 123

Range("ao15") = Range("ak83")

Sheets("calcul panification (2)").Range("ao17").Value = Sheets("calcul panification (2)").Range("ak88").Value

case is = 134

Sheets("calcul panification").Range("ao15").Value = Sheets("calcul panification (2)").Range("ak88").Value

Sheets("calcul panification").Range("ao15").Value = Sheets("calcul panification (2)").Range("ak83").Value

case is = 1234

Range("ao15") = Range("ak83")

Sheets("calcul panification (2)").Range("ao17").Value = Sheets("calcul panification (2)").Range("ak88").Value

Sheets("calcul panification").Range("ao15").Value = Sheets("calcul panification (2)").Range("ak83").Value

End Select

Application.ScreenUpdating = True

Application.Calculation = xlAutomatic

End Sub

le problème: ça ne marche pas pour faire des copier-coller d'une feuille sur l'autre

un peu d'aide ? MERCI

Bonjour

Utilise les balises "Code" lorsque tu postes un code. C'est plus lisible pour tous

Ci-dessous le code à essayer pour ce que j'ai compris de que tu veux faire

Sub test()
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
    .Calculation = xlManual
End With
Select Case Range("as5").Value

    Case Is = 1: Range("a1").Select

    Case Is = 12: Range("ao15") = Range("ak83")

    Case Is = 13: Sheets("calcul panification (2)").Range("ak88").Copy Sheets("calcul panification").Range("ao15")

    Case Is = 123
    Range("ao15") = Range("ak83")
    Sheets("calcul panification (2)").Range("ak88").Copy Sheets("calcul panification (2)").Range("ao17")

    Case Is = 134
    Sheets("calcul panification (2)").Range("ak88").Copy Sheets("calcul panification").Range("ao15")
    Sheets("calcul panification (2)").Range("ak83").Copy Sheets("calcul panification").Range("ao15")

    Case Is = 1234
    Range("ao15") = Range("ak83")
    Sheets("calcul panification (2)").Range("ak88").Copy Sheets("calcul panification (2)").Range("ao17")
    Sheets("calcul panification (2)").Range("ak83").Copy Sheets("calcul panification").Range("ao15")

End Select
With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
    .Calculation = xlAutomatic
End With

End Sub

Si ok, clique sur le v vert à coté du bouton EDITER pour cloturer le fil lors de ta réponse

Crdlt