Macro CutCopyMode

Hello tout le monde,

Je suis en train d'essayer de créer une macro qui va me faire gagner bcp de temps, Tous les mois je dois Faire une série de copier coller dans chaque onglet de type Range("P9:P15").Select Selection.Copy sur la colonne Q et chaque mois je dois décaler cette opération.

Voici le code que j'ai actuellement:

Sub Copycall()

Dim actuals As String

Dim ActualsM As String

actuals = Cells(20, 14)

ActualsM = Cells(21, 14)

'Actuals CTRL C CTRL V

Sheets("Corp").Select

Range("P9:P15").Select

Selection.Copy

Range("Q9").Select

ActiveSheet.Paste

Range("P18:P58").Select

Application.CutCopyMode = False

Selection.Copy

Range("Q18").Select

ActiveSheet.Paste

Range("P61:P74").Select

Application.CutCopyMode = False

Selection.Copy

Range("Q61").Select

ActiveSheet.Paste

'Prior CTRL C CTRL V

Range("AT9:AT15").Select

Application.CutCopyMode = False

Selection.Copy

Range("AU9").Select

ActiveSheet.Paste

Range("AT18:AT58").Select

Application.CutCopyMode = False

Selection.Copy

Range("AU18").Select

ActiveSheet.Paste

Range("AT61:AT74").Select

Application.CutCopyMode = False

Selection.Copy

Range("AU61").Select

ActiveSheet.Paste

Range("AV50").Select

Application.CutCopyMode = False

End Sub

En fait je bloque au niveau des variables, j'aimerais donc 4 variables qui prennent les valeurs des colonnes.

Voici les numéro des colonnes

Avec ces variables je voudrais que pour le mois de Mars pour les actuals Range("P9:P15").Select / Range("P18:P58").Select / Range("P61:P74").Select dans la colonne Q pour le mois d'avril ange("Q9:Q15").Select / Range("Q18:Q58").Select / Range("Q61:Q74") dans la colonne R.

Pour résumer je voudrais que ma macro prenne une colonne différente suivant le mois que je sélectionne .

Je pense qu'il est préférable que je vous mette le fichier.

Sur quoi je peux le mettre pour vous le partager ?

Merci par avance,

Bonjour,

Merci de joindre un fichier à ta demande.

Le forum pourra alors intervenir.

Cdlt.

Connaissez vous un site ou je puisse le déposer afin que vous puissiez y avoir accès ?

Hello svp quelqu’un peut m'aider =0

Actuals = Sheets("List").Range("N20")
' P
Actualsm = Sheets("List").Range("O20")
'O
'Actuals CTRL C CTRL V
    Sheets("Corp").Select
    Range("Actualsm9:Actualsm15").Select
    Selection.Copy
    Range("Actuals9").Select
    ActiveSheet.Paste
    Range("Actualsm18:Actualsm58").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Actuals18").Select
    ActiveSheet.Paste
    Range("Actualsm61:Actualsm74").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Actuals61").Select
    ActiveSheet.Paste

Comment je peux faire pour que si ma variable actuals = P et que actualsm = 0

 Sheets("Corp").Select
    Range("O9:O15").Select
    Selection.Copy
    Range("P9").Select
    ActiveSheet.Paste
    Range("O18:O58").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Actuals18").Select
    ActiveSheet.Paste
    Range("O61:O74").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("P61").Select
    ActiveSheet.Paste

Merci bcp